From: teranisi <teranisi>
Date: Tue, 3 Apr 2001 02:15:52 +0000 (+0000)
Subject: * wl-expire.el (wl-expire-refile): Fixed.
X-Git-Tag: wl-2_6-root^3~66
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=132c12324f166d7883caf5cdb92f6fb1a673b2e2;p=elisp%2Fwanderlust.git

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

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  <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
--- 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))))