From a4c0f75f84dc32e9ce47c3b0d309cef46e2cea2b Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 31 Mar 2004 22:24:49 +0000 Subject: [PATCH] * wl-refile.el (wl-refile-guess-by-from): Use elmo-concat-path. --- wl/ChangeLog | 4 ++++ wl/wl-refile.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 191873c..f248bb6 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2004-04-01 Yoichi NAKAYAMA + + * wl-refile.el (wl-refile-guess-by-from): Use elmo-concat-path. + 2004-03-27 Yuuichi Teranishi * 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 --- 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) -- 1.7.10.4