From: okada <okada>
Date: Thu, 24 Jan 2002 15:45:43 +0000 (+0000)
Subject: * wl-message.el (wl-message-buffer-prefetch-subr): Read as-is.
X-Git-Tag: wl-2_9_7~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3643cfd85ee4663115619af4abe08404f0c2e5ad;p=elisp%2Fwanderlust.git

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