From c59a374191d931595e1270f955442d0539cd9ce6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 18 Jun 1999 12:14:06 +0000 Subject: [PATCH] (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. --- lisp/gnus-sum.el | 6 ++++++ 1 file changed, 6 insertions(+) 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)))) -- 1.7.10.4