# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1010047125 0
# Node ID 09f1b967d12e02f4304810becf61a691243707b3
# Parent  35eeafd85667aad31d56bea7cc3cb60f2b48d0e8
(ange-ftp-shell-command): Remove port specification from the hostname.

diff -r 35eeafd85667 -r 09f1b967d12e lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Thu Jan 03 08:37:40 2002 +0000
+++ b/lisp/net/ange-ftp.el	Thu Jan 03 08:38:45 2002 +0000
@@ -4423,6 +4423,9 @@
 	(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