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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bac46298bb3dec4b458ab074ab75f34173ba285d..bea449baeca8acae0dcd536ba52db70f17fdc401 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-01-03  Pavel Jan\e,Bm\e(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 eaf7319f41b913c8308172c2eeae65b98677f535..e97c14fe15a7d67cfa051f0a9cb32826a7983480 100644 (file)
--- 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