(mh-display-msg): Use `mime-display-message' and `mime-open-entity'.

Delete setting for `mime-raw-representation-type-alist'.
(mime-insert-decoded-header): Modify for `mime-insert-decoded-header'.

diff --git a/emh.el b/emh.el
index 32d5ff2..ef98505 100644 (file)
--- a/emh.el
+++ b/emh.el
@@ -38,7 +38,7 @@
 ;;; @ version
 ;;;
 
-(defconst emh-version "1.8.0")
+(defconst emh-version "1.8.1")
 
 
 ;;; @ variable
@@ -89,8 +89,7 @@ nil, `emh-automatic-mime-preview' is used as default value."
           (erase-buffer)
           (if mode
               (let* ((aname (concat "article-" folder))
-                     (abuf (get-buffer aname))
-                     )
+                     (abuf (get-buffer aname)))
                 (if abuf
                     (progn
                       (set-buffer abuf)
@@ -106,13 +105,13 @@ nil, `emh-automatic-mime-preview' is used as default value."
                 (setq buffer-read-only t)
                 (setq buffer-file-name msg-filename)
                 (mh-show-mode)
-                (mime-view-buffer aname (concat "show-" folder))
+                (mime-display-message (mime-open-entity 'buffer aname)
+                                      (concat "show-" folder))
                 (goto-char (point-min))
                 )
             (let ((clean-message-header mh-clean-message-header)
                   (invisible-headers mh-invisible-headers)
-                  (visible-headers mh-visible-headers)
-                  )
+                  (visible-headers mh-visible-headers))
               ;; 1995/9/21
               ;;   modified by ARIURA <ariura@cc.tuat.ac.jp>
               ;;   to support mhl.
@@ -227,21 +226,15 @@ digest are inserted into the folder after that message."
 ;;; @ for mime-view
 ;;;
 
-(set-alist 'mime-raw-representation-type-alist 'mh-show-mode 'binary)
-
-
-(defvar emh-display-header-hook (if window-system
-                                   '(emh-highlight-header)
-                                 )
+(defvar emh-display-header-hook (if window-system '(emh-highlight-header))
   "Hook for header filtering.")
 
 (autoload 'emh-highlight-header "emh-face")
 
 (defun emh-header-presentation-method (entity situation)
-  (mime-insert-decoded-header
-   entity
-   mime-view-ignored-field-list mime-view-visible-field-list
-   default-mime-charset)
+  (mime-insert-decoded-header entity
+                             mime-view-ignored-field-list
+                             mime-view-visible-field-list)
   (run-hooks 'emh-display-header-hook)
   )