[Emacs-diffs] scratch/gnus-search 32a328f 17/30: Fix for parsing delimited strings

[Eric Abrahamsen]

branch: scratch/gnus-search
commit 32a328f83e548c9ba2d07e3efb42cf7696c836d7
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    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'.
---
 lisp/gnus/gnus-search.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index fcbb232..34b6243 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)