From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Sat, 6 Feb 2021 17:29:53 +0000 (-0800)
Subject: Fix TEXT check in gnus-search IMAP search
X-Git-Tag: emacs-28.0.90~3904
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b76864ef5513a9c1f7fe1138266dfab47f6fe350;p=emacs.git

Fix TEXT check in gnus-search IMAP search

* lisp/gnus/gnus-search.el (gnus-search-run-search): It's a string,
not a buffer!
---

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index f3e08519c3e..0783d34733a 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1040,7 +1040,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 (or (looking-at "(")
+      (unless (or (eql ?\( (aref q-string 0))
 		  (and (string-match "\\`[^[:blank:]]+" q-string)
 		       (memql (intern-soft (downcase
 					    (match-string 0 q-string)))