projects / elisp / wanderlust.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: 0f62ef0)
(elmo-archive-list-folders): Fix base-folder become nil.
authormurata <murata>
Sun, 7 May 2000 11:35:39 +0000 (11:35 +0000)
committermurata <murata>
Sun, 7 May 2000 11:35:39 +0000 (11:35 +0000)
elmo/elmo-archive.el patch | blob | history

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