From: teranisi <teranisi>
Date: Tue, 27 Feb 2001 08:56:17 +0000 (+0000)
Subject: * elmo-localdir.el (elmo-folder-expand-msgdb-path): Fixed msgdb path
X-Git-Tag: wl-2_8-root^2~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=733b6c76e54181e42c8ec1e8e8ca8f3caec2c9fe;p=elisp%2Fwanderlust.git

* elmo-localdir.el (elmo-folder-expand-msgdb-path): Fixed msgdb path
(To keep compatibility with main trunk).
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e8b4e81..134e43f 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2001-02-27  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-localdir.el (elmo-folder-expand-msgdb-path): Fixed
+	msgdb path (To keep compatibility with main trunk).
+
 	* elmo-vars.el (elmo-inhibit-number-mapping): New variable.
 
 	* elmo-util.el (elmo-make-file-cache): Moved position of
diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index f041c58..e64360d 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -87,8 +87,13 @@
 (luna-define-method elmo-folder-expand-msgdb-path ((folder
 						    elmo-localdir-folder))
   (expand-file-name 
-   (elmo-replace-string-as-filename 
-    (elmo-localdir-folder-dir-name-internal folder))
+   (mapconcat
+    'identity
+    (mapcar 
+     'elmo-replace-string-as-filename
+     (split-string (elmo-localdir-folder-dir-name-internal folder)
+		   "/"))
+    "/")
    (expand-file-name ;;"localdir"
     (symbol-name (elmo-folder-type-internal folder))
     elmo-msgdb-dir)))