From: yamaoka <yamaoka>
Date: Mon, 15 Mar 2004 12:35:33 +0000 (+0000)
Subject: Synch to No Gnus 200403151234.
X-Git-Tag: t-gnus-6_17_4-quimby-~1013
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bcd82279c9706ab166073056c8b50db4390353ef;p=elisp%2Fgnus.git-

Synch to No Gnus 200403151234.
---

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  <yamaoka@jpl.org>
+
+	* 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 <s.wi@gmx.net>.
+
 2004-03-12  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* 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)