From: dmaus <dmaus>
Date: Thu, 14 Oct 2010 04:12:29 +0000 (+0000)
Subject: * elmo-multi.el (elmo-folder-open-internal-p): Evaluate symbol to
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-2^2~16
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c963ad599920f0e0ba8f663351a8fd385bfc0f3b;p=elisp%2Fwanderlust.git

* elmo-multi.el (elmo-folder-open-internal-p): Evaluate symbol to
return state of child folders.

Original patch by Kazuhiro Ito.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a2d54a7..90353ee 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-14  David Maus  <dmaus@ictsoc.de>
+
+	* elmo-multi.el (elmo-folder-open-internal-p): Evaluate symbol to
+	return state of child folders.
+
 2010-10-13  David Maus  <dmaus@ictsoc.de>
 
 	* elmo-multi.el (elmo-folder-open-internal-p): Start with t and
diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index a661905..f3fd075 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -126,7 +126,7 @@
 
 (luna-define-method elmo-folder-open-internal-p ((folder elmo-multi-folder))
   (let (open t)
-    (dolist (fld (elmo-multi-folder-children-internal folder))
+    (dolist (fld (elmo-multi-folder-children-internal folder) open)
       (setq open (and open (elmo-folder-open-internal-p fld))))))
 
 (luna-define-method elmo-folder-check ((folder elmo-multi-folder))