From: hmurata <hmurata>
Date: Sun, 26 Oct 2003 01:46:22 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-fetch-callback-1-subr): Fixed last
X-Git-Tag: wl-2_11_20~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ecf2e0eab2320b9356ecbba2291c58f2a81f4e5b;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-fetch-callback-1-subr): Fixed last
change.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ea372c0..bea1bcd 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2003-10-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* elmo-imap4.el (elmo-imap4-fetch-callback-1-subr): Fixed last
+	change.
+
 	* elmo-imap4.el (elmo-imap4-fetch-callback-1-subr): Determine new
 	flag without depending on \Recent flag.
 
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 4341e2a..3bf70f7 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -828,6 +828,7 @@ If CHOP-LENGTH is not specified, message set is not chopped."
 	  (if use-flag
 	      (append
 	       (and (memq 'new saved-flags)
+		    (not (elmo-string-member-ignore-case "\\Seen" flags))
 		    '(new))
 	       (and (elmo-string-member-ignore-case "\\Flagged" flags)
 		    '(important))