From: yamaoka <yamaoka>
Date: Thu, 6 Sep 2001 09:47:15 +0000 (+0000)
Subject: Fix a bug in `gnus-summary-insert-line'.  It has been reported to
X-Git-Tag: semi-gnus~34
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4c54cafafaad72c6aaa83ce2a9b73f28efc339af;p=elisp%2Fgnus.git-

Fix a bug in `gnus-summary-insert-line'.  It has been reported to
bugs@gnus.org.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 0106ddb..81e739a 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2950,6 +2950,7 @@ buffer that was in action when the last article was fetched."
 	      ?\ ;;;Whitespace
 	    (if (< gnus-tmp-score gnus-summary-default-score)
 		gnus-score-below-mark gnus-score-over-mark)))
+	 (gnus-tmp-number (mail-header-number gnus-tmp-header))
 	 (gnus-tmp-replied
 	  (cond (gnus-tmp-process gnus-process-mark)
 		((memq gnus-tmp-current gnus-newsgroup-cached)
@@ -2959,9 +2960,9 @@ buffer that was in action when the last article was fetched."
 		 gnus-forwarded-mark)
 		((memq gnus-tmp-current gnus-newsgroup-saved)
 		 gnus-saved-mark)
-		((memq number gnus-newsgroup-recent)
+		((memq gnus-tmp-number gnus-newsgroup-recent)
 		 gnus-recent-mark)
-		((memq number gnus-newsgroup-unseen)
+		((memq gnus-tmp-number gnus-newsgroup-unseen)
 		 gnus-unseen-mark)
 		(t gnus-no-mark)))
 	 (gnus-tmp-from (mail-header-from gnus-tmp-header))
@@ -2977,7 +2978,6 @@ buffer that was in action when the last article was fetched."
 		       (1+ (match-beginning 0)) (1- (match-end 0))))
 	   (t gnus-tmp-from)))
 	 (gnus-tmp-subject (mail-header-subject gnus-tmp-header))
-	 (gnus-tmp-number (mail-header-number gnus-tmp-header))
 	 (gnus-tmp-opening-bracket (if gnus-tmp-dummy ?\< ?\[))
 	 (gnus-tmp-closing-bracket (if gnus-tmp-dummy ?\> ?\]))
 	 (buffer-read-only nil))