Added workaround for non-storing the "Seen" flag.

In the Gmail case Wl stores this flag only for messages with status
"u" (unseen, cached), but not for "U" (unseen, uncached) and "N"
(new, uncached). This is a bug in Google's imap server, but, well, fix it
in our mail client...

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 1f2576d..f9a111f 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2792,6 +2792,7 @@ If optional argument REMOVE is non-nil, remove FLAG."
                                                number strategy
                                                &optional section
                                                outbuf unseen)
+  (elmo-imap4-set-flag folder (list number) "\\Seen")
   (elmo-imap4-message-fetch folder number strategy section outbuf unseen))
 
 (luna-define-method elmo-message-fetch-field ((folder elmo-imap4-folder)