(ange-ftp-passive-mode): New arg PROC.

(ange-ftp-get-process): Pass that arg.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 61b3f151645b69d1b8d0a109af3e6d3c5225124b..ae86391ffbc8f2f72e52a30539bd7fe576a8e398 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -2120,14 +2120,14 @@ Create a new process if needed."
                                   'string-match)
                    (if ange-ftp-try-passive-mode "on"))))
          (if passive
-             (ange-ftp-passive-mode passive)))
+             (ange-ftp-passive-mode proc passive)))
 
        ;; Run any user-specified hooks.  Note that proc, host and user are
        ;; dynamically bound at this point.
        (run-hooks 'ange-ftp-process-startup-hook))
       proc)))
 
-(defun ange-ftp-passive-mode (on-or-off)
+(defun ange-ftp-passive-mode (proc on-or-off)
   (if (string-match (concat "Passive mode " on-or-off)
                     (cdr (ange-ftp-raw-send-cmd
                           proc (concat "passive " on-or-off)