* gnus-sum.el (gnus-summary-refer-parent-article): Extract Message-ID from

 In-Reply-To header.

diff --git a/ChangeLog b/ChangeLog
index a35c0a2..7f5ccbe 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/gnus-sum.el (gnus-summary-refer-parent-article): Extract
+       Message-ID from In-Reply-To header.
+
 2003-06-10  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
        * lisp/message.el (message-yank-original): When

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 9619691..bd37ba4 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8025,7 +8025,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