From: yamaoka <yamaoka>
Date: Mon, 16 Jun 2003 06:14:29 +0000 (+0000)
Subject: * gnus-sum.el (gnus-summary-refer-parent-article): Extract Message-ID from
X-Git-Tag: t-gnus-6_16_2-02~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1fc3c77aeb329f916f43627b3c39f31248023002;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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