From 416a20235e6d3021c6240ae6122ad5b6a533a90d Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 14 Apr 2000 02:41:31 +0000 Subject: [PATCH] 2000-04-14 Nishimoto Masaki * elmo-archive.el (elmo-archive-list-folders): Don't use `file-name-directory'. --- elmo/ChangeLog | 5 +++++ elmo/elmo-archive.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index b85ee9b..6e04cc4 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2000-04-14 Nishimoto Masaki + + * elmo-archive.el (elmo-archive-list-folders): Don't use + `file-name-directory'. + 2000-04-07 Yuuichi Teranishi * elmo-dop.el (elmo-dop-queue-flush): Add optional argument `force'. diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el index 323d47b..eedc4c1 100644 --- a/elmo/elmo-archive.el +++ b/elmo/elmo-archive.el @@ -408,7 +408,7 @@ TYPE specifies the archiver's symbol." (elmo-localdir-folder-path elmo-archive-folder-path)) (if elmo-archive-treat-file (let* ((path (elmo-localdir-get-folder-directory spec)) - (base-folder (or (file-name-directory (nth 1 spec)) "")) + (base-folder (or (nth 1 spec) "")) (suffix (nth 2 spec)) (prefix (if (string= (nth 3 spec) "") "" (concat ";" (nth 3 spec)))) -- 1.7.10.4