From 3643cfd85ee4663115619af4abe08404f0c2e5ad Mon Sep 17 00:00:00 2001 From: okada Date: Thu, 24 Jan 2002 15:45:43 +0000 Subject: [PATCH] * wl-message.el (wl-message-buffer-prefetch-subr): Read as-is. (wl-message-buffer-prefetch-p): Check plugged. --- wl/ChangeLog | 5 +++++ wl/wl-message.el | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) 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 + * wl-message.el (wl-message-buffer-prefetch-subr): Read as-is. + (wl-message-buffer-prefetch-p): Check plugged. + +2002-01-24 Kenichi OKADA + * 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))) -- 1.7.10.4