(ange-ftp-shell-command): Remove port specification from the hostname.

2 files changed, 11 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bac46298bb3..bea449baeca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-01-03  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+        * time.el (display-time-load-average-threshold): Fix defcustom
+        (add type and group).
+
+        * net/ange-ftp.el (ange-ftp-shell-command): Remove port
+        specification from the hostname.
+
 2002-01-02  Richard M. Stallman  <rms@gnu.org>
 
         * facemenu.el (facemenu-active-faces):
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index eaf7319f41b..e97c14fe15a 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4423,6 +4423,9 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
         (ange-ftp-real-shell-command command output-buffer error-buffer)
       (if (> (length name) 0)           ; else it's $HOME
           (setq command (concat "cd " name "; " command)))
+      ;; Remove port from the hostname
+      (string-match "\\(.*\\)#\\(.*\\)" host)
+      (setq host (match-string 1 host))
       (setq command
             (format  "%s %s \"%s\""     ; remsh -l USER does not work well
                                         ; on a hp-ux machine I tried