From 132c12324f166d7883caf5cdb92f6fb1a673b2e2 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 3 Apr 2001 02:15:52 +0000 Subject: [PATCH] * wl-expire.el (wl-expire-refile): Fixed. --- wl/ChangeLog | 4 ++++ wl/wl-expire.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 537c986..7aa4914 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2001-04-03 Yuuichi Teranishi + + * wl-expire.el (wl-expire-refile): Fixed. + 2001-04-02 Yuuichi Teranishi * wl-vars.el (wl-biff-unnotify-hook): New variable. diff --git a/wl/wl-expire.el b/wl/wl-expire.el index dcfaf0c..e68aca8 100644 --- a/wl/wl-expire.el +++ b/wl/wl-expire.el @@ -119,7 +119,7 @@ (defun wl-expire-refile (folder refile-list msgdb dst-folder &optional no-reserve-marks preserve-number copy) "Refile message for expire. If COPY is non-nil, copy message." - (when (not (string= folder dst-folder)) + (when (not (string= (elmo-folder-name-internal folder) dst-folder)) (unless no-reserve-marks (setq refile-list (wl-expire-delete-reserve-marked-msgs-from-list @@ -128,6 +128,7 @@ (let* ((doingmes (if copy "Copying %s" "Expiring (move %s)")) + (dst-folder (wl-folder-get-elmo-folder dst-folder)) (mess (format (concat doingmes " %s msgs...") (elmo-folder-name-internal dst-folder) (length refile-list)))) -- 1.7.10.4