From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 6 Dec 1996 23:18:25 +0000 (+0000)
Subject: (ange-ftp-normal-login): If using a smart gateway,
X-Git-Tag: emacs-20.1~3333
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce1b4c71eb15296baa9efdd6f76810b94b2e22fc;p=emacs.git

(ange-ftp-normal-login): If using a smart gateway,
but ange-ftp-gateway-host is nil, generate the login name
in the usual simple way.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 2e4d0193496..2778e859ccb 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -1926,7 +1926,8 @@ PROC is the process to the FTP-client."
 				(cdr result))))
     (setq result (ange-ftp-raw-send-cmd
 		  proc
-		  (if (ange-ftp-use-smart-gateway-p host)
+		  (if (and (ange-ftp-use-smart-gateway-p host)
+			   ange-ftp-gateway-host)
 		      (format "user \"%s\"@%s %s %s" user nshost pass account)
 		    (format "user \"%s\" %s %s" user pass account))
 		  (format "Logging in as user %s@%s" user host)))