From 8edf74cc765af509b2a945c9a2985100ac1cff4b Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 17 Jan 2003 09:57:28 +0000 Subject: [PATCH] * elmo-localdir.el (elmo-folder-expand-msgdb-path): Expand dir-name only if it is absolute path. (TODO: distinguish +/something and +something) --- elmo/ChangeLog | 6 ++++++ elmo/elmo-localdir.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 2cb67fc..6b12cb4 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,9 @@ +2003-01-17 Yoichi NAKAYAMA + + * 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 * elmo-localdir.el (elmo-folder-expand-msgdb-path): Correct msgdb diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el index 664204e..3f3c8d4 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" -- 1.7.10.4