From e6f2de377218789a27f0f2a8bfb10da5eece6699 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 13 Jan 2005 00:53:48 +0000 Subject: [PATCH] (elmo-message-fetch): Unset unread flag on server when message is cached. --- elmo/ChangeLog | 5 +++++ elmo/elmo.el | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index f06c6b4..86921da 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2005-01-13 Yuuichi Teranishi + + * elmo.el (elmo-message-fetch): Unset unread flag on server when + message is cached. + 2005-01-11 Hiroya Murata * elmo.el (elmo-message-fetch): Removed argument `outbuf' and diff --git a/elmo/elmo.el b/elmo/elmo.el index 9c018d1..e42e94a 100644 --- a/elmo/elmo.el +++ b/elmo/elmo.el @@ -1421,7 +1421,13 @@ If Optional LOCAL is non-nil, don't update server flag." strategy section unread) (when (and (not unread) (elmo-message-flagged-p folder number 'unread)) - (elmo-message-unset-flag folder number 'unread 'local)) + (elmo-message-unset-flag folder number 'unread + ;; If cache does not exists, update only msgdb. + ;; otherwise, flag status on server should be + ;; changed since it is never touched at this + ;; point. + (not (elmo-message-flagged-p + folder number 'cached)))) t)) (luna-define-method elmo-message-fetch-with-cache-process ((folder elmo-folder) -- 1.7.10.4