diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2021-02-06 09:29:53 -0800 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2021-02-06 09:29:53 -0800 |
| commit | b76864ef5513a9c1f7fe1138266dfab47f6fe350 (patch) | |
| tree | db8b97c5e30c745c6d41b34bbaf0b233459ada28 | |
| parent | 29e9cf291eb35a77ad782e56effddf2fa00ee96c (diff) | |
| download | emacs-b76864ef5513a9c1f7fe1138266dfab47f6fe350.tar.gz | |
Fix TEXT check in gnus-search IMAP search
* lisp/gnus/gnus-search.el (gnus-search-run-search): It's a string,
not a buffer!
| -rw-r--r-- | lisp/gnus/gnus-search.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |