From c963ad599920f0e0ba8f663351a8fd385bfc0f3b Mon Sep 17 00:00:00 2001 From: dmaus Date: Thu, 14 Oct 2010 04:12:29 +0000 Subject: [PATCH] * elmo-multi.el (elmo-folder-open-internal-p): Evaluate symbol to return state of child folders. Original patch by Kazuhiro Ito. --- elmo/ChangeLog | 5 +++++ elmo/elmo-multi.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * elmo-multi.el (elmo-folder-open-internal-p): Evaluate symbol to + return state of child folders. + 2010-10-13 David Maus * 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)) -- 1.7.10.4