(ange-ftp-gwp-start): Call internal-ange-ftp-mode.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 233936ae04681febddfbce5ab34f67c10443bca5..23ed923064a96bbc636ee090c734824a24820d13 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number."
 ;;;; 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 @@ good, skip, fatal, or unknown."
         ;; 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)