From 839ab81f109f7b9b82eb6e2d2f2b3b0b0bacb338 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 May 1998 06:20:15 +0000 Subject: [PATCH] (rmail-output-to-rmail-file): Specify the coding system for writing. --- lisp/mail/rmailout.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 7a8bfcf393e..81aa941abd4 100644 --- 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)) -- 2.39.2