 This is the asyncronous version of `twit-parse-xml'.  Once that function is
 refactored, and its named changed, so should this one."
   (let ((url-request-method "GET")
-		(url-show-status nil))
-	(setq twit-async-buffer (url-retrieve url 'twit-parse-xml-async-retrieve (list url callback)))))
+        (url-show-status nil))
+    (setq twit-async-buffer
+          (url-retrieve url 'twit-parse-xml-async-retrieve
+                        (list url callback)))))
 
 ;;* rate-limit var
 (defvar twit-rate-limit-halt-flag 'nil

error."
  (set-default sym val)
  (condition-case nil
    (let ((twit-pass-var 'twit-pass))
	  (when (and (not (string= (symbol-value twit-pass-var) ""))
				 (not (string= twit-user "")))
			(twit-set-auth twit-user (symbol-value twit-pass-var))))
	(void-variable nil)))

;; Use this when testing the basic storage engine.
;; Set up for easy space for your C-x C-e execution pleasure.
(when nil
	  (set url-basic-auth-storage nil)
	  )

;;* custom
(defgroup twit nil
  "twit.el is an emacs package for interfacing with Twitter (http://www.twitter.com)
a microblogging service.  The twit.el package provides you with the ability to post
status updates and driect messages, as well as recieve them.  Additionally you can
opt to \"follow\", and the timeline will be updated automagickally.


  (setq page (twit-check-page-prefix page))
  (pop-to-buffer
   (with-twit-buffer (concat "*Twit-at-" twit-user "*")
     (twit-write-title "Twit @%s (Page %s) %s\n"
                       twit-user page (format-time-string "%c"))
     (let ((times-through 0))
       (dolist
           (status-node (xml-get-children
                         (cadr (twit-parse-xml
                                (format twit-mentions-url page) "GET"))
                         'status))
         (twit-write-tweet status-node t times-through)
         (setq times-through (+ 1 times-through)))))))

;;* at-you show interactive multi-account
(defun twit-show-at-tweets-with-account (account page)
  "`twit-show-at-tweets-with-account' with a different account."
  (interactive (list (twit-read-account)
                     current-prefix-arg))
  (with-twit-account account (twit-show-at-tweets page)))

(defalias 'twit-search-at-to-me 'twit-show-at-tweets
  "Aliased to `twit-show-at-tweets', does the same thing with a better interface.")

(defun twit-visit-link ()
  "Vist a link under the point.

If the point is under a hyperlink, goto that link.
If the point is under an @user, go to that users page.
Otherwise goto the authors page."
  (interactive)
  (browse-url (or (twit-get-text-property 'twit-url)
                  (when (twit-get-text-property 'twit-user)
                    (concat "http://twitter.com/"
                            (twit-get-text-property 'twit-user))))))

(defun twit-install-elisp ()
  "Install the elisp library at point.
