* wl-summary.el (wl-summary-mark-as-important): If message is

already cached, set messag as read, otherwise encache and mark as read.

* elmo.el (elmo-generic-folder-append-messages): Check return value of
elmo-folder-append-buffer.
(elmo-folder-encache): Added optional argument `read'.
(elmo-message-encache): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index bbd4033..72dea86 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -2,6 +2,8 @@
 
        * elmo.el (elmo-generic-folder-append-messages): Check return value of
        elmo-folder-append-buffer.
+       (elmo-folder-encache): Added optional argument `read'.
+       (elmo-message-encache): Ditto.
 
        * elmo-dop.el (elmo-folder-append-buffer-dop-delayed): Ditto.
 

diff --git a/elmo/elmo.el b/elmo/elmo.el
index 2524b08..621c771 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -514,15 +514,18 @@ Return newly created temporary directory name which contains temporary files.")
   ((folder elmo-folder) important-mark)
   t)
 
-(defun elmo-folder-encache (folder numbers)
-  "Encache messages in the FOLDER with NUMBERS."
+(defun elmo-folder-encache (folder numbers &optional unread)
+  "Encache messages in the FOLDER with NUMBERS.
+If UNREAD is non-nil, messages are not marked as read."
   (dolist (number numbers)
-    (elmo-message-encache folder number)))
+    (elmo-message-encache folder number unread)))
 
-(luna-define-generic elmo-message-encache (folder number)
-  "Encache message in the FOLDER with NUMBER.")
+(luna-define-generic elmo-message-encache (folder number &optional read)
+  "Encache message in the FOLDER with NUMBER.
+If READ is non-nil, message is marked as read.")
 
-(luna-define-method elmo-message-encache ((folder elmo-folder) number)
+(luna-define-method elmo-message-encache ((folder elmo-folder) number
+                                         &optional read)
   (elmo-message-fetch
    folder number
    (elmo-make-fetch-strategy 'entire
@@ -531,7 +534,7 @@ Return newly created temporary directory name which contains temporary files.")
                             (elmo-file-cache-get-path
                              (elmo-message-field
                               folder number 'message-id)))
-   nil nil 'unread))
+   nil nil (not read)))
 
 (luna-define-generic elmo-message-fetch (folder number strategy
                                                &optional

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 43febeb..f2bb218 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-summary.el (wl-summary-mark-as-important): If message is
+       already cached, set messag as read, otherwise encache and mark as read.
+
 2001-10-02  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-summary.el (wl-summary-jump-to-current-message): Don't go to

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 6b1dcc7..1c273b2 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4153,9 +4153,10 @@ If ARG, exit virtual folder."
                    (elmo-msgdb-mark-set mark-alist
                                         number
                                         wl-summary-important-mark))
-             (unless (elmo-file-cache-exists-p message-id)
+             (if (elmo-file-cache-exists-p message-id)
+                 (elmo-folder-mark-as-read folder (list number))
                ;; Force cache message.
-               (elmo-message-encache folder number))
+               (elmo-message-encache folder number 'read))
              (unless no-server-update
                (elmo-msgdb-global-mark-set message-id
                                            wl-summary-important-mark)))