From 3951477883d9ebfed7d302b4e8aaa5b1005f7351 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 30 Jan 2009 14:37:32 +0000 Subject: [PATCH] (rmail-convert-babyl-to-mbox): Bind coding-system-for-read to `raw-text', and use insert-file-contents instead of insert-file-contents-literally. Fixes bug #2019. --- lisp/ChangeLog | 6 ++++++ lisp/mail/rmail.el | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d413fe36f49..e7438813949 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-01-30 Eli Zaretskii + + * mail/rmail.el (rmail-convert-babyl-to-mbox): Bind + coding-system-for-read to `raw-text', and use insert-file-contents + instead of insert-file-contents-literally. Fixes bug #2019. + 2009-01-30 Nick Roberts * vc-hooks.el (vc-stay-local-p): Let vc-BACKEND-stay-local take diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 79c1c3095d3..b60145c6d3a 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -915,9 +915,10 @@ Convert Babyl mail file to mbox format? ") (write-region (point-min) (point-max) old-file) (unrmail old-file new-file) (message "Replacing BABYL format with mbox format...") - (let ((inhibit-read-only t)) + (let ((inhibit-read-only t) + (coding-system-for-read 'raw-text)) (erase-buffer) - (insert-file-contents-literally new-file) + (insert-file-contents new-file) (rmail-mode-1) (rmail-perm-variables) (rmail-variables) -- 2.39.2