(elmo-map-message-fetch): Call

`elmo-map-folder-set-flag'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 34c065a..ec82196 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2005-01-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * elmo-maildir.el (elmo-map-message-fetch): Call
+       `elmo-map-folder-set-flag'.
+
        * elmo.el (elmo-message-fetch-with-cache-process): Abolish.
        (elmo-message-fetch): Merge from
        `elmo-message-fetch-with-cache-process'.

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index fd41839..b127b50 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -496,7 +496,10 @@ file name for maildir directories."
                                            &optional section unseen)
   (let ((file (elmo-maildir-message-file-name folder location)))
     (when (file-exists-p file)
-      (insert-file-contents-as-binary file))))
+      (insert-file-contents-as-binary file)
+      (unless unseen
+       (elmo-map-folder-set-flag folder location 'read))
+      t)))
 
 (luna-define-method elmo-folder-exists-p ((folder elmo-maildir-folder))
   (let ((basedir (elmo-maildir-folder-directory-internal folder)))