Re: trouble connecting to davs

[bermel]

Thank you. I had to apply LANGUAGE as environment variable instead of
LANG (even though LANG affects the current-language-environment
variable of Emacs). Now it uses English locale and it works.

However, I didn't mange to apply the patch. Emacs is installed via snap
and I learned that it is not easy to modify files within snap as it
applies a read-only file-format. So I will wait for the next version.

Thanks again and regards, bermel







Am Freitag, dem 04.02.2022 um 13:59 +0100 schrieb Michael Albinus:
> bermel <bermel@email.de> writes:
>
> > Debug buffer:
>
> Thanks. It still uses German locale, though:
>
> --8<---------------cut here---------------start------------->8---
> > 13:39:08.302097 tramp-call-process (6) # ‘gio info
> > davs://xy.xy@webdav.smartdrive.web.de/’ nil *tramp/davs
> > xy.xy@webdav.smartdrive.web.de*
> > 13:39:08.420292 tramp-call-process (6) # 0
> > Anzeigename: /
> > Name bearbeiten: /
> > Name: /
> --8<---------------cut here---------------end--------------->8---
>
> Well, the patch to cure it is:
>
> --8<---------------cut here---------------start------------->8---
> diff --git a/lisp/tramp-gvfs.el b/lisp/tramp-gvfs.el
> index 948f3b8..83b5de6 100644
> --- a/lisp/tramp-gvfs.el
> +++ b/lisp/tramp-gvfs.el
> @@ -2253,13 +2253,7 @@ connection if a previous connection has died
> for some reason."
>  COMMAND is a command from the gvfs-* utilities.  It is replaced
>  by the corresponding gio tool call if available.  `call-process'
>  is applied, and it returns t if the return code is zero."
> -  (let* ((locale (tramp-get-local-locale vec))
> -      (process-environment
> -       (append
> -        `(,(format "LANG=%s" locale)
> -          ,(format "LANGUAGE=%s" locale)
> -          ,(format "LC_ALL=%s" locale))
> -        process-environment)))
> +  (let ((locale (tramp-get-local-locale vec)))
>      (when (tramp-gvfs-gio-tool-p vec)
>        ;; Use gio tool.
>        (setq args (cons (cdr (assoc command tramp-gvfs-gio-mapping))
> @@ -2269,7 +2263,14 @@ is applied, and it returns t if the return
> code is zero."
>      (with-current-buffer (tramp-get-connection-buffer vec)
>        (tramp-gvfs-maybe-open-connection vec)
>        (erase-buffer)
> -      (or (zerop (apply #'tramp-call-process vec command nil t nil
> args))
> +      (or (zerop
> +        (apply
> +         #'tramp-call-process vec "env" nil t nil
> +         (append `(,(format "LANG=%s" locale)
> +                   ,(format "LANGUAGE=%s" locale)
> +                   ,(format "LC_ALL=%s" locale)
> +                   ,command)
> +                 args)))
>         ;; Remove information about mounted connection.
>         (and (tramp-flush-file-properties vec "/") nil)))))
> --8<---------------cut here---------------end--------------->8---
>
> I haven't checked whether this applies to Tramp 2.4, but maybe you
> give
> it a try?
>
> Best regards, Michael.