From: morioka <morioka>
Date: Thu, 2 Jul 1998 08:40:25 +0000 (+0000)
Subject: (mh-display-msg): Use `mime-display-message' and `mime-open-entity'.
X-Git-Tag: emh-1_8_1~3
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Femh.git;a=commitdiff_plain;h=c7da118cf4a4982290d133c532b2980452a483f8

(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
--- 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)
   )