(lambda (x)
(let ((name (concat (elmo-folder-prefix-internal folder)
(symbol-name x))))
- (if (elmo-folder-have-subfolder-p (elmo-make-folder name))
+ (if (elmo-folder-have-subfolder-p (elmo-get-folder name))
(list name)
name)))
elmo-internal-folder-list)
(lambda (x)
(let* ((name (concat (elmo-folder-prefix-internal folder)
(symbol-name x)))
- (subfolder (elmo-make-folder name)))
+ (subfolder (elmo-get-folder name)))
(if (elmo-folder-have-subfolder-p subfolder)
(elmo-folder-list-subfolders subfolder)
(list name))))