* net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band): Fix

port computation bug.  (Bug#8618)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ec1773b6998d401f6aea7d14c90944ca78fa761..1f13abbf93bf577b56a5e8218eee2e9732011afb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-05  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band): Fix
+       port computation bug.  (Bug#8618)
+
 2011-05-05  Glenn Morris  <rgm@gnu.org>
 
        * allout-widgets.el (allout-widgets-mode-inhibit): Declare before use.

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 81e955ebbf876e2a9cef89dc66e91e407e141f3c..cc404baef0689838dbc101a51c6ab63d1952c4e7 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -2260,8 +2260,8 @@ The method used must be an out-of-band method."
        (setq host (tramp-file-name-host v)
              port "")
        (when (string-match tramp-host-with-port-regexp host)
-         (setq host (string-to-number (match-string 1 host))
-               port (string-to-number (match-string 2 host))))
+         (setq port (string-to-number (match-string 2 host))
+               host (string-to-number (match-string 1 host))))
 
        ;; Compose copy command.
        (setq spec (format-spec-make