]> git.eshelyaron.com Git - emacs.git/commitdiff
Don't do any sorting at all in gnus-search
authorEric Abrahamsen <eric@ericabrahamsen.net>
Sun, 7 May 2017 04:00:46 +0000 (12:00 +0800)
committerEric Abrahamsen <eric@ericabrahamsen.net>
Fri, 26 May 2017 05:47:43 +0000 (13:47 +0800)
lisp/gnus/gnus-search.el

index 9f027d2ae1e3e17df80e5d9118d230aa83de9e8a..bf53dd2c10b3b8866c1cb56519fb2fcaab877911 100644 (file)
@@ -69,9 +69,6 @@
 (eval-when-compile (require 'cl-lib))
 (autoload 'eieio-build-class-alist "eieio-opt")
 
-(eval-when-compile
-  (require 'nnselect))
-
 (defvar gnus-inhibit-demon)
 (defvar gnus-english-month-names)
 
@@ -2078,12 +2075,7 @@ Assume \"size\" key is equal to \"larger\"."
                 search-engine server prepared-query groups)
                results))))
      (alist-get 'search-group-spec specs))
-    ;; Sort by score.  Couldn't we also then sort by date or
-    ;; something?
-    (sort results
-         (function (lambda (x y)
-                     (> (nnselect-artitem-rsv x)
-                        (nnselect-artitem-rsv y)))))))
+    results))
 
 (defun gnus-search-prepare-query (query-spec)
   "Accept a search query in raw format, and prepare it.