From d6f577b2f009806715f13d00b6f31809ef7eae8f Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 11 Feb 2002 12:14:11 +0000 Subject: [PATCH] * wl-message.el (wl-message-buffer-prefetch-next): Don't call `wl-message-buffer-prefetch-get-next' if FOLDER is not a target for prefetch. --- wl/ChangeLog | 6 ++++++ wl/wl-message.el | 10 ++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index d7da732..dbeb886 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2002-02-11 Hiroya Murata + + * wl-message.el (wl-message-buffer-prefetch-next): Don't call + `wl-message-buffer-prefetch-get-next' if FOLDER is not a target + for prefetch. + 2002-02-07 Kenichi OKADA * wl-summary.el (wl-summary-pick): Fix for no match. diff --git a/wl/wl-message.el b/wl/wl-message.el index 1e6e31f..88102f4 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -626,12 +626,14 @@ Returns non-nil if bottom of message." (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))) + next) (when (and count (wl-message-buffer-prefetch-p folder)) - (wl-message-buffer-prefetch-clear-timer) - (wl-message-buffer-prefetch-set-timer - folder next count summary charset)))) + (setq next (wl-message-buffer-prefetch-get-next folder number summary)) + (when next + (wl-message-buffer-prefetch-clear-timer) + (wl-message-buffer-prefetch-set-timer + 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