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

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

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e8065ccbeb..edfa5da9b9e 100644
--- 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 d9cfc0e246d..68f8f954253 100644
--- 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