(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))