(rmail-output-to-rmail-file): Specify the coding system for writing.

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 7a8bfcf393ee361ab9e24661006ee3c41d8e156c..81aa941abd40463f04a13a07f25a187f44630960 100644 (file)
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -121,7 +121,10 @@ starting with the current one.  Deleted messages are skipped and don't count."
                  (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 @@ starting with the current one.  Deleted messages are skipped and don't count."
                                  (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))