From e5a79f85859100bc7ec39c5f7efb8a925e027191 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 4 Aug 2003 02:47:33 +0000 Subject: [PATCH] * elmo-filter.el (elmo-folder-set-message-modified): Define. * elmo-multi.el (elmo-folder-set-message-modified): Ditto. --- elmo/ChangeLog | 6 ++++++ elmo/elmo-filter.el | 7 +++++++ elmo/elmo-multi.el | 6 ++++++ 3 files changed, 19 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index f5b3620..606819a 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,9 @@ +2003-08-04 Yuuichi Teranishi + + * elmo-filter.el (elmo-folder-set-message-modified): Define. + + * elmo-multi.el (elmo-folder-set-message-modified): Ditto. + 2003-08-03 Hiroya Murata * elmo.el (elmo-folder-set-message-modified): New method. diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el index 1241285..1afaae2 100644 --- a/elmo/elmo-filter.el +++ b/elmo/elmo-filter.el @@ -77,6 +77,13 @@ (elmo-folder-set-msgdb-internal (elmo-filter-folder-target-internal folder) nil))) +(luna-define-method elmo-folder-set-message-modified ((folder + elmo-filter-folder) + modified) + (if (elmo-filter-folder-require-msgdb-internal folder) + (elmo-folder-set-message-modified-internal + (elmo-filter-folder-target-internal folder) modified))) + (luna-define-method elmo-folder-commit :around ((folder elmo-filter-folder)) ;; Save target msgdb if it is used. (if (elmo-filter-folder-require-msgdb-internal folder) diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el index 511a942..ded52a4 100644 --- a/elmo/elmo-multi.el +++ b/elmo/elmo-multi.el @@ -517,6 +517,12 @@ (elmo-folder-list-flagged child flag in-msgdb))))) numbers)) +(luna-define-method elmo-folder-set-message-modified ((folder + elmo-multi-folder) + modified) + (dolist (child (elmo-multi-folder-children-internal folder)) + (elmo-folder-set-message-modified child modified))) + (luna-define-method elmo-folder-commit ((folder elmo-multi-folder)) (dolist (child (elmo-multi-folder-children-internal folder)) (elmo-folder-commit child))) -- 1.7.10.4