(gnus-summary-refer-parent-article): Extract Message-ID from In-Reply-To

 header.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97214f1..7ea1bdb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 3c3c462..86ddfe0 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8018,7 +8018,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