mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

(ange-ftp-normal-login): If using a smart gateway,

Browse Source 
but ange-ftp-gateway-host is nil, generate the login name
in the usual simple way.
This commit is contained in:
Karl Heuer 1996-12-06 23:18:25 +00:00
parent 58ce35fbd7
commit ce1b4c71eb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ange-ftp.el
View File

@ -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)))