* wl-message.el (wl-message-buffer-prefetch-subr): Read as-is.

(wl-message-buffer-prefetch-p): Check plugged.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 72c23fe..1b2d96c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2002-01-24  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-message.el (wl-message-buffer-prefetch-subr): Read as-is.
+       (wl-message-buffer-prefetch-p): Check plugged.
+
+2002-01-24  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-message.el (wl-message-buffer-prefetch-move-spec-plugged-alist):
        New variable.
        (wl-message-buffer-prefetch-move-spec-unplugged-alist): New variable.

diff --git a/wl/wl-message.el b/wl/wl-message.el
index a9b6e41..3336d91 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -538,6 +538,10 @@ Returns non-nil if bottom of message."
             (not (and (integerp size)
                       wl-message-buffer-prefetch-threshold
                       (>= size wl-message-buffer-prefetch-threshold)))))
+       (or (not number)
+          (elmo-folder-plugged-p folder)
+          (elmo-file-cache-exists-p
+                (elmo-message-field folder number 'message-id)))
        (or (cond
            ((eq wl-message-buffer-prefetch-folder-type-list t)
             t)
@@ -660,7 +664,10 @@ Returns non-nil if bottom of message."
                  (setq time1 (current-time))
                  (message "Prefetching %d..." number))
                (setq result (wl-message-buffer-display
-                             folder number 'mime nil 'unread))
+                             folder number
+                             'as-is
+                             ;'mime
+                             nil 'unread))
                (when wl-message-buffer-prefetch-debug
                  (setq time2 (current-time))
                  (setq sec  (- (nth 1 time2)(nth 1 time1)))