(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 263fa4b6864773f982d1ac1e0b237e2f1c5dfc15..33199d66cbe597b831b143f410a2f7e04bce15a4 100644 (file)
--- 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)