- (onum-alist (elmo-msgdb-get-number-alist msgdb))
- (omark-alist (elmo-msgdb-get-mark-alist msgdb))
- (new-number 1) ; first ordinal position in localdir
- flist onum mark new-mark-alist total)
- (setq flist
- (if elmo-pack-number-check-strict
- (elmo-folder-list-messages folder) ; allow localnews
- (mapcar 'car onum-alist)))
- (setq total (length flist))
- (while flist
- (when (> total elmo-display-progress-threshold)
- (elmo-display-progress
- 'elmo-folder-pack-numbers "Packing..."
- (/ (* new-number 100) total)))
- (setq onum (car flist))
- (when (not (eq onum new-number)) ; why \=() is wrong..
- (elmo-bind-directory
- dir
- ;; xxx nfs,hardlink
- (rename-file (int-to-string onum) (int-to-string new-number) t))
- ;; update overview
- (elmo-msgdb-overview-entity-set-number
- (elmo-msgdb-overview-get-entity onum msgdb)
- new-number)
- ;; update number-alist
- (setcar (assq onum onum-alist) new-number))
- ;; update mark-alist
- (when (setq mark (cadr (assq onum omark-alist)))
- (setq new-mark-alist
- (elmo-msgdb-mark-append
- new-mark-alist
- new-number mark)))
- (setq new-number (1+ new-number))
- (setq flist (cdr flist)))
+ (new-msgdb (elmo-make-msgdb (elmo-folder-msgdb-path folder)))
+ (numbers (sort (elmo-folder-list-messages
+ folder
+ nil
+ (not elmo-pack-number-check-strict))
+ '<))
+ (new-number 1) ; first ordinal position in localdir
+ total entity)
+ (setq total (length numbers))
+ (elmo-with-progress-display (> total elmo-display-progress-threshold)
+ (elmo-folder-pack-numbers total "Packing...")
+ (dolist (old-number numbers)
+ (setq entity (elmo-msgdb-message-entity msgdb old-number))
+ (when (not (eq old-number new-number)) ; why \=() is wrong..
+ (elmo-bind-directory
+ dir
+ ;; xxx nfs,hardlink
+ (rename-file (int-to-string old-number)
+ (int-to-string new-number) t))
+ (elmo-msgdb-overview-entity-set-number entity new-number))
+ (elmo-msgdb-append-entity new-msgdb entity
+ (elmo-msgdb-flags msgdb old-number))
+ (setq new-number (1+ new-number))))