* wl-expire.el (wl-expire-refile): Fixed.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 537c986..7aa4914 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-04-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-expire.el (wl-expire-refile): Fixed.
+
 2001-04-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * 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 (file)
--- 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))))