From: teranisi <teranisi>
Date: Fri, 19 Jan 2001 01:39:44 +0000 (+0000)
Subject: * elmo-pop3.el (elmo-pop3-sort-overview-by-original-number):
X-Git-Tag: wl-2_4_1~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=259a3c99c7d26c55326ed45ca65b365089fe6a42;p=elisp%2Fwanderlust.git

* elmo-pop3.el (elmo-pop3-sort-overview-by-original-number):
 Fixed problem when `elmo-pop3-use-uidl' is nil.
 (Reported by Takenobu Sugiyama <sugiyama@ae.advantest.co.jp>)
---

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  <teranisi@gohome.org>
+
+	* elmo-pop3.el (elmo-pop3-sort-overview-by-original-number):
+	Fixed problem when `elmo-pop3-use-uidl' is nil.
+	(Reported by Takenobu Sugiyama <sugiyama@ae.advantest.co.jp>)
+
 2001-01-18  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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...")