;;;
(defconst emh-RCS-ID
- "$Id: emh.el,v 1.6 1998-03-13 19:01:20 morioka Exp $")
+ "$Id: emh.el,v 1.7 1998-03-14 23:17:31 morioka Exp $")
(defconst emh-version (get-version-string emh-RCS-ID))
;;; @ 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