Commit 40beecee authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(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.
parent 5ec17636
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
......
......@@ -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")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment