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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 412808d..1099fca 100644 (file)
--- 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 (file)
--- 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))))))