From f1526f1c94388941dcd66fc137a220cb771520e6 Mon Sep 17 00:00:00 2001 From: murata Date: Sun, 7 May 2000 11:35:39 +0000 Subject: [PATCH] (elmo-archive-list-folders): Fix base-folder become nil. --- elmo/elmo-archive.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 1.7.10.4