From: teranisi <teranisi>
Date: Tue, 24 Sep 2002 02:09:57 +0000 (+0000)
Subject: * elmo-multi.el (elmo-folder-close): Set msgdb of children as nil.
X-Git-Tag: elmo-mark-restart~121
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c15ff812158c7fac4e86cc15b48609cb5d2c11de;p=elisp%2Fwanderlust.git

* elmo-multi.el (elmo-folder-close): Set msgdb of children as nil.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 31563cf..6da21a3 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-multi.el (elmo-folder-close): Set msgdb of children as nil.
+
 2002-09-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-msgdb.el (elmo-msgdb-set-status): Fixed logic (new to read).
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))