From b9b3d37bba86a79649ec5765b0c5af929d696000 Mon Sep 17 00:00:00 2001 From: vitaly Date: Fri, 15 Jan 2010 18:47:03 +0000 Subject: [PATCH] New custom `elmo-imap4-set-seen-flag-explicitly' to override setting of Seen flag for some buggy servers. --- elmo/ChangeLog | 4 ++++ elmo/elmo-imap4.el | 2 ++ elmo/elmo-vars.el | 6 ++++++ 3 files changed, 12 insertions(+) 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 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." -- 1.7.10.4