(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)
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.