Mercurial > emacs
changeset 23246:3741d2ab743a
(ange-ftp-insert-file-contents):
Use binary mode for dumb-unix hosts as for unix hosts.
(ange-ftp-copy-file-internal): Likewise.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 13 Sep 1998 03:42:11 +0000 |
| parents | 5e7aa3a0e2ad |
| children | 1f91824c4087 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Sun Sep 13 03:41:13 1998 +0000 +++ b/lisp/ange-ftp.el Sun Sep 13 03:42:11 1998 +0000 @@ -3220,7 +3220,8 @@ (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 @@ (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)