From b363c180824bb506c74270670fc7f664310f0ca3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 22 Jun 1999 23:20:38 +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 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)))) -- 1.7.10.4