# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 819567047 0
# Node ID 7ccb22bca972d8a1a0246f3fe806f01dd0d9e6c3
# Parent  9cba53e85252127361d62d9300795ab932ef7b84
(ange-ftp-load): Added missing form to `cdr' down
tryfiles in `while' loop.

(ange-ftp-start-process): Bind env var TERM to dumb.

diff -r 9cba53e85252 -r 7ccb22bca972 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Thu Dec 21 17:20:11 1995 +0000
+++ b/lisp/ange-ftp.el	Thu Dec 21 17:30:47 1995 +0000
@@ -1778,7 +1778,10 @@
     ;; It would be nice to make process-connection-type nil,
     ;; but that doesn't work: ftp never responds.
     ;; Can anyone find a fix for that?
-    (let ((process-connection-type t))
+    (let ((process-connection-type t)
+	  (process-environment process-environment))
+      ;; This tells GNU ftp not to output any fancy escape sequences.
+      (setenv "TERM" "dumb")
       (if use-gateway
 	  (if ange-ftp-gateway-program-interactive
 	      (setq proc (ange-ftp-gwp-start host user name args))
@@ -3703,7 +3706,8 @@
 	(while (and tryfiles (not copy))
 	  (condition-case error
 	      (setq copy (ange-ftp-file-local-copy (car tryfiles)))
-	    (ftp-error nil)))
+	    (ftp-error nil))
+	  (setq tryfiles (cdr tryfiles)))
 	(if copy
 	    (unwind-protect
 		(funcall 'load copy noerror nomessage nosuffix)