Synch to Oort Gnus.
authoryamaoka <yamaoka>
Sat, 22 Feb 2003 13:50:58 +0000 (13:50 +0000)
committeryamaoka <yamaoka>
Sat, 22 Feb 2003 13:50:58 +0000 (13:50 +0000)
lisp/ChangeLog
lisp/gnus-art.el

index cf18724..f77d660 100644 (file)
@@ -1,3 +1,8 @@
+2003-02-22  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+       * gnus-art.el (gnus-article-refer-article): Grok more message id
+       formats.  From Karl Pfl\e,Ad\e(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
index 8df097f..ab53611 100644 (file)
@@ -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."