* wl-message.el (wl-message-buffer-prefetch-move-spec-plugged-alist):

New variable.
(wl-message-buffer-prefetch-move-spec-unplugged-alist): New variable.
(wl-message-buffer-prefetch-get-next): Use them.
* wl-demo.el (wl-demo-copyright-notice): Add 2002.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a686a69..72c23fe 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2002-01-24  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-message.el (wl-message-buffer-prefetch-move-spec-plugged-alist):
+       New variable.
+       (wl-message-buffer-prefetch-move-spec-unplugged-alist): New variable.
+       (wl-message-buffer-prefetch-get-next): Use them.
+       * wl-demo.el (wl-demo-copyright-notice): Add 2002.
+
 2002-01-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-reedit): Don't enclose wl-draft-reedit

diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index b35a2b0..04f5e36 100644 (file)
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -29,7 +29,7 @@
 ;;; Code:
 
 (defconst wl-demo-copyright-notice
-  "Copyright (C) 1998-2001 Yuuichi Teranishi <teranisi@gohome.org>"
+  "Copyright (C) 1998-2002 Yuuichi Teranishi <teranisi@gohome.org>"
   "A declaration of the copyright on Wanderlust.")
 
 (eval-when-compile

diff --git a/wl/wl-message.el b/wl/wl-message.el
index e356262..a9b6e41 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -584,10 +584,19 @@ Returns non-nil if bottom of message."
      'wl-message-buffer-prefetch-subr
      folder number count summary charset)))
 
+(defvar wl-message-buffer-prefetch-move-spec-plugged-alist nil)
+(defvar wl-message-buffer-prefetch-move-spec-unplugged-alist nil)
+
 (defun wl-message-buffer-prefetch-get-next (folder number summary)
   (if (buffer-live-p summary)
       (with-current-buffer summary
-       (let* ((next (funcall wl-message-buffer-prefetch-get-next-function
+       (let* ((wl-summary-move-spec-plugged-alist
+               (or wl-message-buffer-prefetch-move-spec-plugged-alist
+                   wl-summary-move-spec-plugged-alist))
+              (wl-summary-move-spec-unplugged-alist
+               (or wl-message-buffer-prefetch-move-spec-unplugged-alist
+                   wl-summary-move-spec-unplugged-alist))
+              (next (funcall wl-message-buffer-prefetch-get-next-function
                              number)))
          (if (and next
                   (not (wl-message-buffer-prefetch-p folder next)))