From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 11 Feb 2020 08:49:06 +0000 (+0100)
Subject: Fix problem with auth-source.el in Tramp
X-Git-Tag: emacs-28.0.90~7896
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0129535300838164a8816cf1574d27265832dac;p=emacs.git

Fix problem with auth-source.el in Tramp

* lisp/net/tramp.el (tramp-read-passwd):
Use `tramp-compat-temporary-file-directory'.  (Bug#39389, Bug#39489)
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 0e44656f2a4..6928df4fa60 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4849,7 +4849,12 @@ verbosity of 6."
   "Read a password from user (compat function).
 Consults the auth-source package.
 Invokes `password-read' if available, `read-passwd' else."
-  (let* ((case-fold-search t)
+  (let* (;; If `auth-sources' contains "~/.authinfo.gpg", and
+	 ;; `exec-path' contains a relative file name like ".", it
+	 ;; could happen that the "gpg" command is not found.  So we
+	 ;; adapt `default-directory'.  (Bug#39389, Bug#39489)
+	 (default-directory (tramp-compat-temporary-file-directory))
+	 (case-fold-search t)
 	 (key (tramp-make-tramp-file-name
 	       ;; In tramp-sh.el, we must use "password-vector" due to
 	       ;; multi-hop.