(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.

lisp/ChangeLog

+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

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")))