Gnus: Add option to sort threads non-recursively

gnus-sum.el (gnus-sort-threads-recursively): New defcustom.
(gnus-sort-threads): Use it.
gnus.texi (Sorting the Summary Buffer): Document new defcustom `gnus-sort-threads-recursively'.

2 files changed, 17 insertions, 3 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index a67c55947ac..c32853a2a9f 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-26  Tassilo Horn  <tsdh@gnu.org>
+
+        * gnus-sum.el (gnus-sort-threads-recursively): New defcustom.
+        (gnus-sort-threads): Use it.
+
 2013-07-25  Andreas Schwab  <schwab@linux-m68k.org>
 
         * gnus-art.el (gnus-button-url-regexp): Make it match url in which
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index f3918b0a215..15cbb5a45e6 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -847,6 +847,13 @@ controls how articles are sorted."
                           (function :tag "other"))
                   (boolean :tag "Reverse order"))))
 
+(defcustom gnus-sort-threads-recursively t
+  "If non-nil, `gnus-thread-sort-functions' are applied recursively.
+Setting this to nil allows sorting high-score, recent,
+etc. threads to the top of the summary buffer while still
+retaining chronological old to new sorting order inside threads."
+  :group 'gnus-summary-sort
+  :type 'boolean)
 
 (defcustom gnus-thread-sort-functions '(gnus-thread-sort-by-number)
   "*List of functions used for sorting threads in the summary buffer.
@@ -4876,9 +4883,11 @@ If LINE, insert the rebuilt thread starting on line LINE."
     (gnus-message 8 "Sorting threads...")
     (prog1
         (condition-case nil
-            (let ((max-lisp-eval-depth (max max-lisp-eval-depth 5000)))
-              (gnus-sort-threads-recursive
-               threads (gnus-make-sort-function gnus-thread-sort-functions)))
+            (let ((max-lisp-eval-depth (max max-lisp-eval-depth 5000))
+                  (sort-func (gnus-make-sort-function gnus-thread-sort-functions)))
+              (if gnus-sort-threads-recursively
+                  (gnus-sort-threads-recursive threads sort-func)
+                (sort threads sort-func)))
           ;; Even after binding max-lisp-eval-depth, the recursive
           ;; sorter might fail for very long threads.  In that case,
           ;; try using a (less well-tested) non-recursive sorter.