* wl-message.el (wl-message-buffer-prefetch): Count is a number

and do nothing when it is not positive.
(wl-message-buffer-prefetch-next): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 41e36ac..943a776 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2005-01-20  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-message.el (wl-message-buffer-prefetch): Count is a number
+       and do nothing when it is not positive.
+       (wl-message-buffer-prefetch-next): Ditto.
+
 2005-01-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * wl-summary.el (wl-summary-goto-folder-subr): Avoid error for

diff --git a/wl/wl-message.el b/wl/wl-message.el
index dd91c86..bdd45fe 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -683,7 +683,7 @@ Returns non-nil if bottom of message."
                                          &optional summary charset)
   (let* ((summary (or summary (get-buffer wl-summary-buffer-name)))
         (num number))
-    (when (and count
+    (when (and (> count 0)
               (wl-message-buffer-prefetch-p folder))
       (unless (wl-message-buffer-prefetch-p folder number)
        (setq num
@@ -697,7 +697,7 @@ Returns non-nil if bottom of message."
                                               &optional summary charset)
   (let* ((summary (or summary (get-buffer wl-summary-buffer-name)))
         next)
-    (when (and count
+    (when (and (> count 0)
               (wl-message-buffer-prefetch-p folder))
       (setq next (wl-message-buffer-prefetch-get-next folder number summary))
       (when next