From: hmurata <hmurata>
Date: Wed, 23 Mar 2005 09:33:12 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-folder-close): Define.
X-Git-Tag: wl-2_15_3~107
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=87f2dea980847b95329f4b3d5c6408a6e9387a90;p=elisp%2Fwanderlust.git

* 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.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* 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)