(gnus-agent-read-agentview): Use

car-less-than-car.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1c37c8..38c9baa 100644 (file)
--- 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 c19695d..811d276 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1767,9 +1767,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)))