From: hmurata <hmurata>
Date: Tue, 24 Sep 2002 01:46:44 +0000 (+0000)
Subject: * elmo-msgdb.el (elmo-msgdb-set-status): Fixed logic (new to read).
X-Git-Tag: elmo-mark-restart~123
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d3c28b5fc7656bc6b850580fc4ddccd8880d2129;p=elisp%2Fwanderlust.git

* elmo-msgdb.el (elmo-msgdb-set-status): Fixed logic (new to read).
(elmo-msgdb-uncached-marks): Added elmo-msgdb-new-mark.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 08ef145..31563cf 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-msgdb.el (elmo-msgdb-set-status): Fixed logic (new to read).
+	(elmo-msgdb-uncached-marks): Added elmo-msgdb-new-mark.
+
 2002-09-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-filter.el (elmo-folder-diff): Treat 'mark:' filter.
diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 72bb1ad..a44bf0a 100644
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -172,10 +172,8 @@ STATUS is a symbol which is one of the following:
        (case cur-status
 	 ((read important answered))
 	 (t (elmo-msgdb-set-mark msgdb number
-				 (if (and use-cache cur-cached)
-				     (elmo-msgdb-set-mark
-				      msgdb number
-				      elmo-msgdb-read-uncached-mark)))
+				 (if (and use-cache (not cur-cached))
+				     elmo-msgdb-read-uncached-mark))
 	    (setq mark-modified t))))
       (important
        (unless (eq cur-status 'important)
@@ -248,7 +246,8 @@ STATUS is a symbol which is one of the following:
 (defsubst elmo-msgdb-uncached-marks ()
   (or elmo-msgdb-uncached-marks-internal
       (setq elmo-msgdb-uncached-marks-internal
-	    (list elmo-msgdb-answered-uncached-mark
+	    (list elmo-msgdb-new-mark
+		  elmo-msgdb-answered-uncached-mark
 		  elmo-msgdb-unread-uncached-mark
 		  elmo-msgdb-read-uncached-mark))))