diff options
| author | Richard M. Stallman | 1997-09-13 08:19:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-13 08:19:54 +0000 |
| commit | 55206ca664786969679769db6ef6d5fff07306de (patch) | |
| tree | 5de46b2540836e2ddd8323a061300eae06c34607 | |
| parent | 25c49fdcb4ac231b99ffd70c87258bc1218971bb (diff) | |
| download | emacs-55206ca664786969679769db6ef6d5fff07306de.tar.gz emacs-55206ca664786969679769db6ef6d5fff07306de.zip | |
(mail-do-fcc): When writing to an Rmail file,
use rmail-file-coding-system or else emacs-mule.
| -rw-r--r-- | lisp/mail/sendmail.el | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index fdf4e487d97..64ed126a955 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -910,16 +910,19 @@ the user from the mailer." | |||
| 910 | (mail-file-babyl-p (car fcc-list))) | 910 | (mail-file-babyl-p (car fcc-list))) |
| 911 | ;; If the file is a Babyl file, | 911 | ;; If the file is a Babyl file, |
| 912 | ;; convert the message to Babyl format. | 912 | ;; convert the message to Babyl format. |
| 913 | (save-excursion | 913 | (let ((coding-system-for-write |
| 914 | (set-buffer (get-buffer-create " mail-temp")) | 914 | (or rmail-file-coding-system |
| 915 | (setq buffer-read-only nil) | 915 | 'emacs-mule))) |
| 916 | (erase-buffer) | 916 | (save-excursion |
| 917 | (insert "\C-l\n0, unseen,,\n*** EOOH ***\n" | 917 | (set-buffer (get-buffer-create " mail-temp")) |
| 918 | "Date: " (mail-rfc822-date) "\n") | 918 | (setq buffer-read-only nil) |
| 919 | (insert-buffer-substring curbuf beg2 end) | 919 | (erase-buffer) |
| 920 | (insert "\n\C-_") | 920 | (insert "\C-l\n0, unseen,,\n*** EOOH ***\n" |
| 921 | (write-region (point-min) (point-max) (car fcc-list) t) | 921 | "Date: " (mail-rfc822-date) "\n") |
| 922 | (erase-buffer)) | 922 | (insert-buffer-substring curbuf beg2 end) |
| 923 | (insert "\n\C-_") | ||
| 924 | (write-region (point-min) (point-max) (car fcc-list) t) | ||
| 925 | (erase-buffer))) | ||
| 923 | (write-region | 926 | (write-region |
| 924 | (1+ (point-min)) (point-max) (car fcc-list) t)) | 927 | (1+ (point-min)) (point-max) (car fcc-list) t)) |
| 925 | (and buffer (not dont-write-the-file) | 928 | (and buffer (not dont-write-the-file) |