From: yoichi <yoichi>
Date: Fri, 17 Jan 2003 09:59:28 +0000 (+0000)
Subject: * elmo-localdir.el (elmo-folder-expand-msgdb-path): Expand
X-Git-Tag: wl-2_10_1pre~51
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=158d76afcd9b25ea8369062dfc53984f2f1435fc;p=elisp%2Fwanderlust.git

* elmo-localdir.el (elmo-folder-expand-msgdb-path): Expand
dir-name only if it is absolute path.
(TODO: distinguish +/something and +something)
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 27091e5..3571646 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2003-01-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* elmo-localdir.el (elmo-folder-expand-msgdb-path): Expand
+	dir-name only if it is absolute path.
+	(TODO: distinguish +/something and +something)
+
 2003-01-15  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* elmo-localdir.el (elmo-folder-expand-msgdb-path): Correct msgdb
diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 5f4c77f..7b7f114 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -92,7 +92,10 @@
     (mapcar
      'elmo-replace-string-as-filename
      (split-string
-      (expand-file-name (elmo-localdir-folder-dir-name-internal folder))
+      (let ((dir-name (elmo-localdir-folder-dir-name-internal folder)))
+	(if (file-name-absolute-p dir-name)
+	    (expand-file-name dir-name)
+	  dir-name))
       "/"))
     "/")
    (expand-file-name ;;"localdir"