Mercurial > emacs
comparison lisp/mail/rmail.el @ 101882:5cd64f3517f3
(rmail): Bind coding-system-for-read to no-conversion before calling
find-file-noselect. (Bug#2015)
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 07 Feb 2009 18:35:05 +0000 |
parents | 595dd77c0199 |
children | 85a6bf6279eb |
comparison
equal
deleted
inserted
replaced
101881:43b1a5e6eb09 | 101882:5cd64f3517f3 |
---|---|
841 (when (and (verify-visited-file-modtime existed) | 841 (when (and (verify-visited-file-modtime existed) |
842 (eq major-mode 'rmail-mode)) | 842 (eq major-mode 'rmail-mode)) |
843 (rmail-set-message-counters))) | 843 (rmail-set-message-counters))) |
844 ;; The mail file is either unchanged or not visited. Visit it. | 844 ;; The mail file is either unchanged or not visited. Visit it. |
845 (switch-to-buffer | 845 (switch-to-buffer |
846 (let ((enable-local-variables nil)) | 846 (let ((enable-local-variables nil) |
847 ;; Force no-conversion by default, since that's what | |
848 ;; pre-mbox Rmail did with BABYL files (via | |
849 ;; auto-coding-regexp-alist). | |
850 (coding-system-for-read | |
851 (or coding-system-for-read 'no-conversion))) | |
847 (find-file-noselect file-name)))) | 852 (find-file-noselect file-name)))) |
848 ;; Ensure that the collection and view buffers are in sync and | 853 ;; Ensure that the collection and view buffers are in sync and |
849 ;; ensure that a message is not being edited. | 854 ;; ensure that a message is not being edited. |
850 (if (eq major-mode 'rmail-mode) | 855 (if (eq major-mode 'rmail-mode) |
851 (rmail-swap-buffers-maybe)) | 856 (rmail-swap-buffers-maybe)) |