From: Jesper Harder <harder@ifa.au.dk>
Date: Sat, 1 Mar 2003 23:14:21 +0000 (+0000)
Subject: (gnus-article-refer-article): Be more permissive.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=b61b4fc5a3d1866e5f170e94f0b07237c7761883;hp=b2adfdb1b2bbf6d080df200e8c0288d754c4c5f3;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0cde70be1..e4fe4f201 100644
--- 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 437ceb25a..369f8068f 100644
--- 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."