projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
abd32e2
)
* wl-expire.el (wl-summary-expire): Fix.
author
okada
<okada>
Tue, 17 Oct 2000 18:34:49 +0000
(18:34 +0000)
committer
okada
<okada>
Tue, 17 Oct 2000 18:34:49 +0000
(18:34 +0000)
wl/ChangeLog
patch
|
blob
|
history
wl/wl-expire.el
patch
|
blob
|
history
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>
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.
* 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)
(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)
((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)
((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)
((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)))
((fboundp rm-type)
(apply rm-type (append (list folder delete-list msgdb)
args)))