From: tomo <tomo>
Date: Sun, 29 Apr 2012 05:13:52 +0000 (+0000)
Subject: (emh-request-partial-message): Don't use
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8e60f40611264338bcedf2ab9398b4c815d71d55;p=elisp%2Femh.git

(emh-request-partial-message): Don't use
`raw-text-insert-file-contents'.
---

diff --git a/emh.el b/emh.el
index 243e555..05a9678 100644
--- a/emh.el
+++ b/emh.el
@@ -290,11 +290,12 @@ digest are inserted into the folder after that message."
 
 (defun emh-request-partial-message ()
   (let ((msg-filename (mh-msg-filename (mh-get-msg-num t)))
-	(show-buffer mh-show-buffer))
+	(show-buffer mh-show-buffer)
+	(coding-system-for-read 'raw-text))
     (set-buffer (get-buffer-create " *Partial Article*"))
     (erase-buffer)
     (setq mime-preview-buffer show-buffer)
-    (raw-text-insert-file-contents msg-filename)
+    (insert-file-contents msg-filename)
     (mime-parse-buffer)
     ))