# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 896250015 0
# Node ID e7a998137db566162ae997286286d5d5363ee4e6
# Parent  30576834668cb31d8057b4db243edb69f3bc2151
(rmail-output-to-rmail-file): Specify the coding system for writing.

diff -r 30576834668c -r e7a998137db5 lisp/mail/rmailout.el
--- a/lisp/mail/rmailout.el	Tue May 26 20:56:22 1998 +0000
+++ b/lisp/mail/rmailout.el	Wed May 27 06:20:15 1998 +0000
@@ -121,7 +121,10 @@
 		  (let ((buf (find-buffer-visiting file-name))
 			(cur (current-buffer))
 			(beg (1+ (rmail-msgbeg rmail-current-message)))
-			(end (1+ (rmail-msgend rmail-current-message))))
+			(end (1+ (rmail-msgend rmail-current-message)))
+			(coding-system-for-write
+			 (or rmail-file-coding-system
+			     'emacs-mule-unix)))
 		    (if (not buf)
 			;; Output to a file.
 			(if rmail-fields-not-to-output
@@ -163,11 +166,11 @@
 				  (rmail-select-summary
 				    (rmail-update-summary)))
 			      (rmail-show-message msg))
-		;; Output file not in rmail mode => just insert at the end.
-		(narrow-to-region (point-min) (1+ (buffer-size)))
-		(goto-char (point-max))
-		(insert-buffer-substring cur beg end)
-		(rmail-delete-unwanted-fields)))))))
+			  ;; Output file not in rmail mode => just insert at the end.
+			  (narrow-to-region (point-min) (1+ (buffer-size)))
+			  (goto-char (point-max))
+			  (insert-buffer-substring cur beg end)
+			  (rmail-delete-unwanted-fields)))))))
 	      (rmail-set-attribute "filed" t))
 	  (if redelete (rmail-set-attribute "deleted" t))))
       (setq count (1- count))