From 1f896ce7a3b7c970bdf70ece0e5ae517061d20ee Mon Sep 17 00:00:00 2001
From: okada <okada>
Date: Thu, 24 Jan 2002 03:43:35 +0000
Subject: [PATCH] * wl-message.el (wl-message-buffer-prefetch): Require
 `count'. If count is nil, do not prefetch.
 (wl-message-buffer-prefetch-next): Next.

---
 wl/ChangeLog     |    6 ++++++
 wl/wl-message.el |   28 +++++++++++-----------------
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9e2c858..ad9938a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2002-01-24  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-message.el (wl-message-buffer-prefetch): Require `count'.
+	If count is nil, do not prefetch.
+	(wl-message-buffer-prefetch-next): Next.
+
+2002-01-24  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-draft.el (wl-draft-prepare-edit): Use `wl-draft-save'.
 
 2002-01-24  Kenichi OKADA  <okada@opaopa.org>
diff --git a/wl/wl-message.el b/wl/wl-message.el
index 31b58a4..e356262 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -596,35 +596,29 @@ Returns non-nil if bottom of message."
 	       folder next summary)
 	    next)))))
 
-(defun wl-message-buffer-prefetch (folder number &optional
-					  count summary charset)
+(defun wl-message-buffer-prefetch (folder number count
+					  &optional summary charset)
   (let* ((summary (or summary (get-buffer wl-summary-buffer-name)))
 	 (num number))
-    (when (wl-message-buffer-prefetch-p folder)
+    (when (and count
+	       (wl-message-buffer-prefetch-p folder))
       (unless (wl-message-buffer-prefetch-p folder number)
 	(setq num
 	      (wl-message-buffer-prefetch-get-next folder number summary)))
       (when num
 	(wl-message-buffer-prefetch-clear-timer)
 	(wl-message-buffer-prefetch-set-timer
-	 folder
-	 num
-	 (or count 1)
-	 summary
-	 charset)))))
-
-(defun wl-message-buffer-prefetch-next (folder number &optional
-					       count summary charset)
+	 folder num count summary charset)))))
+
+(defun wl-message-buffer-prefetch-next (folder number count
+					       &optional summary charset)
   (let* ((summary (or summary (get-buffer wl-summary-buffer-name)))
 	 (next (wl-message-buffer-prefetch-get-next folder number summary)))
-    (when (wl-message-buffer-prefetch-p folder)
+    (when (and count
+	       (wl-message-buffer-prefetch-p folder))
       (wl-message-buffer-prefetch-clear-timer)
       (wl-message-buffer-prefetch-set-timer
-       folder
-       next
-       (or count 1)
-       summary
-       charset))))
+       folder next count summary charset))))
 
 (defun wl-message-buffer-prefetch-subr (folder number count summary charset)
   (if (buffer-live-p summary)
-- 
1.7.10.4