(rmail): Bind coding-system-for-read to no-conversion before calling

find-file-noselect.  (Bug#2015)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 42ea49e377b71268e6d3a54cf792a6bd4e0b5c47..6b4f18ecc80145676375c0194514fb49e39fd7e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-07  Eli Zaretskii  <eliz@gnu.org>
+
+       * mail/rmail.el (rmail): Bind coding-system-for-read to
+       no-conversion before calling find-file-noselect.  (Bug#2015)
+
 2009-02-07  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
 
        * proced.el (proced-after-send-signal-hook): Use defcustom.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 947564773ff5b7360de56ccb1825cbc1ddcd0f92..c30e4df7f18afdcc2e6cea3fa00b842e2ebe57c8 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -843,7 +843,12 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
            (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.