From 87f2dea980847b95329f4b3d5c6408a6e9387a90 Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 23 Mar 2005 09:33:12 +0000 Subject: [PATCH] * elmo-pipe.el (elmo-folder-close): Define. * elmo-multi.el (elmo-folder-close): Call `elmo-folder-close' with children folders. * elmo-filter.el (elmo-folder-close): Call `elmo-folder-close' with target folder. --- elmo/ChangeLog | 8 ++++++++ elmo/elmo-filter.el | 6 +++--- elmo/elmo-multi.el | 5 +++-- elmo/elmo-pipe.el | 6 +++++- 4 files changed, 19 insertions(+), 6 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index b250dbb..262dac8 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,13 @@ 2005-03-23 Hiroya Murata + * elmo-pipe.el (elmo-folder-close): Define. + + * elmo-multi.el (elmo-folder-close): Call `elmo-folder-close' with + children folders. + + * elmo-filter.el (elmo-folder-close): Call `elmo-folder-close' + with target folder. + * modb-entity.el (elmo-msgdb-message-entity-set-number): Return `number'. diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el index 040d45d..8b56e66 100644 --- a/elmo/elmo-filter.el +++ b/elmo/elmo-filter.el @@ -155,11 +155,11 @@ (luna-define-method elmo-folder-close-internal ((folder elmo-filter-folder)) (elmo-folder-close-internal (elmo-filter-folder-target-internal folder))) -(luna-define-method elmo-folder-close :after ((folder elmo-filter-folder)) +(luna-define-method elmo-folder-close ((folder elmo-filter-folder)) + (elmo-generic-folder-close folder) (elmo-filter-folder-set-number-list-internal folder nil) (elmo-filter-folder-set-flag-count-internal folder nil) - (elmo-folder-set-msgdb-internal - (elmo-filter-folder-target-internal folder) nil)) + (elmo-folder-close (elmo-filter-folder-target-internal folder))) (luna-define-method elmo-folder-commit ((folder elmo-filter-folder)) (elmo-folder-commit (elmo-filter-folder-target-internal folder)) diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el index 4919aee..ba0eaaa 100644 --- a/elmo/elmo-multi.el +++ b/elmo/elmo-multi.el @@ -132,9 +132,10 @@ (dolist (fld (elmo-multi-folder-children-internal folder)) (elmo-folder-close-internal fld))) -(luna-define-method elmo-folder-close :after ((folder elmo-multi-folder)) +(luna-define-method elmo-folder-close ((folder elmo-multi-folder)) + (elmo-generic-folder-close folder) (dolist (fld (elmo-multi-folder-children-internal folder)) - (elmo-folder-set-msgdb-internal fld nil))) + (elmo-folder-close fld))) (luna-define-method elmo-folder-synchronize ((folder elmo-multi-folder) &optional diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el index f052d84..cbf6330 100644 --- a/elmo/elmo-pipe.el +++ b/elmo/elmo-pipe.el @@ -179,7 +179,11 @@ (elmo-folder-open-internal (elmo-pipe-folder-dst-internal folder))) (luna-define-method elmo-folder-close-internal ((folder elmo-pipe-folder)) - (elmo-folder-close-internal(elmo-pipe-folder-dst-internal folder))) + (elmo-folder-close-internal (elmo-pipe-folder-dst-internal folder))) + +(luna-define-method elmo-folder-close ((folder elmo-pipe-folder)) + (elmo-generic-folder-close folder) + (elmo-folder-close (elmo-pipe-folder-dst-internal folder))) (luna-define-method elmo-folder-list-messages ((folder elmo-pipe-folder) &optional visible-only in-msgdb) -- 1.7.10.4