From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Sun, 7 May 2017 04:00:46 +0000 (+0800)
Subject: Don't do any sorting at all in gnus-search
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37e044feb6191dc120d558c043b383e18569bcdb;p=emacs.git

Don't do any sorting at all in gnus-search
---

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 9f027d2ae1e..bf53dd2c10b 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -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.