aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-12-06 23:18:25 +0000
committerKarl Heuer1996-12-06 23:18:25 +0000
commitce1b4c71eb15296baa9efdd6f76810b94b2e22fc (patch)
tree53ef59245c642347ea9840bf91e8c989cb91009a
parent58ce35fbd715f725cefb0e7d112ce79b0ab7a88a (diff)
downloademacs-ce1b4c71eb15296baa9efdd6f76810b94b2e22fc.tar.gz
emacs-ce1b4c71eb15296baa9efdd6f76810b94b2e22fc.zip
(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.
-rw-r--r--lisp/ange-ftp.el3
1 files changed, 2 insertions, 1 deletions
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."
1926 (cdr result)))) 1926 (cdr result))))
1927 (setq result (ange-ftp-raw-send-cmd 1927 (setq result (ange-ftp-raw-send-cmd
1928 proc 1928 proc
1929 (if (ange-ftp-use-smart-gateway-p host) 1929 (if (and (ange-ftp-use-smart-gateway-p host)
1930 ange-ftp-gateway-host)
1930 (format "user \"%s\"@%s %s %s" user nshost pass account) 1931 (format "user \"%s\"@%s %s %s" user nshost pass account)
1931 (format "user \"%s\" %s %s" user pass account)) 1932 (format "user \"%s\" %s %s" user pass account))
1932 (format "Logging in as user %s@%s" user host))) 1933 (format "Logging in as user %s@%s" user host)))