(ange-ftp-write-region): Handle case that

succeeding process operation sets a different coding system.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 6c822d4604a8126a155ee88604e4bc223f8fa15a..fb0b03b52e0a9a9b0e6af519084e927c649b09bc 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3185,6 +3185,7 @@ system TYPE.")
                                 (memq (ange-ftp-host-type host user)
                                       '(unix dumb-unix))))
                     (abbr (ange-ftp-abbreviate-filename filename))
+                    (coding-system-used last-coding-system-used)
                     size)
                (unwind-protect
                    (progn
@@ -3207,6 +3208,7 @@ system TYPE.")
                           size
                           (nth 1 (ange-ftp-real-insert-file-contents
                                   temp visit beg end replace))
+                          coding-system-used last-coding-system-used
                           ;; override autodetection of buffer file type
                           ;; to ensure buffer is saved in DOS format
                           buffer-file-type binary)
@@ -3226,6 +3228,7 @@ system TYPE.")
                    (progn
                      (set-visited-file-modtime '(0 0))
                      (setq buffer-file-name filename)))
+               (setq last-coding-system-used coding-system-used)
                (list filename size))
            (signal 'file-error
                    (list