From 1fc3c77aeb329f916f43627b3c39f31248023002 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 16 Jun 2003 06:14:29 +0000 Subject: [PATCH] * gnus-sum.el (gnus-summary-refer-parent-article): Extract Message-ID from In-Reply-To header. --- ChangeLog | 5 +++++ lisp/gnus-sum.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index a35c0a2..7f5ccbe 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-06-16 Katsumi Yamaoka + + * lisp/gnus-sum.el (gnus-summary-refer-parent-article): Extract + Message-ID from In-Reply-To header. + 2003-06-10 TSUCHIYA Masatoshi * 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 -- 1.7.10.4