Synch to Gnus 200306160634.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97214f1..7ea1bdb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-06-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * gnus-sum.el (gnus-summary-refer-parent-article): Extract
+       Message-ID from In-Reply-To header.
+
+2003-06-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
        * message.el (message-is-yours-p): Narrow to head; extract from
        and sender by itself.
        (message-cancel-news, message-supersede): Remove useless things.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 7e315b5..31909ba 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8027,7 +8027,8 @@ The difference between N and the number of articles fetched is returned."
            (set-buffer gnus-original-article-buffer)
            (nnheader-narrow-to-headers)
            (unless (setq ref (message-fetch-field "references"))
-             (setq ref (message-fetch-field "in-reply-to")))
+             (when (setq ref (message-fetch-field "in-reply-to"))
+               (setq ref (gnus-extract-message-id-from-in-reply-to ref))))
            (widen))
        (setq ref
              ;; It's not the current article, so we take a bet on