From d3c28b5fc7656bc6b850580fc4ddccd8880d2129 Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 24 Sep 2002 01:46:44 +0000 Subject: [PATCH] * elmo-msgdb.el (elmo-msgdb-set-status): Fixed logic (new to read). (elmo-msgdb-uncached-marks): Added elmo-msgdb-new-mark. --- elmo/ChangeLog | 5 +++++ elmo/elmo-msgdb.el | 9 ++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 08ef145..31563cf 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2002-09-24 Hiroya Murata + + * elmo-msgdb.el (elmo-msgdb-set-status): Fixed logic (new to read). + (elmo-msgdb-uncached-marks): Added elmo-msgdb-new-mark. + 2002-09-19 Yuuichi Teranishi * elmo-filter.el (elmo-folder-diff): Treat 'mark:' filter. diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el index 72bb1ad..a44bf0a 100644 --- a/elmo/elmo-msgdb.el +++ b/elmo/elmo-msgdb.el @@ -172,10 +172,8 @@ STATUS is a symbol which is one of the following: (case cur-status ((read important answered)) (t (elmo-msgdb-set-mark msgdb number - (if (and use-cache cur-cached) - (elmo-msgdb-set-mark - msgdb number - elmo-msgdb-read-uncached-mark))) + (if (and use-cache (not cur-cached)) + elmo-msgdb-read-uncached-mark)) (setq mark-modified t)))) (important (unless (eq cur-status 'important) @@ -248,7 +246,8 @@ STATUS is a symbol which is one of the following: (defsubst elmo-msgdb-uncached-marks () (or elmo-msgdb-uncached-marks-internal (setq elmo-msgdb-uncached-marks-internal - (list elmo-msgdb-answered-uncached-mark + (list elmo-msgdb-new-mark + elmo-msgdb-answered-uncached-mark elmo-msgdb-unread-uncached-mark elmo-msgdb-read-uncached-mark)))) -- 1.7.10.4