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

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    09/02/07 18:35:06

Modified files:
        lisp/mail      : rmail.el 

Log message:
        (rmail): Bind coding-system-for-read to no-conversion before calling
        find-file-noselect.  (Bug#2015)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.495&r2=1.496

Patches:
Index: rmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.495
retrieving revision 1.496
diff -u -b -r1.495 -r1.496
--- rmail.el    7 Feb 2009 16:45:20 -0000       1.495
+++ rmail.el    7 Feb 2009 18:35:05 -0000       1.496
@@ -843,7 +843,12 @@
            (rmail-set-message-counters)))
       ;; The mail file is either unchanged or not visited.  Visit it.
       (switch-to-buffer
-       (let ((enable-local-variables nil))
+       (let ((enable-local-variables nil)
+            ;; Force no-conversion by default, since that's what
+            ;; pre-mbox Rmail did with BABYL files (via
+            ;; auto-coding-regexp-alist).
+            (coding-system-for-read
+             (or coding-system-for-read 'no-conversion)))
         (find-file-noselect file-name))))
     ;; Ensure that the collection and view buffers are in sync and
     ;; ensure that a message is not being edited.