bug#72196: 30.0.60; gnus-search-indexed-search-command passes incorrect maildir argument to mu

[Eli Zaretskii <eliz@gnu.org>]

> From: Visuwesh <visuweshm@gmail.com>
> Date: Fri, 19 Jul 2024 14:22:23 +0530
> 
> Other related bug reports may be
> 
>     1. bug#6685
>     2. https://inbox.vuxu.org/ding/87350ziqeh.fsf@alshehhi.io/
> 
> My gnus-search configuration for a nnmaildir group is:
> 
>     (nnmaildir "visuweshm@"
>                (get-new-mail t)
>                (directory ,(expand-file-name "~/mail/visuweshm@gmail.com"))
>                (gnus-search-engine gnus-search-mu
>                  (config-directory ,(expand-file-name "~/.cache/mu/visuweshm@gmail.com/"))
>                  (remove-prefix ,(expand-file-name "~/mail/visuweshm@gmail.com/"))))
> 
> However, I always get
> 
>     Group nnselect:nnselect-87ttgl238u.fsf contains no messages
> 
> no matter the query.  I placed a message statement in
> 
>     (cl-defmethod gnus-search-indexed-search-command ((engine gnus-search-mu)
> 
> to print the arguments to mu, and it revealed that maildir argument
> passed to it is not correct:
> 
>     ("find" "--nocolor" "--muhome=/home/viz/.cache/mu/visuweshm@gmail.com/" "" "" "from:gnu.org" "and" "(" "maildir:/nnmaildir+visuweshm@:inbox" ")" "--format=plain" "--fields=l")
> 
> I ran the query using G G with the point on
> 
>     *      0: nnmaildir+visuweshm@:inbox
> 
> The maildir: query should be "maildir:inbox" instead.  To fix this, I
> have
> 
>     (with-eval-after-load 'gnus-search
>       ;; gnus-search should strip the server name part from the group
>       ;; name, but it doesn't causing mu to fail.
>       (cl-defmethod gnus-search-run-search :around ((engine gnus-search-indexed)
>                                                     server query groups)
>         (cl-call-next-method engine server query
>                              (mapcar (lambda (x)
>                                        ;; From `gnus-group-real-name'.
>                                        (if (string-match "^[^:]+:" x)
>                                        (substring x (match-end 0))
>                                          x))
>                                      groups))))
> 
> in my config which strips off nnmaildir+visuweshm@: bit and this got the
> mu search to work ever since I added it in ~March this year.

Thanks.

Eric, could you please look into this?