From: Eli Zaretskii Date: Fri, 30 Jan 2009 14:37:32 +0000 (+0000) Subject: (rmail-convert-babyl-to-mbox): Bind coding-system-for-read to `raw-text', and X-Git-Tag: emacs-pretest-23.0.90~56 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3951477883d9ebfed7d302b4e8aaa5b1005f7351;p=emacs.git (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. --- 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)