# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1255749114 0
# Node ID 73061661951dac5c1aff9deb5e9179afdcf066c5
# Parent  b56676f12c27eb79ecc7e4fd4e4ea0b98c80b882
(rmail-write-region-annotate): Prevent viewing different
messages from messing up the file coding.  (Bug#4623)

diff -r b56676f12c27 -r 73061661951d lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 17 03:10:10 2009 +0000
+++ b/lisp/ChangeLog	Sat Oct 17 03:11:54 2009 +0000
@@ -1,3 +1,8 @@
+2009-10-17  Glenn Morris  <rgm@gnu.org>
+
+	* mail/rmail.el (rmail-write-region-annotate): Prevent viewing different
+	messages from messing up the file coding.  (Bug#4623)
+
 2009-10-17  Jari Aalto  <jari.aalto@cante.net>
 
 	* textmodes/ispell.el (ispell-get-decoded-string): Give an error
diff -r b56676f12c27 -r 73061661951d lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sat Oct 17 03:10:10 2009 +0000
+++ b/lisp/mail/rmail.el	Sat Oct 17 03:11:54 2009 +0000
@@ -4176,6 +4176,9 @@
 (defun rmail-write-region-annotate (start end)
   (when (and (null start) (rmail-buffers-swapped-p))
     (set-buffer rmail-view-buffer)
+    ;; Prevent viewing different messages from messing up the coding. (Bug#4623)
+    ;; FIXME is there a better solution?
+    (set (make-local-variable 'coding-system-for-write) 'no-conversion)
     (widen)
     nil))