From: teranisi <teranisi>
Date: Thu, 13 Jan 2005 00:53:48 +0000 (+0000)
Subject: (elmo-message-fetch): Unset unread flag on server when
X-Git-Tag: wl-2_14-root~92
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e6f2de377218789a27f0f2a8bfb10da5eece6699;p=elisp%2Fwanderlust.git

(elmo-message-fetch): Unset unread flag on server when
message is cached.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index f06c6b4..86921da 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo.el (elmo-message-fetch): Unset unread flag on server when
+	message is cached.
+
 2005-01-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo.el (elmo-message-fetch): Removed argument `outbuf' and
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 9c018d1..e42e94a 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1421,7 +1421,13 @@ If Optional LOCAL is non-nil, don't update server flag."
 					       strategy section unread)
     (when (and (not unread)
 	       (elmo-message-flagged-p folder number 'unread))
-      (elmo-message-unset-flag folder number 'unread 'local))
+      (elmo-message-unset-flag folder number 'unread
+			       ;; If cache does not exists, update only msgdb.
+			       ;; otherwise, flag status on server should be
+			       ;; changed since it is never touched at this
+			       ;; point.
+			       (not (elmo-message-flagged-p
+				     folder number 'cached))))
     t))
 
 (luna-define-method elmo-message-fetch-with-cache-process ((folder elmo-folder)