* net/tramp-smb.el (tramp-smb-maybe-open-connection): Fix an error

introduced on 2013-09-08, which results in an infinite loop
requesting a password.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3031dde7d8..1283b3099af 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-10-18  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp-smb.el (tramp-smb-maybe-open-connection): Fix an error
+        introduced on 2013-09-08, which results in an infinite loop
+        requesting a password.
+
 2013-10-18  Glenn Morris  <rgm@gnu.org>
 
         * progmodes/verilog-mode.el (verilog-case-fold): Add :version.
@@ -121,7 +127,7 @@
         connection property.
 
         * net/tramp-cache.el (top): Suppress traces when reading
-        presistency file.
+        persistency file.
 
         * net/tramp-sh.el (tramp-sh-handle-file-notify-add-watch):
         Refactor common code.  Improve debug message.
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 4270ad1671c..fe7097edbde 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -1901,9 +1901,9 @@ If ARGUMENT is non-nil, use it as argument for
                             (search-forward-regexp
                              tramp-smb-wrong-passwd-regexp nil t))
                        ;; Disable `auth-source' and `password-cache'.
-                       (tramp-message
-                        vec 3 "Retry connection with new password")
                        (let (auth-sources)
+                         (tramp-message
+                          vec 3 "Retry connection with new password")
                          (tramp-cleanup-connection vec t)
                          (tramp-smb-maybe-open-connection vec argument))
                      ;; Propagate the error.