Do result limiting in the indexed engine process

* lisp/gnus/gnus-search.el (gnus-search-indexed-parse-output): Limit
  number of results, in case the engine didn't handle it.

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 25933d9210ab60d99118fc58d58cc028cf3a8968..d4b9db17309393bf39d63bfe3b080476d0a755a3 100644 (file)
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1460,6 +1460,12 @@ Returns a list of [group article score] vectors."
     ;; Are we running an additional grep query?
     (when-let ((grep-reg (alist-get 'grep query)))
       (setq artlist (gnus-search-grep-search engine artlist grep-reg)))
+    ;; Some engines do result limiting on their own, some don't.  Just
+    ;; make sure.
+    (when-let ((limit (alist-get 'limit query)))
+      (setq artlist (cl-subseq artlist 0
+                              (min limit (length artlist)))))
+    ;; Turn (file-name score) into [group article score].
     (pcase-dolist (`(,f-name ,score) artlist)
       (setq article (file-name-nondirectory f-name))
       ;; Remove prefix.