From: yamaoka <yamaoka>
Date: Fri, 18 Jun 1999 12:14:06 +0000 (+0000)
Subject: (gnus-summary-mark-article): Call `gnus-cache-possibly-enter-article' with the
X-Git-Tag: et-gnus-6_11_03-03~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c59a374191d931595e1270f955442d0539cd9ce6;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 51fcfb7..9e38d83 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7281,6 +7281,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)))
@@ -7947,6 +7951,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))))
 
@@ -7992,6 +7997,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))))