From: yamaoka <yamaoka>
Date: Mon, 16 Jun 2003 06:15:01 +0000 (+0000)
Subject: Synch to Gnus 200306160634.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=473d512cf6dee63254a67ef4b0dec5580b103a82;p=elisp%2Fgnus.git-

Synch to Gnus 200306160634.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97214f1..7ea1bdb 100644
--- 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
--- 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