diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-27 06:20:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-27 06:20:15 +0000 |
| commit | 839ab81f109f7b9b82eb6e2d2f2b3b0b0bacb338 (patch) | |
| tree | 40cca15ef1f1b548e20bb6162a8215e7c71b8926 /lisp/mail | |
| parent | 838d57f61626f1b7c081aca3e4771b73e680fc9e (diff) | |
| download | emacs-839ab81f109f7b9b82eb6e2d2f2b3b0b0bacb338.tar.gz | |
(rmail-output-to-rmail-file): Specify the coding system for writing.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailout.el | 15 |
1 files 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)) |