From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Fri, 18 Dec 2020 03:16:00 +0000 (-0800)
Subject: Fix regexp in IMAP search-string preparation
X-Git-Tag: emacs-28.0.90~4672
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3f83a89aa7da460615064390273c87844bdb0dc;p=emacs.git

Fix regexp in IMAP search-string preparation

* lisp/gnus/gnus-search.el (gnus-search-run-search): This was failing
to catch all of X-GM-RAW.
---

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 829e0fa3ad1..16f3a024aa6 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1071,7 +1071,7 @@ Responsible for handling and, or, and parenthetical expressions.")
       ;; A bit of backward-compatibility slash convenience: if the
       ;; query string doesn't start with any known IMAP search
       ;; keyword, assume it is a "TEXT" search.
-      (unless (and (string-match "\\`[[:word:]]+" q-string)
+      (unless (and (string-match "\\`[^ [:blank:]]+" q-string)
 		   (memql (intern-soft (downcase
 					(match-string 0 q-string)))
 			  gnus-search-imap-search-keys))