Commit cb85dcd0 authored by Michael Albinus's avatar Michael Albinus
Browse files

* net/tramp.el (tramp-read-passwd): Cached passwords shall still be used.

parent 18288ba7
2009-02-01 Michael Albinus <michael.albinus@gmx.de>
Sync with Tramp 2.1.15.
* net/tramp.el (tramp-read-passwd): Cached passwords shall still be
used.
* net/tramp-cache.el (top): Autoload `tramp-run-real-handler'.
* net/trampver.el: Update release number.
2009-02-01 Stefan Monnier <monnier@iro.umontreal.ca>
 
* mail/rmail.el (rmail-view-buffer): Make buffer-local.
......
......@@ -3664,7 +3664,7 @@ the result will be a local, non-Tramp, filename."
(buffer-substring (point) (tramp-compat-line-end-position)))))
(setq localname (concat uname fname))))
;; There might be a double slash, for example when "~/"
;; expands to "/". Remove this.
;; expands to "/". Remove this.
(while (string-match "//" localname)
(setq localname (replace-match "/" t t localname)))
;; No tilde characters in file name, do normal
......@@ -7433,12 +7433,14 @@ Invokes `password-read' if available, `read-passwd' else."
(funcall (symbol-function 'auth-source-user-or-password)
"password" tramp-current-host tramp-current-method))
;; Try the password cache.
(and (functionp 'password-read)
(tramp-get-connection-property proc "first-password-request" nil)
(let ((password (funcall (symbol-function 'password-read)
pw-prompt key)))
(funcall (symbol-function 'password-cache-add) key password)
password))
(when (functionp 'password-read)
(unless (tramp-get-connection-property
proc "first-password-request" nil)
(funcall (symbol-function 'password-cache-remove) key))
(let ((password
(funcall (symbol-function 'password-read) pw-prompt key)))
(funcall (symbol-function 'password-cache-add) key password)
password))
;; Else, get the password interactively.
(read-passwd pw-prompt))
(tramp-set-connection-property proc "first-password-request" nil))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment