- (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)))))
- ;; Don't save msgdb here.
- ;; Because summary view of original folder is not updated yet.
- (elmo-folder-close-internal src)
- (elmo-folder-set-killed-list-internal src nil)
- (run-hooks 'elmo-pipe-drained-hook))
+ (when (and copy msgs)
+ (setq ignore-list (elmo-number-set-append-list ignore-list
+ msgs)))
+ ;; Don't save msgdb here.
+ ;; Because summary view of original folder is not updated yet.
+ (elmo-folder-close-internal src)
+ (run-hooks 'elmo-pipe-drained-hook)
+ ignore-list))
+
+(defun elmo-pipe-folder-copied-list-load (folder)
+ (elmo-object-load
+ (expand-file-name elmo-pipe-folder-copied-filename
+ (expand-file-name
+ (elmo-replace-string-as-filename
+ (elmo-folder-name-internal folder))
+ (expand-file-name "pipe" elmo-msgdb-directory)))
+ nil t))
+
+(defun elmo-pipe-folder-copied-list-save (folder copied-list)
+ (elmo-object-save
+ (expand-file-name elmo-pipe-folder-copied-filename
+ (expand-file-name
+ (elmo-replace-string-as-filename
+ (elmo-folder-name-internal folder))
+ (expand-file-name "pipe" elmo-msgdb-directory)))
+ copied-list))