diff options
| -rw-r--r-- | lisp/gnus/gnus-search.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el index a59d0e57a79..fc9f8684f63 100644 --- a/lisp/gnus/gnus-search.el +++ b/lisp/gnus/gnus-search.el @@ -1358,9 +1358,12 @@ Returns a list of [group article score] vectors." "\\|"))) artlist vectors article group) (goto-char (point-min)) - (while (not (eobp)) + (while (not (or (eobp) + (looking-at-p + "\\(?:[[:space:]\n]+\\)?Process .+ finished"))) (pcase-let ((`(,f-name ,score) (gnus-search-indexed-extract engine))) - (when (and (file-readable-p f-name) + (when (and f-name + (file-readable-p f-name) (null (file-directory-p f-name)) (or (null groups) (and (gnus-search-single-p query) |