projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch up with main trunk.
[elisp/wanderlust.git]
/
wl
/
wl-expire.el
diff --git
a/wl/wl-expire.el
b/wl/wl-expire.el
index
f3f20b3
..
d3f2b94
100644
(file)
--- a/
wl/wl-expire.el
+++ b/
wl/wl-expire.el
@@
-149,7
+149,6
@@
t
copy
preserve-number
t
copy
preserve-number
- nil
wl-expire-add-seen-list)
(progn
(wl-expire-append-log
wl-expire-add-seen-list)
(progn
(wl-expire-append-log
@@
-205,7
+204,6
@@
If REFILE-LIST includes reserve mark message, so copy."
t
copy-reserve-message
preserve-number
t
copy-reserve-message
preserve-number
- nil
wl-expire-add-seen-list))
(error "Expire: move msgs to %s failed"
(elmo-folder-name-internal dst-folder)))
wl-expire-add-seen-list))
(error "Expire: move msgs to %s failed"
(elmo-folder-name-internal dst-folder)))
@@
-813,7
+811,7
@@
ex. +ml/wl/1999_11/, +ml/wl/1999_12/."
(interactive "P")
(let* ((folder (or folder wl-summary-buffer-elmo-folder))
(msgdb (or (wl-summary-buffer-msgdb)
(interactive "P")
(let* ((folder (or folder wl-summary-buffer-elmo-folder))
(msgdb (or (wl-summary-buffer-msgdb)
- (elmo-msgdb-load folder)))
+ (elmo-folder-msgdb folder)))
(msgs (if (not nolist)
(elmo-folder-list-messages folder)
(mapcar 'car (elmo-msgdb-get-number-alist msgdb))))
(msgs (if (not nolist)
(elmo-folder-list-messages folder)
(mapcar 'car (elmo-msgdb-get-number-alist msgdb))))
@@
-880,7
+878,7
@@
ex. +ml/wl/1999_11/, +ml/wl/1999_12/."
(if (file-writable-p filename)
(write-region (point-min) (point-max)
filename t 'no-msg)
(if (file-writable-p filename)
(write-region (point-min) (point-max)
filename t 'no-msg)
- (message (format "%s is not writable." filename)))
+ (message "%s is not writable." filename))
(kill-buffer tmp-buf)))))
(require 'product)
(kill-buffer tmp-buf)))))
(require 'product)