From: okada <okada>
Date: Thu, 24 Jan 2002 14:06:28 +0000 (+0000)
Subject: * wl-message.el (wl-message-buffer-prefetch-move-spec-plugged-alist):
X-Git-Tag: wl-2_9_7~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c1884b5a2a90263b4d01228a93d346a20f76bdba;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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)))