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