From: yamaoka <yamaoka>
Date: Tue, 22 Jun 1999 23:20:38 +0000 (+0000)
Subject: (gnus-summary-mark-article): Call `gnus-cache-possibly-enter-article' with the
X-Git-Tag: t-gnus-6_10_067-01~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b363c180824bb506c74270670fc7f664310f0ca3;p=elisp%2Fgnus.git-

(gnus-summary-mark-article): Call `gnus-cache-possibly-enter-article' with the
arg `headers'.
(gnus-summary-mark-article-as-unread): Ditto.
(gnus-summary-move-article): Ditto.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 59fd509..24deb95 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7259,6 +7259,10 @@ and `request-accept' functions."
 	      (when gnus-use-cache
 		(gnus-cache-possibly-enter-article
 		 to-group to-article
+		 (let ((header (copy-sequence
+				(gnus-summary-article-header article))))
+		   (mail-header-set-number header to-article)
+		   header)
 		 (memq article gnus-newsgroup-marked)
 		 (memq article gnus-newsgroup-dormant)
 		 (memq article gnus-newsgroup-unreads)))
@@ -7925,6 +7929,7 @@ returned."
 	     (save-excursion
 	       (gnus-cache-possibly-enter-article
 		gnus-newsgroup-name article
+		(gnus-summary-article-header article)
 		(= mark gnus-ticked-mark)
 		(= mark gnus-dormant-mark) (= mark gnus-unread-mark))))
 
@@ -7970,6 +7975,7 @@ marked."
 	     (save-excursion
 	       (gnus-cache-possibly-enter-article
 		gnus-newsgroup-name article
+		(gnus-summary-article-header article)
 		(= mark gnus-ticked-mark)
 		(= mark gnus-dormant-mark) (= mark gnus-unread-mark))))