 
 XML-DATA is the sxml (with http header)."
   (if (twit-header-error-p (twit-parse-header (car xml-data)))
-	  (twit-display-error xml-data)
-	  (let* ((first-tweet (xml-first-child (cadr xml-data) 'status))
-			 (most-recent-tweet (list (xml-first-childs-value first-tweet 'created_at)
-									  (or (xml-first-childs-value (xml-first-child first-tweet 'user) 'screen_name) "??")
-									  (xml-substitute-special (xml-first-childs-value first-tweet 'text))))
-			 (times-through 1))
-		(dolist (status-node (xml-get-children (cadr xml-data) 'status))
-				(twit-write-tweet status-node nil times-through)
-				(setq times-through (+ 1 times-through)))
+      (twit-display-error xml-data)
+      (let* ((first-tweet (xml-first-child (cadr xml-data) 'status))
+             (most-recent-tweet
+              (list (xml-first-childs-value first-tweet 'created_at)
+                    (or (xml-first-childs-value
+                         (xml-first-child first-tweet 'user) 'screen_name) "??")
+                    (xml-substitute-special
+                     (xml-first-childs-value first-tweet 'text))))
+             (times-through 1))
+        (dolist (status-node (xml-get-children (cadr xml-data) 'status))
+          (twit-write-tweet status-node nil times-through)
+          (setq times-through (+ 1 times-through)))
 	
-		(when (not (equal most-recent-tweet twit-last-tweet))
-			  (setq twit-last-tweet most-recent-tweet)
-			  (run-hooks 'twit-new-tweet-hook))))
+        (when (not (equal most-recent-tweet twit-last-tweet))
+          (setq twit-last-tweet most-recent-tweet)
+          (run-hooks 'twit-new-tweet-hook))))
   
   ;; go back to top so we see the latest messages
   (goto-address)
   (goto-char (point-min))
-
+  
   ;; this needs more TLC
   (if twit-debug-mem (message (garbage-collect))))
 


;;* interactive keymap
(defun twit-mode-help ()
	"Show help messages during command `twit-mode'."
	(interactive)
	(message "Help: %s" (append twit-key-list '(("r" . "Reload Current Page")))))

;; *var
(defvar twit-timer

   "Regular expression for urls.")

(defconst twit-emacs-lisp-regex "\\([a-zA-Z0-9-.]+\\)\\.el"
  "Regex for Emacs Lisp files.")

;; regex testing:
;; @_miaux #twit.el #foo @foo @foo-bar


;;* const
(defconst twit-request-headers
  `(("X-Twitter-Client" . "twit.el")
    ("X-Twitter-Client-Version" . ,twit-version-number)
    ("X-Twitter-Client-URL" . "http://www.emacswiki.org/cgi-bin/emacs/twit.el"))
  "Headers sent by every twit.el request.")

;;* const
