- ;; Warnnig: some function requires msgdb
- ;; but elmo-folder-open-internal do not load msgdb.
- (elmo-folder-open-internal src)
- (setq msgs (elmo-pipe-folder-list-target-messages src ignore-list)
- len (length msgs))
- (when (> len elmo-display-progress-threshold)
- (elmo-progress-set 'elmo-folder-move-messages
- len
- (if copy
- "Copying messages..."
- "Moving messages...")))