From: yamaoka <yamaoka>
Date: Sat, 22 Feb 2003 13:50:58 +0000 (+0000)
Subject: Synch to Oort Gnus.
X-Git-Tag: t-gnus-6_15_17-00-quimby~49
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=25ed55e0bce0cff365e8c4a513fd9307222b1faa;p=elisp%2Fgnus.git-

Synch to Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf18724..f77d660 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-22  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+	* gnus-art.el (gnus-article-refer-article): Grok more message id
+	formats.  From Karl Pfl,Ad(Bsterer <sigurd@12move.de>.
+
 2003-02-22  Jesper Harder  <harder@ifa.au.dk>
 
 	* mm-decode.el (mm-path-name-rewrite-functions): Doc fix: don't
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8df097f..ab53611 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5153,15 +5153,15 @@ not have a face in `gnus-article-boring-faces'."
 (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."