From: vitaly <vitaly>
Date: Fri, 15 Jan 2010 18:47:03 +0000 (+0000)
Subject: New custom `elmo-imap4-set-seen-flag-explicitly' to override setting
X-Git-Tag: elmo-imap4-compliance-root~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b9b3d37bba86a79649ec5765b0c5af929d696000;p=elisp%2Fwanderlust.git

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
--- 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
--- 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
--- 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."