From: okada <okada>
Date: Tue, 17 Oct 2000 18:34:49 +0000 (+0000)
Subject: * wl-expire.el (wl-summary-expire): Fix.
X-Git-Tag: wl-2_4-root~136
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=578b99acf2ab82e3bea2b849166e9e76878a8416;p=elisp%2Fwanderlust.git

* wl-expire.el (wl-summary-expire): Fix.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 344c52d..a74326e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2000-10-18  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-expire.el (wl-summary-expire): Fix.
+
+2000-10-18  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl.el (wl-check-environment): Don't check `wl-trash-folder'
 	and `elmo-lost+found-folder' if 'wl-draft.
 	* wl-draft.el (wl-draft): Call `wl-init' with 'wl-draft.
diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index 2dfaa37..258a316 100644
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -545,17 +545,17 @@ Refile to archive folder followed message date."
 	    (setq delete-list
 		  (cond ((eq rm-type nil) nil)
 			((eq rm-type 'remove)
-			 (car (wl-expire-delete folder delete-list msgdb))
-			 (setq deleting-info "Deleting..."))
+			 (setq deleting-info "Deleting...")
+			 (car (wl-expire-delete folder delete-list msgdb)))
 			((eq rm-type 'trash)
-			 (car (wl-expire-refile folder delete-list msgdb wl-trash-folder))
-			 (setq deleting-info "Deleting..."))
+			 (setq deleting-info "Deleting...")
+			 (car (wl-expire-refile folder delete-list msgdb wl-trash-folder)))
 			((eq rm-type 'hide)
-			 (car (wl-expire-hide folder delete-list msgdb))
-			 (setq deleting-info "Hiding..."))
+			 (setq deleting-info "Hiding...")
+			 (car (wl-expire-hide folder delete-list msgdb)))
 			((stringp rm-type)
-			 (car (wl-expire-refile folder delete-list msgdb rm-type))
-			 (setq deleting-info "Refiling..."))
+			 (setq deleting-info "Refiling...")
+			 (car (wl-expire-refile folder delete-list msgdb rm-type)))
 			((fboundp rm-type)
 			 (apply rm-type (append (list folder delete-list msgdb)
 						args)))