From e87e3299e8249807f7718413281cc46c11e6a34d Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 24 Sep 2002 07:44:51 +0000 Subject: [PATCH] * elmo-msgdb.el (elmo-msgdb-unset-status): Set mark-modified slot. --- elmo/ChangeLog | 2 ++ elmo/elmo-msgdb.el | 29 +++++++++++++++++------------ 2 files changed, 19 insertions(+), 12 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 6da21a3..12fccfd 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,7 @@ 2002-09-24 Yuuichi Teranishi + * elmo-msgdb.el (elmo-msgdb-unset-status): Set mark-modified slot. + * elmo-multi.el (elmo-folder-close): Set msgdb of children as nil. 2002-09-24 Hiroya Murata diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el index a44bf0a..c458262 100644 --- a/elmo/elmo-msgdb.el +++ b/elmo/elmo-msgdb.el @@ -208,22 +208,27 @@ STATUS is a symbol which is one of the following: 'answered) ((not (member cur-mark (elmo-msgdb-unread-marks))) 'read))) - (cur-cached (not (member cur-mark (elmo-msgdb-uncached-marks))))) + (cur-cached (not (member cur-mark (elmo-msgdb-uncached-marks)))) + mark-modified) (case status (read - (if (eq cur-status 'read) - (elmo-msgdb-set-mark msgdb number - (if (and cur-cached use-cache) - elmo-msgdb-unread-cached-mark - elmo-msgdb-unread-uncached-mark)))) + (when (eq cur-status 'read) + (elmo-msgdb-set-mark msgdb number + (if (and cur-cached use-cache) + elmo-msgdb-unread-cached-mark + elmo-msgdb-unread-uncached-mark)) + (setq mark-modified t))) (important - (if (eq cur-status 'important) - (elmo-msgdb-set-mark msgdb number nil))) + (when (eq cur-status 'important) + (elmo-msgdb-set-mark msgdb number nil) + (setq mark-modified t))) (answered - (if (eq cur-status 'answered) - (elmo-msgdb-set-mark msgdb number - (if (and cur-cached (not use-cache)) - elmo-msgdb-read-uncached-mark))))))) + (when (eq cur-status 'answered) + (elmo-msgdb-set-mark msgdb number + (if (and cur-cached (not use-cache)) + elmo-msgdb-read-uncached-mark)) + (setq mark-modified t)))) + (if mark-modified (elmo-folder-set-mark-modified-internal folder t)))) (defvar elmo-msgdb-unread-marks-internal nil) (defsubst elmo-msgdb-unread-marks () -- 1.7.10.4