From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Thu, 4 May 2017 05:08:49 +0000 (+0800)
Subject: Fix for parsing delimited strings
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32a328f83e548c9ba2d07e3efb42cf7696c836d7;p=emacs.git

Fix for parsing delimited strings

* lisp/gnus/gnus-search.el (gnus-search-query-next-symbol): Hadn't
  quite gotten this all the way over to the new definition of
  `gnus-search-query-return-string'.
---

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index fcbb2326978..34b62430dc2 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -562,9 +562,9 @@ returning the one at the supplied position."
        ((looking-at "\\bnot\\b") (forward-char 3) 'not)
        ((looking-at "\\bnear\\b") (forward-char 4) 'near)
        ;; Plain string, no keyword
-       ((looking-at "\"?\\b[^:]+\\([[:blank:]]\\|\\'\\)")
+       ((looking-at "[\"/]?\\b[^:]+\\([[:blank:]]\\|\\'\\)")
 	(gnus-search-query-return-string
-	 (when (looking-at "\"") "\"")))
+	 (when (looking-at-p "[\"/]") t)))
        ;; Assume a K:V expression.
        (t (let ((key (gnus-search-query-expand-key
 		      (buffer-substring
@@ -573,7 +573,7 @@ returning the one at the supplied position."
 			 (re-search-forward ":" (point-at-eol) t)
 			 (1- (point))))))
 		(value (gnus-search-query-return-string
-			(when (looking-at "\"") "\""))))
+			(when (looking-at-p "[\"/]") t))))
 	    (gnus-search-query-parse-kv key value)))))))
 
 (defun gnus-search-query-parse-kv (key value)