(let ((dir (elmo-maildir-folder-directory-internal folder))
(succeeds numbers)
filename)
- (setq filename (elmo-maildir-temporal-filename dir))
(dolist (number numbers)
+ (setq filename (elmo-maildir-temporal-filename dir))
(elmo-copy-file
(elmo-message-file-name src-folder number)
filename)
filename
(expand-file-name
(concat "new/" (file-name-nondirectory filename))
- dir)))
+ dir))
+ (elmo-progress-notify 'elmo-folder-move-messages))
succeeds)
(luna-call-next-method)))