From 473d512cf6dee63254a67ef4b0dec5580b103a82 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 16 Jun 2003 06:15:01 +0000 Subject: [PATCH] Synch to Gnus 200306160634. --- lisp/ChangeLog | 5 +++++ lisp/gnus-sum.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + * gnus-sum.el (gnus-summary-refer-parent-article): Extract + Message-ID from In-Reply-To header. + +2003-06-16 Katsumi Yamaoka + * 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 -- 1.7.10.4