X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-multi.el;h=5be1400ad6412c98b735b23d688ea977c6f10526;hb=64eb91d7fe775e78e0f1e6555b595e40f391260a;hp=d756f3c7791ded1dddcdfa2781314854df2d96f7;hpb=ae59e87f9883e19514c3ba8b7c11238015e42856;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index d756f3c..5be1400 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -71,9 +71,9 @@
   (dolist (fld (elmo-multi-folder-children-internal folder))
     (elmo-folder-close-internal fld)))
 
-(luna-define-method elmo-folder-close :around ((folder elmo-multi-folder))
+(luna-define-method elmo-folder-close :after ((folder elmo-multi-folder))
   (dolist (fld (elmo-multi-folder-children-internal folder))
-    (elmo-folder-close fld)))
+    (elmo-folder-set-msgdb-internal fld nil)))
 
 (luna-define-method elmo-folder-expand-msgdb-path ((folder
 						    elmo-multi-folder))