From: teranisi <teranisi>
Date: Tue, 24 Sep 2002 07:44:51 +0000 (+0000)
Subject: * elmo-msgdb.el (elmo-msgdb-unset-status): Set mark-modified slot.
X-Git-Tag: elmo-mark-restart~119
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e87e3299e8249807f7718413281cc46c11e6a34d;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6da21a3..12fccfd 100644
--- 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
--- 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 ()