(luna-define-method elmo-folder-create ((folder elmo-maildir-folder))
(let ((basedir (elmo-maildir-folder-directory-internal folder)))
(condition-case nil
(luna-define-method elmo-folder-create ((folder elmo-maildir-folder))
(let ((basedir (elmo-maildir-folder-directory-internal folder)))
(condition-case nil