From: morioka <morioka>
Date: Fri, 5 Jun 1998 13:27:46 +0000 (+0000)
Subject: (mh-display-msg): Use `insert-file-contents-as-raw-text'.
X-Git-Tag: emh-1_4-199811302358~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4c3c66ce99a72c8d2d6e952f1975375d0d695fc7;p=elisp%2Femh.git

(mh-display-msg): Use `insert-file-contents-as-raw-text'.
---

diff --git a/emh.el b/emh.el
index 78dc3a5..4594479 100644
--- a/emh.el
+++ b/emh.el
@@ -100,9 +100,7 @@ nil, `emh-automatic-mime-preview' is used as default value."
 		   (setq abuf (get-buffer-create aname))
 		   (set-buffer abuf)
 		   )
-		 (let ((coding-system-for-read 'raw-text))
-		   (insert-file-contents msg-filename)
-		   )
+		 (insert-file-contents-as-raw-text msg-filename)
 		 (set-buffer-modified-p nil)
 		 (setq buffer-read-only t)
 		 (setq buffer-file-name msg-filename)