martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(rmail-output-to-rmail-file): When writing the

Browse Source 
Babyl header to the newly-created output file, bind
coding-system-for-write to either rmail-file-coding-system or
emacs-mule-unix.
This commit is contained in:
Eli Zaretskii
2001-03-11 11:54:03 +00:00
parent 5ec176363c
commit 40beeceea1
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@@ -1,3 +1,10 @@
2001-03-11 Eli Zaretskii <eliz@is.elta.co.il>
* mail/rmailout.el (rmail-output-to-rmail-file): When writing the
Babyl header to the newly-created output file, bind
coding-system-for-write to either rmail-file-coding-system or
emacs-mule-unix.
2001-03-10 Dave Love <fx@gnu.org>
* toolbar/tool-bar.el (tool-bar-setup): Don't suppress write-file

5
lisp/mail/rmailout.el
View File

@@ -145,7 +145,10 @@ mesasge up instead of moving forward to the next non-deleted message."
(save-excursion
(set-buffer file-buffer)
(rmail-insert-rmail-file-header)
(let ((require-final-newline nil))
(let ((require-final-newline nil)
(coding-system-for-write
(or rmail-file-coding-system
'emacs-mule-unix)))
(write-region (point-min) (point-max) file-name t 1)))
(kill-buffer file-buffer))
(error "Output file does not exist")))