From: teranisi <teranisi>
Date: Fri, 14 Apr 2000 02:41:31 +0000 (+0000)
Subject: 2000-04-14  Nishimoto Masaki <nishimoto@gaju.org>
X-Git-Tag: wl-1_1_1~51
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=416a20235e6d3021c6240ae6122ad5b6a533a90d;p=elisp%2Fwanderlust.git

2000-04-14  Nishimoto Masaki <nishimoto@gaju.org>

	* elmo-archive.el (elmo-archive-list-folders): Don't use
	`file-name-directory'.
---

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 <nishimoto@gaju.org>
+
+	* elmo-archive.el (elmo-archive-list-folders): Don't use
+	`file-name-directory'.
+
 2000-04-07  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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))))