From 578b99acf2ab82e3bea2b849166e9e76878a8416 Mon Sep 17 00:00:00 2001 From: okada Date: Tue, 17 Oct 2000 18:34:49 +0000 Subject: [PATCH] * wl-expire.el (wl-summary-expire): Fix. --- wl/ChangeLog | 4 ++++ wl/wl-expire.el | 16 ++++++++-------- 2 files changed, 12 insertions(+), 8 deletions(-) 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 + * wl-expire.el (wl-summary-expire): Fix. + +2000-10-18 Kenichi OKADA + * 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))) -- 1.7.10.4