From f5543ffcf5b2974fa8fc6cf007e9109fa8e9051e Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 28 Oct 2016 17:08:14 +0200 Subject: [PATCH] Improve result of `auth-source-search' in Tramp * lisp/net/tramp.el (tramp-read-passwd): Require :secret and :user in result of `auth-source-search'. --- lisp/net/tramp.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 730972e0c4e..e03b614b3f4 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4160,7 +4160,10 @@ Invokes `password-read' if available, `read-passwd' else." :max 1 :user (or tramp-current-user t) :host tramp-current-host - :port tramp-current-method) + :port tramp-current-method + :require + (cons + :secret (and tramp-current-user '(:user)))) auth-passwd (plist-get (nth 0 auth-info) :secret) auth-passwd (if (functionp auth-passwd) -- 2.39.5