(rmail-write-region-annotate): Prevent viewing different

messages from messing up the file coding.  (Bug#4623)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fae8308bf5b0d0dad05100689792d3c816235095..5daa5efd1b43bc13404c1faa004a44d4772b5f70 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 7e817de7f64a40ddbec4dac6a6e603691e23236c..8f44cc6f60f3a16f350838aaf745e025369c9109 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -4176,6 +4176,9 @@ encoded string (and the same mask) will decode the string."
 (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))