From 3d7771a8a3287a753a304af731d3edc9d004ddd2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 22 Dec 2003 00:07:11 +0000 Subject: [PATCH] Synch to Gnus 200312211542. --- lisp/ChangeLog | 5 +++++ lisp/gnus-agent.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) 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 + + * gnus-agent.el (gnus-agent-read-agentview): Use + car-less-than-car. + 2003-12-20 Artem Chuprina (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))) -- 1.7.10.4