 		(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


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

		 (user-name (xml-first-childs-value user-info 'name))
		 (location (xml-first-childs-value user-info 'location))
		 (user-img (if twit-show-user-images
					   (twit-get-user-image (xml-first-childs-value user-info 'profile_image_url) user-id)
					   nil))
		 
		 (timestamp (xml-first-childs-value tweet 'created_at))
