From: hmurata <hmurata>
Date: Thu, 13 Jan 2005 11:00:35 +0000 (+0000)
Subject: (elmo-map-message-fetch): Call
X-Git-Tag: wl-2_14-root~88
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=90be4301855eb04b29f378988a9b30b7a8c4cb22;p=elisp%2Fwanderlust.git

(elmo-map-message-fetch): Call
`elmo-map-folder-set-flag'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 34c065a..ec82196 100644
--- 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
--- 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)))