   (cond
     ((null err) (twit-alert success-msg))
 	(t (twit-alert error-msg)
-	   (message "Post HTTP error was: %s" err)
-	   (if twit-debug (message ("%s" buffer-string)))))
+	   (message "Post HTTP error was: %s\n(_x____}<\n" err)
+	   (if twit-debug (message "%s" (buffer-string)))))
   (kill-buffer (current-buffer)))
 
 ;;* post status
-(defun twit-post-function (url post)
+(defun twit-post-status (url post)
   (let ((url-request-method "POST")
 	(url-request-data (concat "source=twit.el&status=" (url-hexify-string post)))
         ;; these headers don't actually do anything (yet?) -- the 

		   (twit-follow-recent-tweets)))
	(setq twit-last-rate-limit limit))) 

;;* friends 
(defun twit-get-friends ()
  "Get a list of friends."
  (save-excursion
   (loop for screen_name in
		 (loop for user in
			   (xml-get-children (cadr (twit-parse-xml twit-friend-list-url "GET"))
								 'user)
			   collect (eighth user))
		 collect (third screen_name))))

;;* friends at-filter var
(defvar twit-at-friends-cache 'nil
  "A cached list of the people who you are following, with a @ in front of their name."
  )
(setq twit-at-friends-cache 'nil)  ; provided here so it cacn be eval-ed to reload friends cache.
;;* friends at-filter
(defun twit-at-message-was-from-friend (tweet)
  "Tell us if the text in the tweet contains an @ that we care about."

(defvar twit-first-time-through nil)


;;* const url
(defconst twit-base-search-url "http://search.twitter.com")
(defconst twit-base-url "https://twitter.com")

(defconst twit-update-url 
  (concat twit-base-url "/statuses/update.xml"))
(defconst twit-puplic-timeline-file
  (concat twit-base-url "/statuses/public_timeline.xml?page=%s"))
(defconst twit-friend-timeline-file
  (concat twit-base-url "/statuses/friends_timeline.xml?page=%s"))
(defconst twit-followers-file
