From bcd82279c9706ab166073056c8b50db4390353ef Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 15 Mar 2004 12:35:33 +0000 Subject: [PATCH] Synch to No Gnus 200403151234. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-sum.el | 8 -------- 2 files changed, 6 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 64e6dbe..bafb8ac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-03-15 Katsumi Yamaoka + + * gnus-sum.el (gnus-read-header): Don't remove a header for the + parent article of a sparse article in the thread hashtb. From + Stefan Wiens . + 2004-03-12 Reiner Steib * imap.el (imap-store-password): New variable. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 9c52793..8840095 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -11335,14 +11335,6 @@ If REVERSE, save parts that do not match TYPE." (not (gnus-summary-article-sparse-p (mail-header-number header)))) ;; We have found the header. header - ;; If this is a sparse article, we have to nix out its - ;; previous entry in the thread hashtb. - (when (and header - (gnus-summary-article-sparse-p (mail-header-number header))) - (let* ((parent (gnus-parent-id (mail-header-references header))) - (thread (and parent (gnus-id-to-thread parent)))) - (when thread - (delq (assq header thread) thread)))) ;; We have to really fetch the header to this article. (save-excursion (set-buffer nntp-server-buffer) -- 1.7.10.4