From: teranisi <teranisi>
Date: Tue, 13 Feb 2001 21:57:58 +0000 (+0000)
Subject: * wl-summary.el (wl-cache-prefetch-message): Call `elmo-buffer-cache-message'
X-Git-Tag: wl-2_6-root~120
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1f17ca3778008a59589a183a9440329055089d01;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-cache-prefetch-message): Call `elmo-buffer-cache-message'
  with `unread' argument.

* elmo2.el (elmo-buffer-cache-message): Added argument `unread'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index cc6441d..a853a0c 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-02-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo2.el (elmo-buffer-cache-message): Added argument `unread'.
+
 2001-02-13  OKAZAKI Tetsurou  <refactor@acidrain.localnet>
 
 	* elmo-imap4.el (elmo-imap4-prefetch-msg): Set `msgdb'
diff --git a/elmo/elmo2.el b/elmo/elmo2.el
index 39b951a..85dd154 100644
--- a/elmo/elmo2.el
+++ b/elmo/elmo2.el
@@ -734,7 +734,7 @@ message list in msgdb. Otherwise, number-list is load from msgdb."
       (setq mark-alist (cdr mark-alist)))
     (nreverse ret-val)))
 
-(defun elmo-buffer-cache-message (fld msg &optional msgdb force-reload)
+(defun elmo-buffer-cache-message (fld msg &optional msgdb force-reload unread)
   (let* ((msg-id (cdr (assq msg (elmo-msgdb-get-number-alist msgdb))))
 	 (hit (elmo-buffer-cache-hit (list fld msg msg-id)))
 	 (read nil))
@@ -749,7 +749,8 @@ message list in msgdb. Otherwise, number-list is load from msgdb."
 	      (set-buffer hit)
 	      (elmo-read-msg fld msg
 			     (current-buffer)
-			     msgdb force-reload 'unread))
+			     msgdb force-reload
+			     unread))
 	  (quit
 	   (elmo-buffer-cache-delete)
 	   (error "read message %s/%s is quitted" fld msg))
diff --git a/wl/ChangeLog b/wl/ChangeLog
index fb33a16..799ccc5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-cache-prefetch-message):
+	Call `elmo-buffer-cache-message' with `unread' argument.
+
 2001-02-07  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-draft.el (wl-draft-parse-msg-id-list-string): Fix.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 9e31097..7fd9cab 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -6020,7 +6020,7 @@ Use function list is `wl-summary-write-current-folder-functions'."
 							      folder next)))))
 		  (if wl-cache-prefetch-debug
 		      (message "Reading %d..." msg))
-		  (elmo-buffer-cache-message folder next msgdb)
+		  (elmo-buffer-cache-message folder next msgdb 'unread)
 		  (if wl-cache-prefetch-debug
 		      (message "Reading %d... done" msg))))))))))