- (let* ((number-alist (elmo-msgdb-number-load
- (elmo-folder-msgdb-path folder)))
- (number-list (mapcar 'car number-alist))
- (spool-folder (elmo-dop-spool-folder folder))
- spool-length
- (i 0)
- max-num)
- (setq spool-length
- (or (car (if (elmo-folder-exists-p spool-folder)
- (elmo-folder-status spool-folder)))
- 0))
- (setq max-num
- (or (nth (max (- (length number-list) 1) 0) number-list)
- 0))
+ (let ((number-list (sort (elmo-folder-list-messages folder nil 'in-msgdb) '>))
+ (spool-folder (elmo-dop-spool-folder folder))
+ spool-length
+ max-num)
+ (setq spool-length (or (if (elmo-folder-exists-p spool-folder)
+ (car (elmo-folder-status spool-folder)))
+ 0))
+ (setq max-num (or (car number-list) 0))