 "
   (interactive "P")
   (let* ((reply-to (when prefix 
-                     (twit-grab-author-of-tweet)))
+                     (twit-get-text-property 'twit-user)))
          (post (twit-query-for-post (if reply-to
                                         (concat "Reply to " reply-to)
                                       "Post") 
                                     (when reply-to
                                       (concat "@" reply-to " ")))))
     (if (> (length post) 140)
+		(error twit-too-long-msg)
+		(twit-post-status twit-update-url post))))
+
+;;* post interactive keymap
+(defun twit-post-to ()
+  "Posts to a particular user.  Mostly used by keymaps."
+  (interactive)
+  (let ((post (twit-query-for-post "Reply To: " (concat "@" (twit-get-text-property 'twit-user) " "))))
+	(if (> (length post) 140)
 		(error twit-too-long-msg)
 		(twit-post-status twit-update-url post))))
 

  "(_x___}<"
  :group 'twit)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; More variables and constants
;; 'r' key for reloading/refreshing the buffer
(defvar twit-key-list
  '(("s" . twit-show-recent-tweets)
	("f" . twit-list-followers)


(defface twit-zebra-1-face
  '((((class color) (background light))
	 (:background "gray89" :box (:line-width 2 :color "gray89" :style 0)))
	(((class color) (background dark))
	 (:background "grey15" :box (:line-width 2 :color "gray15" :style 0)))
	(t (:inverse)))
  "Color one of zebra-striping of recent tweets and followers list."
  :group 'twit)

(defface twit-zebra-2-face
  '((((class color) (background light))
	 (:background "AliceBlue" :box (:line-width 2 :color "AliceBlue" :style 0)))
	(((class color) (background dark))
	 (:background "MidnightBlue" :box (:line-width 2 :color "MidnightBlue" :style 0))))
  "Color two of zebra-striping of recent tweets and followers list."
  :group 'twit)

