* elmo-msgdb.el (elmo-msgdb-set-cached): Set mark-modified slot.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 12fccfd..3bd8cbe 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-msgdb.el (elmo-msgdb-set-cached): Set mark-modified slot.
+
 2002-09-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-msgdb.el (elmo-msgdb-unset-status): Set mark-modified slot.

diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index c458262..bca16e6 100644 (file)
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -129,7 +129,7 @@ if MARK is nil, mark is removed."
                      ((not (member cur-mark (elmo-msgdb-unread-marks)))
                       'read)))
         (cur-cached (not (member cur-mark (elmo-msgdb-uncached-marks)))))
-    (unless (eq (not cached) (not cur-cached))
+    (unless (eq cached cur-cached)
       (case cur-status
        (read
         (elmo-msgdb-set-mark msgdb number
@@ -145,7 +145,8 @@ if MARK is nil, mark is removed."
         (elmo-msgdb-set-mark msgdb number
                              (if cached
                                  elmo-msgdb-unread-cached-mark
-                               elmo-msgdb-unread-uncached-mark)))))))
+                               elmo-msgdb-unread-uncached-mark))))
+      (elmo-folder-set-mark-modified-internal folder t))))
 
 (defun elmo-msgdb-set-status (msgdb folder number status)
   "Set message status.