From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Fri, 21 May 2021 20:35:38 +0000 (-0700)
Subject: Robustify parsing of gnus-search search results
X-Git-Tag: emacs-28.0.90~2364
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fe343a44cdd83c43793c86b92ab5dd16a29bc3a;p=emacs.git

Robustify parsing of gnus-search search results

* lisp/gnus/gnus-search.el (gnus-search-indexed-parse-output): Look
for a "process finished" tag, and don't choke on mis-parsed lines.
---

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)