From: yoichi <yoichi>
Date: Sat, 10 Apr 2004 05:35:22 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-redisplay-all-header): Set cached.
X-Git-Tag: wl-2_11_25~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=06e5567f6faba6917be1fcec8c51844ad67b9905;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))