* gnus-sum.el (gnus-thread-sort-by-most-recent-number): Fix typo.

	From: Damien Wyart <damien.wyart@free.fr>

	* gnus-util.el (gnus-local-map-property): In Emacs 21, use keymap.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7e322e..972a5cb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-01-06  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-thread-sort-by-most-recent-number): Fix typo.
+       From: Damien Wyart <damien.wyart@free.fr>
+
+       * gnus-util.el (gnus-local-map-property): In Emacs 21, use keymap.
+
 2002-01-05  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-sum.el (gnus-select-group-hook): Typo.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e60c4e5..17ee3b3 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4167,7 +4167,7 @@ Unscored articles will be counted as having a score of zero."
     (gnus-thread-total-score-1 (list thread)))))
 
 (defun gnus-thread-sort-by-most-recent-number (h1 h2)
-  "Sort threads such that the thread with the most recently arrived article is comes first."
+  "Sort threads such that the thread with the most recently arrived article comes first."
   (> (gnus-thread-highest-number h1) (gnus-thread-highest-number h2)))
 
 (defun gnus-thread-highest-number (thread)
@@ -4177,11 +4177,11 @@ Unscored articles will be counted as having a score of zero."
                      (message-flatten-list thread))))
 
 (defun gnus-thread-sort-by-most-recent-date (h1 h2)
-  "Sort threads such that the thread with the most recently arrived article is comes first."
-  (> (gnus-thread-highest-number h1) (gnus-thread-highest-number h2)))
+  "Sort threads such that the thread with the most recently dated article comes first."
+  (> (gnus-thread-latest-date h1) (gnus-thread-latest-date h2)))
 
 (defun gnus-thread-latest-date (thread)
-  "Return the highest article number in THREAD."
+  "Return the highest article date in THREAD."
   (let ((previous-time 0))
     (apply 'max (mapcar
                 (lambda (header)

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 96a9966..a6b53db 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1227,7 +1227,7 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
    ((featurep 'xemacs)
     (list 'keymap map))
    ((>= emacs-major-version 21)
-    nil)
+    (list 'keymap map))
    (t
     (list 'local-map map))))