* elmo-msgdb.el (elmo-msgdb-unset-status): Set mark-modified slot.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6da21a3..12fccfd 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2002-09-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * elmo-msgdb.el (elmo-msgdb-unset-status): Set mark-modified slot.
+
        * elmo-multi.el (elmo-folder-close): Set msgdb of children as nil.
 
 2002-09-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>

diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index a44bf0a..c458262 100644 (file)
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -208,22 +208,27 @@ STATUS is a symbol which is one of the following:
                       'answered)
                      ((not (member cur-mark (elmo-msgdb-unread-marks)))
                       'read)))
-        (cur-cached (not (member cur-mark (elmo-msgdb-uncached-marks)))))
+        (cur-cached (not (member cur-mark (elmo-msgdb-uncached-marks))))
+        mark-modified)
     (case status
       (read
-       (if (eq cur-status 'read)
-          (elmo-msgdb-set-mark msgdb number
-                               (if (and cur-cached use-cache)
-                                   elmo-msgdb-unread-cached-mark
-                                 elmo-msgdb-unread-uncached-mark))))
+       (when (eq cur-status 'read)
+        (elmo-msgdb-set-mark msgdb number
+                             (if (and cur-cached use-cache)
+                                 elmo-msgdb-unread-cached-mark
+                               elmo-msgdb-unread-uncached-mark))
+        (setq mark-modified t)))
       (important
-       (if (eq cur-status 'important)
-          (elmo-msgdb-set-mark msgdb number nil)))
+       (when (eq cur-status 'important)
+        (elmo-msgdb-set-mark msgdb number nil)
+        (setq mark-modified t)))
       (answered
-       (if (eq cur-status 'answered)
-          (elmo-msgdb-set-mark msgdb number
-                               (if (and cur-cached (not use-cache))
-                                   elmo-msgdb-read-uncached-mark)))))))
+       (when (eq cur-status 'answered)
+        (elmo-msgdb-set-mark msgdb number
+                             (if (and cur-cached (not use-cache))
+                                 elmo-msgdb-read-uncached-mark))
+        (setq mark-modified t))))
+    (if mark-modified (elmo-folder-set-mark-modified-internal folder t))))
 
 (defvar elmo-msgdb-unread-marks-internal nil)
 (defsubst elmo-msgdb-unread-marks ()