Mercurial > emacs

changeset 88345:4fd331e58549

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-output): Bind buffer-file-coding-system even when rmail-enable-mime is nil.
author Henrik Enberg <henrik.enberg@telia.com>
date Fri, 27 Apr 2007 21:32:39 +0000
parents a66359380d2d
children 3be7f212f8bc
files lisp/mail/rmailout.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailout.el	Fri Apr 27 20:00:56 2007 +0000
+++ b/lisp/mail/rmailout.el	Fri Apr 27 21:32:39 2007 +0000
@@ -169,6 +169,10 @@
 	(while (> count 0)
 	  (with-temp-buffer
 	    (insert-buffer-substring rmailbuf)
+	    ;; ensure we can write without barfing on exotic characters
+	    (setq buffer-file-coding-system
+		  (or rmail-file-coding-system 'raw-text))
+	    ;; prune junk headers
 	    (rmail-delete-unwanted-fields)
 	    (if (not destbuf)
 		;; The destination file is not being visited, just write