New custom `elmo-imap4-set-seen-flag-explicitly' to override setting

of Seen flag for some buggy servers.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8f40169..ddf1133 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -18,6 +18,10 @@
        elmo-imap4-read-response, elmo-imap4-read-untagged,
        elmo-imap4-parse-response): Change deprecated time-stamp-hh:mm:ss
        to format-time-string.
+       * elmo-vars.el (toplevel): New custom
+       `elmo-imap4-set-seen-flag-explicitly' to override setting of Seen
+       flag for some buggy servers.
+       * elmo-imap4.el (elmo-message-fetch-plugged): Ditto
 
 2010-01-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 2853370..7f2bcc4 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2780,6 +2780,8 @@ If optional argument REMOVE is non-nil, remove FLAG."
                                                number strategy
                                                &optional section
                                                outbuf unseen)
+  (when elmo-imap4-set-seen-flag-explicitly
+    (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)

diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index badbce5..5872699 100644 (file)
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -121,6 +121,12 @@ you have to add it to `elmo-digest-flags'.
   "A hook called just before the nntp posting.")
 
 ;;; IMAP4
+(defcustom elmo-imap4-set-seen-flag-explicitly
+  nil
+  "*Set Seen flag explicitly (avoid bug in Google Mail)"
+  :type 'boolean
+  :group 'elmo
+  :group 'elmo-setting)
 
 (defcustom elmo-imap4-default-server "localhost"
   "*Default IMAP4 server."