+ (elmo-nmz-folder-pattern-internal folder))
+
+(luna-define-method elmo-folder-have-subfolder-p ((folder elmo-nmz-folder))
+ (null (elmo-nmz-folder-pattern-internal folder)))
+
+(luna-define-method elmo-folder-list-subfolders ((folder elmo-nmz-folder)
+ &optional one-level)
+ (mapcar (lambda (name) (elmo-recover-string-from-filename name))
+ (directory-files (expand-file-name "nmz" elmo-msgdb-directory)
+ nil
+ (concat
+ "^"
+ (regexp-quote
+ (elmo-folder-prefix-internal folder))))))