tramp-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: trouble connecting to davs


From: Michael Albinus
Subject: Re: trouble connecting to davs
Date: Fri, 04 Feb 2022 13:59:58 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux)

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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]