Mercurial > emacs

changeset 36717:919d4bc1079b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 11 Mar 2001 11:53:02 +0000
parents a563ead0ab5f
children 513c7e598896
files lisp/mail/rmailout.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailout.el	Sat Mar 10 13:20:47 2001 +0000
+++ b/lisp/mail/rmailout.el	Sun Mar 11 11:53:02 2001 +0000
@@ -145,7 +145,10 @@
 	      (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")))