numbers restore)
(let ((numbers (or numbers (elmo-folder-list-messages folder t t))))
(with-temp-buffer
- (buffer-disable-undo (current-buffer))
(dolist (number numbers)
(erase-buffer)
(elmo-spam-message-fetch folder number)
numbers restore)
(let ((numbers (or numbers (elmo-folder-list-messages folder t t))))
(with-temp-buffer
- (buffer-disable-undo (current-buffer))
(dolist (number numbers)
(erase-buffer)
(elmo-spam-message-fetch folder number)