From: Pavel Janík <Pavel@Janik.cz>
Date: Thu, 3 Jan 2002 08:39:44 +0000 (+0000)
Subject: (ange-ftp-shell-command): Remove port specification from the hostname.
X-Git-Tag: ttn-vms-21-2-B4~17347
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cdc51589d5c61f748446b637f65ff64e5e2edbb9;p=emacs.git

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

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