;;; @ version
;;;
-(defconst emh-RCS-ID
- "$Id: emh.el,v 1.5 1998-03-13 16:19:40 morioka Exp $")
-
-(defconst emh-version (get-version-string emh-RCS-ID))
+(defconst emh-version "1.1.1")
;;; @ variable
;;; @ for mime-view
;;;
+(set-alist 'mime-raw-buffer-coding-system-alist
+ 'mh-show-mode 'no-conversion)
+
(fset 'emh-text-decode-buffer
(symbol-function 'mime-text-decode-buffer))
(set-alist 'mime-text-decoder-alist
- 'mh-show-mode
- (function emh-text-decode-buffer))
+ 'mh-show-mode #'emh-text-decode-buffer)
(defvar emh-content-header-filter-hook
(if window-system
(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))