t
copy
preserve-number
+ nil
wl-expire-add-seen-list)
(progn
(wl-expire-append-log
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)))
(interactive "P")
(let* ((folder (or folder wl-summary-buffer-elmo-folder))
(msgdb (or (wl-summary-buffer-msgdb)
- (elmo-folder-msgdb folder)))
+ (elmo-msgdb-load folder)))
(msgs (if (not nolist)
(elmo-folder-list-messages folder)
(mapcar 'car (elmo-msgdb-get-number-alist msgdb))))