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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 020cc4e71cbc8698967741e918bd7026e8f854fd..c86e665a8ebdded86bc9d8f55f623c6ce0a0a7b7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+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.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index e222a01a273495c9af54f8e7bbde73e60da3df48..e2e603a6b0a7a211d6f34614e917701b45b70144 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -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))))