From: teranisi <teranisi>
Date: Wed, 25 Sep 2002 03:54:42 +0000 (+0000)
Subject: * elmo-msgdb.el (elmo-msgdb-set-cached): Set mark-modified slot.
X-Git-Tag: elmo-mark-restart~118
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d7181085ccee2fc267d29393b2dd96fd2c8d784c;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 12fccfd..3bd8cbe 100644
--- 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
--- 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.