From: teranisi <teranisi>
Date: Mon, 4 Oct 2004 14:32:12 +0000 (+0000)
Subject: (elmo-concat-path): Treat empty path.
X-Git-Tag: wl-2_12-root~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=40ceb878ed4b4ca67d5759da5cdc3f2f90d76186;p=elisp%2Fwanderlust.git

(elmo-concat-path): Treat empty path.
---

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 81e11d4..b88573e 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -398,9 +398,12 @@ Return value is a cons cell of (STRUCTURE . REST)"
 
 (defun elmo-concat-path (path filename)
   (if (not (string= path ""))
-      (if (string= elmo-path-sep (substring path (- (length path) 1)))
-	  (concat path filename)
-	(concat path elmo-path-sep filename))
+      (elmo-replace-in-string
+       (if (string= elmo-path-sep (substring path (- (length path) 1)))
+	   (concat path filename)
+	 (concat path elmo-path-sep filename))
+       (concat (regexp-quote elmo-path-sep)(regexp-quote elmo-path-sep))
+       elmo-path-sep)
     filename))
 
 (defvar elmo-passwd-alist nil)