From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 13 Sep 1998 03:42:11 +0000 (+0000)
Subject: (ange-ftp-insert-file-contents):
X-Git-Tag: emacs-20.4~1703
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7dd24f026123230877fd087b20d5ec6a56126c51;p=emacs.git

(ange-ftp-insert-file-contents):
Use binary mode for dumb-unix hosts as for unix hosts.
(ange-ftp-copy-file-internal): Likewise.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 263fa4b6864..33199d66cbe 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3220,7 +3220,8 @@ system TYPE.")
 		     (name (ange-ftp-quote-string (nth 2 parsed)))
 		     (temp (ange-ftp-make-tmp-name host))
 		     (binary (or (ange-ftp-binary-file filename)
-				 (eq (ange-ftp-host-type host user) 'unix)))
+				 (memq (ange-ftp-host-type host user)
+				       '(unix dumb-unix))))
 		     (abbr (ange-ftp-abbreviate-filename filename))
 		     size)
 		(unwind-protect
@@ -3505,8 +3506,10 @@ system TYPE.")
 	     (t-abbr (ange-ftp-abbreviate-filename newname filename))
 	     (binary (or (ange-ftp-binary-file filename)
 			 (ange-ftp-binary-file newname)
-			 (and (eq (ange-ftp-host-type f-host f-user) 'unix)
-			      (eq (ange-ftp-host-type t-host t-user) 'unix))))
+			 (and (memq (ange-ftp-host-type f-host f-user)
+				    '(unix dumb-unix))
+			      (memq (ange-ftp-host-type t-host t-user)
+				    '(unix dumb-unix)))))
 	     temp1
 	     temp2)