diff options
author | Karl Heuer <[email protected]> | 1998-09-13 03:42:11 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1998-09-13 03:42:11 +0000 |
commit | 7dd24f026123230877fd087b20d5ec6a56126c51 (patch) | |
tree | 4a86e06e1ddd10af32846c23242e452a57ac0d5a /lisp/ange-ftp.el | |
parent | a994501e3253088640cc8f921a3e1cfa60b5be90 (diff) |
(ange-ftp-insert-file-contents):
Use binary mode for dumb-unix hosts as for unix hosts.
(ange-ftp-copy-file-internal): Likewise.
Diffstat (limited to 'lisp/ange-ftp.el')
-rw-r--r-- | lisp/ange-ftp.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 263fa4b686..33199d66cb 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) |