(ange-ftp-insert-file-contents): Don't change

last-coding-system-used by the call of ange-ftp-set-ascii-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e8065ccbeb98f47cd1d0689fe3726e75529ff80..edfa5da9b9ea236ef44ce6920866a731df7fea02 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-27  Kenichi Handa  <handa@etl.go.jp>
+
+       * ange-ftp.el (ange-ftp-insert-file-contents): Don't change
+       last-coding-system-used by the call of ange-ftp-set-ascii-mode.
+
 1999-10-27  Richard M. Stallman  <rms@caffeine.ai.mit.edu>
 
        * emacs-lisp/advice.el (ad-activate-internal): Renamed from

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index d9cfc0e246db0acf25a65186ce169bbf1f5edcba..68f8f954253f69b3fff0075b7970d41efe9d0310 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3217,7 +3217,10 @@ system TYPE.")
                                  "FTP Error: %s not arrived or readable"
                                  filename)))))
                  (if binary
-                     (ange-ftp-set-ascii-mode host user))
+                     ;; We must keep `last-coding-system-used'
+                     ;; unchanged.
+                     (let (last-coding-system-used)
+                       (ange-ftp-set-ascii-mode host user)))
                  (ange-ftp-del-tmp-name temp))
                (if visit
                    (progn