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

(elmo-imap4-fetch-callback-1-subr): Determine new
flag without depending on \Recent flag.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d2f5863..ea372c0 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-imap4.el (elmo-imap4-fetch-callback-1-subr): Determine new
+	flag without depending on \Recent flag.
+
 2003-10-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elsp-spamfilter.el (elsp-spamfilter): Added new slot `modified'.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index f2dda4b..4341e2a 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -827,7 +827,7 @@ If CHOP-LENGTH is not specified, message set is not chopped."
 	  flag-list
 	  (if use-flag
 	      (append
-	       (and (elmo-string-member-ignore-case "\\Recent" flags)
+	       (and (memq 'new saved-flags)
 		    '(new))
 	       (and (elmo-string-member-ignore-case "\\Flagged" flags)
 		    '(important))