- (message "Sorting...")
- (let ((overview (elmo-msgdb-get-overview msgdb)))
- (elmo-msgdb-set-overview
- msgdb
- (elmo-pop3-sort-overview-by-original-number
- overview
- (elmo-pop3-folder-location-alist-internal folder)))
- (message "Sorting...done")
+ (let ((location-alist (elmo-pop3-folder-location-alist-internal folder)))
+ (when location-alist
+ (elmo-msgdb-sort-entities
+ msgdb
+ (lambda (ent1 ent2 loc-alist)
+ (< (elmo-pop3-uidl-to-number
+ (cdr (assq (elmo-msgdb-overview-entity-get-number ent1)
+ loc-alist)))
+ (elmo-pop3-uidl-to-number
+ (cdr (assq (elmo-msgdb-overview-entity-get-number ent2)
+ loc-alist)))))
+ location-alist))