From 259a3c99c7d26c55326ed45ca65b365089fe6a42 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 19 Jan 2001 01:39:44 +0000 Subject: [PATCH] * elmo-pop3.el (elmo-pop3-sort-overview-by-original-number): Fixed problem when `elmo-pop3-use-uidl' is nil. (Reported by Takenobu Sugiyama ) --- elmo/ChangeLog | 6 ++++++ elmo/elmo-pop3.el | 18 ++++++++++-------- 2 files changed, 16 insertions(+), 8 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 38d1494..8ada519 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,9 @@ +2001-01-19 Yuuichi Teranishi + + * elmo-pop3.el (elmo-pop3-sort-overview-by-original-number): + Fixed problem when `elmo-pop3-use-uidl' is nil. + (Reported by Takenobu Sugiyama ) + 2001-01-18 Yuuichi Teranishi * elmo-version.el (elmo-version): Up to 2.4.1. diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index d2c18de..13ac92b 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -521,14 +521,16 @@ (defalias 'elmo-pop3-msgdb-create 'elmo-pop3-msgdb-create-as-numlist) (defun elmo-pop3-sort-overview-by-original-number (overview loc-alist) - (sort overview - (lambda (ent1 ent2) - (< (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))))))) + (if loc-alist + (sort overview + (lambda (ent1 ent2) + (< (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)))))) + overview)) (defun elmo-pop3-sort-msgdb-by-original-number (msgdb) (message "Sorting...") -- 1.7.10.4