From: okada <okada>
Date: Thu, 24 Jan 2002 03:43:35 +0000 (+0000)
Subject: * wl-message.el (wl-message-buffer-prefetch): Require `count'.
X-Git-Tag: wl-2_9_7~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1f896ce7a3b7c970bdf70ece0e5ae517061d20ee;p=elisp%2Fwanderlust.git

* wl-message.el (wl-message-buffer-prefetch): Require `count'.
If count is nil, do not prefetch.
(wl-message-buffer-prefetch-next): Next.
---

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)