(luna-define-method elmo-folder-initialize ((folder elmo-access-folder) name)
(elmo-access-folder-set-base-folder-internal
folder
- (elmo-make-folder name))
+ (elmo-get-folder name))
(elmo-multi-folder-set-children-internal
folder
- (mapcar #'elmo-make-folder
+ (mapcar #'elmo-get-folder
(elmo-object-load
(expand-file-name elmo-access-folder-list-filename
(elmo-folder-msgdb-path folder)))))
folder
elmo-multi-divide-number)
(elmo-access-folder-update-children folder)
+ (elmo-multi-connect-signals folder)
folder)
(luna-define-method elmo-folder-expand-msgdb-path ((folder elmo-access-folder))
(if subfolders
(nconc children
(mapcar (lambda (name)
- (let ((folder (elmo-make-folder name)))
+ (let ((folder (elmo-get-folder name)))
(when open
(elmo-folder-open-internal folder))
folder))