[Emacs-diffs] master f5543ff: Improve result of `auth-source-search' in Tramp

[Michael Albinus]

branch: master
commit f5543ffcf5b2974fa8fc6cf007e9109fa8e9051e
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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 730972e..e03b614 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)