Fixes: debbugs:19047

* net/tramp.el (tramp-action-password): Clean password on subsequent
attempts even if there was no wrong password indication.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 148d77ffa9c4cbd448d61534bd65be494cc554b7..0f16eabdc033f0a241386ea3c23b7ba63c13713e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-11-22  Michael Albinus  <michael.albinus@gmx.de>
 
+       * net/tramp.el (tramp-action-password): Clean password on subsequent
+       attempts even if there was no wrong password indication.  (Bug#19047)
+
        * net/tramp-sh.el (tramp-get-remote-locale): Return "LC_ALL=C" as
        fallback.
        (tramp-open-connection-setup-interactive-shell): No need to check

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 085b527a57fbada989556d47126ba1420a9b370c..fc9950d4a694290989de4b7a83bc7af039c0bc02 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3445,9 +3445,9 @@ of."
       ;; Let's check whether a wrong password has been sent already.
       ;; Sometimes, the process returns a new password request
       ;; immediately after rejecting the previous (wrong) one.
-      (goto-char (point-min))
-      (when (search-forward-regexp tramp-wrong-passwd-regexp nil t)
+      (unless (tramp-get-connection-property vec "first-password-request" nil)
        (tramp-clear-passwd vec))
+      (goto-char (point-min))
       (tramp-check-for-regexp proc tramp-password-prompt-regexp)
       (tramp-message vec 3 "Sending %s" (match-string 1))
       ;; We don't call `tramp-send-string' in order to hide the