(elmo-archive-list-folders): Fix base-folder become nil.

[elisp/wanderlust.git] / elmo / elmo-archive.el

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index e1944ee..39d32a1 100644 (file)
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -426,7 +426,8 @@ TYPE specifies the archiver's symbol."
          (if (string-match "\\(.*\\)/$" base-folder) ; ends with '/'.
              (setq base-folder (elmo-match-string 1 base-folder))
            (unless (file-directory-p path)
-             (setq base-folder (file-name-directory base-folder))))
+             (setq base-folder (or (file-name-directory base-folder)
+                                   base-folder))))
          (delq
           nil
           (mapcar