[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/17 03:11:58

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

Log message:
        (rmail-write-region-annotate): Prevent viewing different
        messages from messing up the file coding.  (Bug#4623)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16441&r2=1.16442
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.555&r2=1.556

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16441
retrieving revision 1.16442
diff -u -b -r1.16441 -r1.16442
--- ChangeLog   17 Oct 2009 03:10:10 -0000      1.16441
+++ ChangeLog   17 Oct 2009 03:11:54 -0000      1.16442
@@ -1,3 +1,8 @@
+2009-10-17  Glenn Morris  <address@hidden>
+
+       * mail/rmail.el (rmail-write-region-annotate): Prevent viewing different
+       messages from messing up the file coding.  (Bug#4623)
+
 2009-10-17  Jari Aalto  <address@hidden>
 
        * textmodes/ispell.el (ispell-get-decoded-string): Give an error

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.555
retrieving revision 1.556
diff -u -b -r1.555 -r1.556
--- mail/rmail.el       15 Oct 2009 06:31:51 -0000      1.555
+++ mail/rmail.el       17 Oct 2009 03:11:57 -0000      1.556
@@ -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))