2003-02-07 Frank Weinberg <frank@usenet-rundfahrt.de>

        * gnus-art.el (gnus-article-refer-article): Strip leading "news:"
          from message-ID

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b38c6b..10546c9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-07  Frank Weinberg  <frank@usenet-rundfahrt.de>
+
+        * gnus-art.el (gnus-article-refer-article): Strip leading "news:"
+          from message-ID
+
 2003-02-07  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus-util.el (gnus-run-hooks): Use save-current-buffer.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index fbb1926..e2126dd 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4741,7 +4741,7 @@ Argument LINES specifies lines to be scrolled down."
   (let ((point (point)))
     (search-forward ">" nil t)         ;Move point to end of "<....>".
     (if (re-search-backward "\\(<[^<> \t\n]+>\\)" nil t)
-       (let ((message-id (match-string 1)))
+       (let ((message-id (replace-regexp-in-string "<news:" "<" (match-string 1))))
          (goto-char point)
          (set-buffer gnus-summary-buffer)
          (gnus-summary-refer-article message-id))