From: teranisi <teranisi>
Date: Thu, 17 Jul 2003 13:51:13 +0000 (+0000)
Subject: * elmo-localdir.el (elmo-folder-append-messages): Treat flags for
X-Git-Tag: elmo-mark-restart~37
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d486ba365defd5b28784efe6edf7eea22112bb64;p=elisp%2Fwanderlust.git

* elmo-localdir.el (elmo-folder-append-messages): Treat flags for
local file messages.
(elmo-folder-msgdb-create): Fixed read mark.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ef6538f..04709d3 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -2,6 +2,7 @@
 
 	* elmo-localdir.el (elmo-folder-append-messages): Treat flags for
 	local file messages.
+	(elmo-folder-msgdb-create): Fixed read mark.
 
 2003-07-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 7af928a..780031b 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -168,11 +168,13 @@
 				       num
 				       message-id))
 	  (if (setq gmark (or (elmo-msgdb-global-mark-get message-id)
-			      (elmo-msgdb-mark
-			       (elmo-flag-table-get flag-table message-id)
-			       (elmo-file-cache-status
-				(elmo-file-cache-get message-id))
-			       'new)))
+			      (unless (eq 'read (elmo-flag-table-get 
+						 flag-table message-id))
+				(elmo-msgdb-mark
+				 (elmo-flag-table-get flag-table message-id)
+				 (elmo-file-cache-status
+				  (elmo-file-cache-get message-id))
+				 'new))))
 	      (setq mark-alist
 		    (elmo-msgdb-mark-append
 		     mark-alist