projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
84e7eb2
)
Synch to Gnus 200312211542.
author
yamaoka
<yamaoka>
Mon, 22 Dec 2003 00:07:11 +0000
(
00:07
+0000)
committer
yamaoka
<yamaoka>
Mon, 22 Dec 2003 00:07:11 +0000
(
00:07
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-agent.el
patch
|
blob
|
history
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
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
(file)
--- 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 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)))
(when changed-version
(let ((gnus-agent-article-alist alist))
(gnus-agent-save-alist gnus-agent-read-agentview)))