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