From: murata <murata>
Date: Sun, 7 May 2000 11:35:39 +0000 (+0000)
Subject: (elmo-archive-list-folders): Fix base-folder become nil.
X-Git-Tag: wl-1_1_1~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f1526f1c94388941dcd66fc137a220cb771520e6;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index e1944ee..39d32a1 100644
--- 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