From 06e5567f6faba6917be1fcec8c51844ad67b9905 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 10 Apr 2004 05:35:22 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-redisplay-all-header): Set cached. (wl-summary-redisplay-no-mime-internal): Ditto. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index b5c5d5a..337c25b 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-04-10 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-redisplay-all-header): Set cached. + (wl-summary-redisplay-no-mime-internal): Ditto. + 2004-04-03 Yoichi NAKAYAMA * wl-draft.el (wl-smtp-extension-bind): Support smtp over ssl. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 1145ebd..350c5eb 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4427,6 +4427,8 @@ If ASK-CODING is non-nil, coding-system for the message is asked." (wl-message-redisplay fld num 'as-is (string= (elmo-folder-name-internal fld) wl-draft-folder)) + (when (elmo-message-use-cache-p fld num) + (elmo-message-set-cached fld num t)) (ignore-errors (if (elmo-message-flagged-p fld num 'unread) (wl-summary-mark-as-read num); no-folder-mark) @@ -4454,6 +4456,8 @@ If ASK-CODING is non-nil, coding-system for the message is asked." (setq wl-summary-buffer-last-displayed-msg wl-summary-buffer-current-msg) (setq wl-current-summary-buffer (current-buffer)) + (when (elmo-message-use-cache-p fld num) + (elmo-message-set-cached fld num t)) (if (wl-message-redisplay fld num 'all-header (string= (elmo-folder-name-internal fld) wl-draft-folder)) -- 1.7.10.4