 
 REPLY-ID, if set, sets the in_reply_to_status_id parameter."
   (let* ((url-request-method "POST")
-	     (url-request-data (concat "source=twit.el&status=" (url-hexify-string post)))
-		 (url-request-data (concat url-request-data
-								   (if reply-id
-									   (format "&in_reply_to_status_id=%d" reply-id)
-									   "")))
+         (url-request-data
+          (concat "source=twit.el&status=" (url-hexify-string post)))
+         (url-request-data
+          (concat url-request-data
+                  (if reply-id
+                      (format "&in_reply_to_status_id=%d" reply-id)
+                      "")))
          (url-request-extra-headers twit-request-headers)
-	 	 (url-show-status nil))
+         (url-show-status nil))
     (if twit-debug (twit-alert url-request-data))
-    (url-retrieve url 'twit-handle-post (list twit-post-success-msg twit-post-failed-msg))))
+    (url-retrieve url 'twit-handle-post
+                  (list twit-post-success-msg twit-post-failed-msg))))
 
 ;;* post direct
 (defun twit-direct-message (user msg)
   "Post a direct message to USER with MSG."
   (let ((url-request-method "POST")
-		(url-request-data (concat "source=twit.el"
-								  "&user=" (url-hexify-string user)
-								  "&text=" (url-hexify-string msg)))
-		(url-request-headers twit-request-headers)
-		(url-show-status nil))
-	(if twit-debug (twit-alert url-request-data))
-	(url-retrieve twit-direct-msg-send-url 'twit-handle-post (list twit-direct-success-msg twit-post-failed-msg))))
+        (url-request-data (concat "source=twit.el"
+                                  "&user=" (url-hexify-string user)
+                                  "&text=" (url-hexify-string msg)))
+        (url-request-headers twit-request-headers)
+        (url-show-status nil))
+    (if twit-debug (twit-alert url-request-data))
+    (url-retrieve twit-direct-msg-send-url 'twit-handle-post
+                  (list twit-direct-success-msg twit-post-failed-msg))))
 
 ;; post helper
 (defun twit-post-function (url data success-msg fail-msg)

  (setq page (twit-check-page-prefix page))
  (pop-to-buffer
   (with-twit-buffer "*Twit-recent*"
	 (twit-write-title "Recent Tweets (Page %s) [%s]\n" page (format-time-string "%c"))
	 (twit-write-recent-tweets (twit-parse-xml (format twit-friend-timeline-file page) "GET")))))


;;* interactive nav


PROMPT-HEADING is the prompt, and has \" (140 char max): \" appended to it.
INITIAL-INPUT is what it is."
  (let ((minibuffer-setup-hook
         (cons #'twit--query-for-post-minibuffer-setup minibuffer-setup-hook)))
    (read-string (concat prompt-heading
                         (format " (  0/%3d characters): "
                                 twit-max-tweet))
                 initial-input)))

;;* last-tweet
