From d7181085ccee2fc267d29393b2dd96fd2c8d784c Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 25 Sep 2002 03:54:42 +0000 Subject: [PATCH] * elmo-msgdb.el (elmo-msgdb-set-cached): Set mark-modified slot. --- elmo/ChangeLog | 4 ++++ elmo/elmo-msgdb.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 12fccfd..3bd8cbe 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2002-09-25 Yuuichi Teranishi + + * elmo-msgdb.el (elmo-msgdb-set-cached): Set mark-modified slot. + 2002-09-24 Yuuichi Teranishi * elmo-msgdb.el (elmo-msgdb-unset-status): Set mark-modified slot. diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el index c458262..bca16e6 100644 --- a/elmo/elmo-msgdb.el +++ b/elmo/elmo-msgdb.el @@ -129,7 +129,7 @@ if MARK is nil, mark is removed." ((not (member cur-mark (elmo-msgdb-unread-marks))) 'read))) (cur-cached (not (member cur-mark (elmo-msgdb-uncached-marks))))) - (unless (eq (not cached) (not cur-cached)) + (unless (eq cached cur-cached) (case cur-status (read (elmo-msgdb-set-mark msgdb number @@ -145,7 +145,8 @@ if MARK is nil, mark is removed." (elmo-msgdb-set-mark msgdb number (if cached elmo-msgdb-unread-cached-mark - elmo-msgdb-unread-uncached-mark))))))) + elmo-msgdb-unread-uncached-mark)))) + (elmo-folder-set-mark-modified-internal folder t)))) (defun elmo-msgdb-set-status (msgdb folder number status) "Set message status. -- 1.7.10.4