From 3460cecc07d9e5b646fee8b6d40627204f6bb263 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 5 Oct 2010 19:12:22 +0200 Subject: [PATCH 1/1] (gnus-article-sort-by-most-recent-date): New function, added for symmetry. --- lisp/ChangeLog | 3 +++ lisp/gnus-sum.el | 8 ++++++++ 2 files changed, 11 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d676b8383..0532694aa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-10-05 Lars Magne Ingebrigtsen + * gnus-sum.el (gnus-article-sort-by-most-recent-date): New function, + added for symmetry. + * nnir.el (nnir-retrieve-headers): Don't bug out on invalid data. * gnus-group.el (gnus-group-make-group): Doc fix. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index a0e38d4f4..484837f7f 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -4985,6 +4985,10 @@ Unscored articles will be counted as having a score of zero." (t (gnus-thread-total-score-1 (list thread))))) +(defun gnus-article-sort-by-most-recent-number (h1 h2) + "Sort articles by number." + (gnus-article-sort-by-number h1 h2)) + (defun gnus-thread-sort-by-most-recent-number (h1 h2) "Sort threads such that the thread with the most recently arrived article comes first." (> (gnus-thread-highest-number h1) (gnus-thread-highest-number h2))) @@ -4995,6 +4999,10 @@ Unscored articles will be counted as having a score of zero." (mail-header-number header)) (message-flatten-list thread)))) +(defun gnus-article-sort-by-most-recent-date (h1 h2) + "Sort articles by number." + (gnus-article-sort-by-date h1 h2)) + (defun gnus-thread-sort-by-most-recent-date (h1 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))) -- 2.25.1