(gnus-article-refer-article): Be more permissive.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0cde70b..e4fe4f2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-01  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-art.el (gnus-article-refer-article): Be more permissive.
+
 2003-03-01  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * spam.el: Fix typo.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 437ceb2..369f806 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4818,14 +4818,13 @@ not have a face in `gnus-article-boring-faces'."
   "Read article specified by message-id around point."
   (interactive)
   (save-excursion
-    (re-search-backward "<?news:\\|<" (gnus-point-at-bol) t)
-    (cond ((re-search-forward
-           gnus-button-mid-or-mail-regexp (gnus-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")))))
+    (re-search-backward "[ \t]\\|^" (gnus-point-at-bol) t)
+    (re-search-forward "<?news:<?\\|<" (gnus-point-at-eol) t)
+    (if (re-search-forward "[^@ ]+@[^ \t>]+" (gnus-point-at-eol) t)
+       (let ((msg-id (concat "<" (match-string 0) ">")))
+         (set-buffer gnus-summary-buffer)
+         (gnus-summary-refer-article msg-id))
+      (error "No references around point"))))
 
 (defun gnus-article-show-summary ()
   "Reconfigure windows to show summary buffer."