(rmail-output-to-rmail-file): When writing the

Babyl header to the newly-created output file, bind
coding-system-for-write to either rmail-file-coding-system or
emacs-mule-unix.

2 files changed, 11 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c40581229e..364ae072fa4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-03-11  Eli Zaretskii  <eliz@is.elta.co.il>
+
+        * mail/rmailout.el (rmail-output-to-rmail-file): When writing the
+        Babyl header to the newly-created output file, bind
+        coding-system-for-write to either rmail-file-coding-system or
+        emacs-mule-unix.
+
 2001-03-10  Dave Love  <fx@gnu.org>
 
         * toolbar/tool-bar.el (tool-bar-setup): Don't suppress write-file
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 3b7ea24fd74..d3fd35916cd 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -145,7 +145,10 @@ mesasge up instead of moving forward to the next non-deleted message."
               (save-excursion
                 (set-buffer file-buffer)
                 (rmail-insert-rmail-file-header)
-                (let ((require-final-newline nil))
+                (let ((require-final-newline nil)
+                      (coding-system-for-write
+                       (or rmail-file-coding-system
+                           'emacs-mule-unix)))
                   (write-region (point-min) (point-max) file-name t 1)))
               (kill-buffer file-buffer))
           (error "Output file does not exist")))