 
 With a numeric prefix argument, it will skip to that page like `twit-show-recent-tweets'."
    (interactive "P")
-   (when (or (null page)
-			 (<= page 1))
-		 (setq page 1))
+   (setq page (twit-check-page-prefix page))
    (let ((b (get-buffer-create "*Twit-direct*")))
 	 (display-buffer b)
 	 (with-current-buffer b


Patch version from Ben Atkin."
  (interactive "P")
  (when (or (null page)
			(<= page 1))
		(setq page 1))
  (let ((b (get-buffer-create "*Twit-recent*")))
    (display-buffer b)
    (with-current-buffer b

		(text-mode)
		(toggle-read-only 1)
		(use-local-map twit-status-mode-map))))

;;* at-you show interactive
;;###autoload
(defun twit-show-at-tweets (page)
  "Display a list of tweets that were @ you.

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))
  (with-twitter-buffer (concat "*Twit-at-" twit-user "*")
    (twit-insert-with-overlay-attributes (format-time-string (concat "Twit @" twit-user ": %c\n"))
										 '((face . "twit-title-face")))
	(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))))))

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

;;* mode
;;;###autoload
