From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Thu, 4 May 2017 05:03:34 +0000 (+0800)
Subject: Missing a base implementation of transform-expression for strings
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc541ba3f8a849d3fb56d26c5c4073f51027a969;p=emacs.git

Missing a base implementation of transform-expression for strings

* lisp/gnus/gnus-search.el (gnus-search-transform-expression):
  Othewise plain string searches would raise an error!
---

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index bc9aa9b808b..e8a7eee79ea 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1086,6 +1086,11 @@ Responsible for handling and, or, and parenthetical expressions.")
     query)
    (mapconcat #'identity (reverse clauses) " ")))
 
+;; Most search engines just pass through plain strings.
+(cl-defmethod gnus-search-transform-expression ((_ gnus-search-engine)
+						(expr string))
+  expr)
+
 ;; Most search engines use implicit ANDs.
 (cl-defmethod gnus-search-transform-expression ((_ gnus-search-engine)
 						(_expr (eql and)))