From 5627c1734f3ab72a768a901561e01cbad71d29b9 Mon Sep 17 00:00:00 2001
From: okada <okada>
Date: Tue, 22 Jan 2002 20:08:15 +0000
Subject: [PATCH] * wl-vars.el (wl-message-buffer-prefetch-threshold): New
 variable. * wl-message.el
 (wl-message-buffer-prefetch-get-next): Use
 `wl-message-buffer-prefetch-threshold'. * wl-summary.el
 (wl-summary-redisplay-internal): Remove the check of
 `wl-message-buffer-prefetch-depth'.

---
 wl/ChangeLog     |    3 ++-
 wl/wl-message.el |    8 +++-----
 wl/wl-summary.el |    8 ++++----
 wl/wl-vars.el    |   10 +++++-----
 4 files changed, 14 insertions(+), 15 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b22e0bc..631ba65 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,7 +1,8 @@
 2002-01-23  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-vars.el (wl-message-buffer-prefetch-threshold): New variable.
 	* wl-message.el (wl-message-buffer-prefetch-get-next): Use
-	`wl-cache-prefetch-threshold'.
+	`wl-message-buffer-prefetch-threshold'.
 	* wl-summary.el (wl-summary-redisplay-internal): Remove
 	the check of `wl-message-buffer-prefetch-depth'.
 
diff --git a/wl/wl-message.el b/wl/wl-message.el
index 84790b2..8bb48cc 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -580,9 +580,7 @@ Returns non-nil if bottom of message."
       (with-current-buffer summary
 	(let* ((next (funcall wl-message-buffer-prefetch-get-next-function
 			      number))
-	       (size (elmo-message-field folder next 'size))
-	       (threshold (or wl-cache-prefetch-threshold
-			      elmo-message-fetch-threshold)))
+	       (size (elmo-message-field folder next 'size)))
 	  (if next
 	      (cond
 	       ((not (wl-message-buffer-prefetch-p folder next))
@@ -591,8 +589,8 @@ Returns non-nil if bottom of message."
 		 folder next summary))
 	       ((and (not (elmo-message-file-p folder next))
 		     (integerp size)
-		     (integerp threshold)
-		     (>= size threshold))
+		     wl-message-buffer-prefetch-threshold
+		     (>= size wl-message-buffer-prefetch-threshold))
 		(wl-message-buffer-prefetch-get-next
 		 folder next summary))
 	       (t
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 4743b4d..5a1dc6f 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -5234,10 +5234,10 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	    (if (not wl-summary-indent-length-limit)
 		(wl-horizontal-recenter)))
 	  (wl-highlight-summary-displaying)
-	    (wl-message-buffer-prefetch-next folder num
-					     wl-message-buffer-prefetch-depth
-					     (current-buffer)
-					     wl-summary-buffer-mime-charset))
+	  (wl-message-buffer-prefetch-next folder num
+					   wl-message-buffer-prefetch-depth
+					   (current-buffer)
+					   wl-summary-buffer-mime-charset)
 	  (run-hooks 'wl-summary-redisplay-hook))
       (message "No message to display."))))
 
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index ff451b8..7570978 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -413,11 +413,6 @@ when `wl-prefetch-confirm' is non-nil."
   :group 'wl-pref
   :group 'wl-setting)
 
-(defcustom wl-cache-prefetch-threshold 30000
-  "*Quit forward cache prefetching if message size is larger than this value."
-  :type 'integer
-  :group 'wl-pref)
-
 (defcustom wl-thread-insert-opened nil
   "*Non-nil forces to insert thread as opened in updating."
   :type 'boolean
@@ -1722,6 +1717,11 @@ e.x.
   :type 'number
   :group 'wl-pref)
 
+(defcustom wl-message-buffer-prefetch-threshold 30000
+  "*Quit forward cache prefetching if message size is larger than this value."
+  :type 'integer
+  :group 'wl-pref)
+
 (defcustom wl-summary-always-sticky-folder-list nil
   "All folders that match this list has sticky summary.
 Each elements are regexp of folder name."
-- 
1.7.10.4