From 3bf5a2337e8ace0407158c23e4ef3ef6f243b59f Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 10 Oct 2001 14:06:00 +0000 Subject: [PATCH] * wl-expire.el (wl-summary-archive): Fixed; Use `elmo-folder-name-internal'. --- wl/ChangeLog | 5 +++++ wl/wl-expire.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index fd4d42c..fd8489c 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-10-10 Hiroya Murata + + * wl-expire.el (wl-summary-archive): Fixed; + Use `elmo-folder-name-internal'. + 2001-10-08 Hiroya Murata * wl-expire.el (wl-expire-refile): Remove ALL and DONE arguments diff --git a/wl/wl-expire.el b/wl/wl-expire.el index 0537bb7..b2ca640 100644 --- a/wl/wl-expire.el +++ b/wl/wl-expire.el @@ -734,9 +734,12 @@ Refile to archive folder followed message date." archives func args dst-folder archive-list) (if arg (let ((wl-default-spec (char-to-string - (car (rassq 'archive elmo-folder-type-alist))))) + (car (rassq 'archive + elmo-folder-type-alist))))) (setq dst-folder (wl-summary-read-folder - (concat wl-default-spec (substring folder 1)) + (concat wl-default-spec + (substring + (elmo-folder-name-internal folder) 1)) "for archive")))) (run-hooks 'wl-summary-archive-pre-hook) (if dst-folder -- 1.7.10.4