From 634b455a37b3001edfa0da403aee91cf3b534257 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 7 Feb 2009 18:35:56 +0000 Subject: [PATCH] (rmail): Bind coding-system-for-read to no-conversion before calling find-file-noselect. (Bug#2015) --- lisp/ChangeLog | 5 +++++ lisp/mail/rmail.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 42ea49e377b..6b4f18ecc80 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-02-07 Eli Zaretskii + + * mail/rmail.el (rmail): Bind coding-system-for-read to + no-conversion before calling find-file-noselect. (Bug#2015) + 2009-02-07 Roland Winkler * proced.el (proced-after-send-signal-hook): Use defcustom. diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 947564773ff..c30e4df7f18 100644 --- 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. -- 2.39.5