master b76864e: Fix TEXT check in gnus-search IMAP search

[Eric Abrahamsen]

branch: master
commit b76864ef5513a9c1f7fe1138266dfab47f6fe350
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Fix TEXT check in gnus-search IMAP search
    
    * lisp/gnus/gnus-search.el (gnus-search-run-search): It's a string,
    not a buffer!
---
 lisp/gnus/gnus-search.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index f3e0851..0783d34 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)))