From: yamaoka <yamaoka>
Date: Mon, 22 Dec 2003 00:07:11 +0000 (+0000)
Subject: Synch to Gnus 200312211542.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3d7771a8a3287a753a304af731d3edc9d004ddd2;p=elisp%2Fgnus.git-

Synch to Gnus 200312211542.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1c37c8..38c9baa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-21  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-agent.el (gnus-agent-read-agentview): Use
+	car-less-than-car.
+
 2003-12-20  Artem Chuprina <ran@ran.pp.ru>  (tiny change)
 
 	* message.el (message-yank-buffer): Bind message-reply-buffer to
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 598444e..e87d52e 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1788,9 +1788,7 @@ FILE and places the combined headers into `nntp-server-buffer'."
 			   (setq uncomp (cons (cons article-id state) uncomp)))
 			 sequence)))
 	     alist)
-	    (setq alist (sort uncomp
-			      (lambda (first second)
-				(< (car first) (car second))))))))
+	    (setq alist (sort uncomp 'car-less-than-car)))))
         (when changed-version
           (let ((gnus-agent-article-alist alist))
             (gnus-agent-save-alist gnus-agent-read-agentview)))