bug#46271: 28.0.50; [PATCH] Properly quote group names for gnus-search

[Basil L. Contovounesios]

jflack--- via "Bug reports for GNU Emacs, the Swiss army knife of text
editors" <bug-gnu-emacs@gnu.org> writes:

> diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
> index 44f43b073c..54603d8792 100644
> =2D-- a/lisp/gnus/gnus-search.el
> +++ b/lisp/gnus/gnus-search.el
> @@ -82,6 +82,7 @@
>  (require 'gnus-util)
>  (require 'eieio)
>  (eval-when-compile (require 'cl-lib))
> +(eval-when-compile (require 'rx))

No need for this; rx is preloaded.

>  (autoload 'eieio-build-class-alist "eieio-opt")
>  (autoload 'nnmaildir-base-name-to-article-number "nnmaildir")
> =20
> @@ -1380,8 +1381,8 @@ gnus-search-indexed-parse-output
>                        (lambda (x)
>                          (replace-regexp-in-string
>                           ;; Accept any of [.\/] as path separators.
> =2D                       "[.\\/]" "[.\\\\/]"
> =2D                       (gnus-group-real-name x)))
> +                         (rx (or "\\." "\\\\" "/")) "[.\\\\/]"
> +                         (regexp-quote (gnus-group-real-name x))))
>                        groups "\\|")))
>       artlist vectors article group)
>      (goto-char (point-min))

BTW, your mail content seems to be mangled somewhere:
https://debbugs.gnu.org/46271.

-- 
Basil