From: teranisi <teranisi>
Date: Wed, 14 Mar 2001 08:19:00 +0000 (+0000)
Subject: * wl-message.el (wl-normal-message-redisplay): Set `wl-message-cache-used'.
X-Git-Tag: wl-2_6-root~47
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9be3c5c493ace1910ff8d1e9474eef715db9643c;p=elisp%2Fwanderlust.git

* wl-message.el (wl-normal-message-redisplay): Set `wl-message-cache-used'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 412808d..1099fca 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-message.el (wl-normal-message-redisplay):
+	Set `wl-message-cache-used'.
+
 2001-03-13  OKAZAKI Tetsurou  <okazaki@be.to>
 
 	* wl-summary.el (wl-summary-mode): Use `make-local-hook' instead
diff --git a/wl/wl-message.el b/wl/wl-message.el
index 297e4a3..0d36a10 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -508,11 +508,16 @@
 	  (setq buffer-read-only nil)
 	  (erase-buffer)
 	  (if (or (eq (elmo-folder-number-get-type folder number) 'localdir)
-		  (not (and (integerp size)
+		  (not (and (not 
+			     (setq wl-message-cache-used
+				  (or
+				   (elmo-buffer-cache-hit
+				    (list folder number message-id))
+				   (elmo-cache-exists-p message-id
+							folder number))))
+			    (integerp size)
 			    wl-fetch-confirm-threshold
 			    (>= size wl-fetch-confirm-threshold)
-			    (not (elmo-cache-exists-p message-id
-						      folder number))
 			    (not (y-or-n-p
 				  (format "Fetch entire message? (%dbytes)"
 					  size))))))