Add setting for `mime-raw-buffer-coding-system-alist'.
authormorioka <morioka>
Sat, 14 Mar 1998 23:17:31 +0000 (23:17 +0000)
committermorioka <morioka>
Sat, 14 Mar 1998 23:17:31 +0000 (23:17 +0000)
emh.el

diff --git a/emh.el b/emh.el
index 1b5a511..8479f5d 100644 (file)
--- a/emh.el
+++ b/emh.el
@@ -39,7 +39,7 @@
 ;;;
 
 (defconst emh-RCS-ID
 ;;;
 
 (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))
 
 
 (defconst emh-version (get-version-string emh-RCS-ID))
 
@@ -231,12 +231,14 @@ digest are inserted into the folder after that message."
 ;;; @ for mime-view
 ;;;
 
 ;;; @ 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
 (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
 
 (defvar emh-content-header-filter-hook
   (if window-system