From: dmaus <dmaus>
Date: Fri, 3 Jun 2011 11:01:26 +0000 (+0000)
Subject: Don't mark unread messages with important or answered flag read
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-2^2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e850c48cb4d2dd2818f4e7ad244e67a1d78dfede;p=elisp%2Fwanderlust.git

Don't mark unread messages with important or answered flag read

* elmo-imap4.el (elmo-imap4-fetch-callback-1-subr): Don't mark unread
  messages with important or answered flag read.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3aea9d3..15e36c7 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-03  David Maus  <dmaus@ictsoc.de>
+
+	* elmo-imap4.el (elmo-imap4-fetch-callback-1-subr): Don't mark
+	unread messages with important or answered flag read.
+
 2011-05-29  David Maus  <dmaus@ictsoc.de>
 
 	* elmo-imap4.el (elmo-network-authenticate-session): Always ask
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 788f28e..c118af6 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -939,12 +939,6 @@ If CHOP-LENGTH is not specified, message set is not chopped."
 	       (and (elmo-file-cache-exists-p msg-id)
 		    '(cached)))
 	    saved-flags))
-    (when (and (or (memq 'important flag-list)
-		   (memq 'answered flag-list))
-	       (memq 'unread flag-list))
-      (setq elmo-imap4-seen-messages
-	    (cons (elmo-message-entity-number entity)
-		  elmo-imap4-seen-messages)))
     (elmo-msgdb-append-entity elmo-imap4-current-msgdb
 			      entity
 			      flag-list)))