From: Eli Zaretskii Date: Sun, 11 Mar 2001 11:54:03 +0000 (+0000) Subject: (rmail-output-to-rmail-file): When writing the X-Git-Tag: emacs-pretest-21.0.100~78 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40beeceea1293756dce90de086ae08717b118c2c;p=emacs.git (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. --- 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 + + * 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 * 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")))