+ (unwind-protect
+ (elmo-folder-move-messages src msgs dst
+ nil nil copy)
+ (elmo-progress-clear 'elmo-folder-move-messages))
+ (if (and copy msgs)
+ (progn
+ (elmo-msgdb-append-to-killed-list src msgs)
+ ;; for save killed-list instead of elmo-folder-close-internal
+ (elmo-msgdb-killed-list-save
+ (elmo-folder-msgdb-path src)
+ (elmo-folder-killed-list-internal src)))))