(emh-version): update.

[elisp/emh.git] / emh.el

diff --git a/emh.el b/emh.el
index 8b7fed5..ae51877 100644 (file)
--- a/emh.el
+++ b/emh.el
@@ -33,15 +33,13 @@
 (require 'mime-view)
 (or (get-unified-alist mime-acting-condition '((type . text)))
     (error "Please install latest SEMI."))
+(eval-when-compile (require 'mime-text))
 
 
 ;;; @ version
 ;;;
 
-(defconst emh-RCS-ID
-  "$Id: emh.el,v 1.4 1998-03-13 13:12:44 morioka Exp $")
-
-(defconst emh-version (get-version-string emh-RCS-ID))
+(defconst emh-version "1.2.0")
 
 
 ;;; @ variable
@@ -231,12 +229,11 @@ digest are inserted into the folder after that message."
 ;;; @ for mime-view
 ;;;
 
-(fset 'emh-text-decode-buffer
-      (symbol-function 'mime-text-decode-buffer))
+(set-alist 'mime-raw-buffer-coding-system-alist
+          'mh-show-mode 'no-conversion)
 
 (set-alist 'mime-text-decoder-alist
-          'mh-show-mode
-          (function emh-text-decode-buffer))
+          'mh-show-mode 'mime-text-decode-buffer)
 
 (defvar emh-content-header-filter-hook
   (if window-system
@@ -272,9 +269,8 @@ It is registered to variable `mime-view-content-header-filter-alist'."
     (mh-show (mh-get-msg-num t))
     ))
 
-(set-alist 'mime-view-quitting-method-alist
-          'mh-show-mode
-          (function emh-quitting-method))
+(set-alist 'mime-preview-quitting-method-alist
+          'mh-show-mode #'emh-quitting-method)
 (set-alist 'mime-view-show-summary-method
           'mh-show-mode
           (function emh-quitting-method))
@@ -306,7 +302,7 @@ It is registered to variable `mime-view-content-header-filter-alist'."
   "Internal method to combine message/partial messages automatically.")
 
 (set-atype 'mime-acting-condition
-          '((type . message)(type . partial)
+          '((type . message)(subtype . partial)
             (method . mime-method-to-combine-message/partial-pieces)
             (major-mode . mh-show-mode)
             (summary-buffer-exp
@@ -343,8 +339,8 @@ It is registered to variable `mime-view-content-header-filter-alist'."
     (if buf
        (let ((the-buf (current-buffer)))
          (switch-to-buffer buf)
-         (if (and mime-view-buffer
-                  (setq buf (get-buffer mime-view-buffer))
+         (if (and mime-preview-buffer
+                  (setq buf (get-buffer mime-preview-buffer))
                   )
              (progn
                (switch-to-buffer the-buf)