 (defun twit-show-direct-tweets (page)
    "Display a list of the most recent direct tweets.
 
-With a numeric prefix argument, it will skip to that page like `twit-show-recent-tweets'."
+With a numeric prefix argument, it will skip to that PAGE like `twit-show-recent-tweets'."
    (interactive "P")
    (setq page (twit-check-page-prefix page))
    (pop-to-buffer

  (kill-buffer (current-buffer)))

;;* post status
(defun twit-post-status (url post)
  "Post some kind of tweet status message at URL with the content 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
        ;; source parameter above is what counts
        (url-request-extra-headers twit-request-headers))
    (if twit-debug (twit-alert url-request-data))
    (url-retrieve url 'twit-handle-post (list twit-post-success-msg twit-post-failed-msg))))


			  (add-to-list 'twit-user-image-list (cons url img))
			  img)
			(let* ((url-request-method "GET")
				   (url-show-status nil)
				   (url-buffer (url-retrieve url 'twit-write-user-image (list url user-id))))
			  (if url-buffer
				  (progn
