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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 344c52d..a74326e 100644 (file)
--- 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 (file)
--- 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)))