X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-localdir.el;h=3f3c8d4c59b1a04cb2ae2bcc1ab3fbab78f97080;hb=aa17faed23890f965bec841a9e3794532bf5e89b;hp=a4ced4cfc9897575954b28066ee1b57ace7d52c0;hpb=00e2ea4e5c95dd3985ec91de3114828d032230b5;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index a4ced4c..3f3c8d4 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -91,9 +91,12 @@
     'identity
     (mapcar
      'elmo-replace-string-as-filename
-     (split-string (expand-file-name
-		    (elmo-localdir-folder-dir-name-internal folder))
-		   "/"))
+     (split-string
+      (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"
     (symbol-name (elmo-folder-type-internal folder))