* wl-refile.el (wl-refile-guess-by-from): Use elmo-concat-path.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 191873c..f248bb6 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-04-01  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-refile.el (wl-refile-guess-by-from): Use elmo-concat-path.
+
 2004-03-27  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-util.el (wl-list-diff): Remove unused function.

diff --git a/wl/wl-refile.el b/wl/wl-refile.el
index 6a294ad..7d9786c 100644 (file)
--- a/wl/wl-refile.el
+++ b/wl/wl-refile.el
@@ -242,8 +242,8 @@ If RULE does not match ENTITY, returns nil."
                    (elmo-message-entity-field entity 'from)))))
     ;; search from alist
     (or (cdr (assoc from wl-refile-alist))
-       (format "%s/%s" wl-refile-default-from-folder
-               (wl-refile-get-account-part-from-address from)))))
+       (elmo-concat-path wl-refile-default-from-folder
+                         (wl-refile-get-account-part-from-address from)))))
 
 (defun wl-refile-guess-by-msgid (entity)
   (cdr (assoc (elmo-message-entity-field entity 'references)