* wl-summary.el (wl-summary-redisplay-all-header): Set cached.

(wl-summary-redisplay-no-mime-internal): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b5c5d5a..337c25b 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-04-10  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-summary.el (wl-summary-redisplay-all-header): Set cached.
+       (wl-summary-redisplay-no-mime-internal): Ditto.
+
 2004-04-03  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * 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 (file)
--- 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))