# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1011231623 0
# Node ID b719a1276b3126d57574bd994d30436e9040a16d
# Parent  327786c48101790601d6ff33050d3098bf45a542
(ange-ftp-passive-mode): New arg PROC.
(ange-ftp-get-process): Pass that arg.

diff -r 327786c48101 -r b719a1276b31 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Thu Jan 17 01:40:04 2002 +0000
+++ b/lisp/net/ange-ftp.el	Thu Jan 17 01:40:23 2002 +0000
@@ -2120,14 +2120,14 @@
 				   '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)