`raw-text-insert-file-contents'.
(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)
))