# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769733048 0
# Node ID c363ad97af4a90e9e80e5b1389c8f9870e3eb347
# Parent  eb26954fb7678501de4419391d5e7d10b5534c11
(ange-ftp-gwp-start): Call internal-ange-ftp-mode.

diff -r eb26954fb767 -r c363ad97af4a lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Mon May 23 20:09:33 1994 +0000
+++ b/lisp/ange-ftp.el	Mon May 23 22:44:08 1994 +0000
@@ -851,7 +851,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.50 $")
+(defconst ange-ftp-version "$Revision: 1.51 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -1621,14 +1621,17 @@
 	 ;; but that doesn't work: ftp never responds.
 	 ;; Can anyone find a fix for that?
 	 (proc (let ((process-connection-type t))
-		 (start-process name name 
+		 (start-process name name
 				ange-ftp-gateway-program
 				ange-ftp-gateway-host)))
 	 (ftp (mapconcat (function identity) args " ")))
     (process-kill-without-query proc)
     (set-process-sentinel proc (function ange-ftp-gwp-sentinel))
     (set-process-filter proc (function ange-ftp-gwp-filter))
-    (set-marker (process-mark proc) (point))
+    (save-excursion
+      (set-buffer (process-buffer proc))
+      (internal-ange-ftp-mode)
+      (set-marker (process-mark proc) (point)))
     (setq ange-ftp-gwp-running t
 	  ange-ftp-gwp-status nil)
     (ange-ftp-message "Connecting to gateway %s..." ange-ftp-gateway-host)