Index: gnus-art.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v
retrieving revision 6.298
diff -u -r6.298 gnus-art.el
--- gnus-art.el	21 Feb 2003 13:35:05 -0000	6.298
+++ gnus-art.el	21 Feb 2003 18:09:13 -0000
@@ -4772,15 +4772,15 @@
 (defun gnus-article-refer-article ()
   "Read article specified by message-id around point."
   (interactive)
-  (let ((point (point)))
-    (search-forward ">" nil t)		;Move point to end of "<....>".
-    (if (re-search-backward "\\(<[^<> \t\n]+>\\)" nil t)
-	(let ((message-id (gnus-replace-in-string (match-string 1) "<news:" "<" )))
-	  (goto-char point)
-	  (set-buffer gnus-summary-buffer)
-	  (gnus-summary-refer-article message-id))
-      (goto-char (point))
-      (error "No references around point"))))
+  (save-excursion
+    (re-search-backward "<?news:\\|<" (point-at-bol) t)
+    (cond ((re-search-forward
+	    gnus-button-mid-or-mail-regexp (point-at-eol) t)
+	    (let ((msg-id (concat "<" (match-string 0) ">")))
+	      (set-buffer gnus-summary-buffer)
+	      (gnus-summary-refer-article msg-id)))
+	  (t
+	    (error "No references around point")))))
 
 (defun gnus-article-show-summary ()
   "Reconfigure windows to show summary buffer."