tm 6.76.

[elisp/tm.git] / mime-setup.el

diff --git a/mime-setup.el b/mime-setup.el
index 74de2bd..b93a5d6 100644 (file)
--- a/mime-setup.el
+++ b/mime-setup.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: mime-setup.el,v 1.17 1994/08/20 12:06:34 morioka Exp $
+;;; $Id: mime-setup.el,v 6.1 1995/08/26 20:21:12 morioka Exp $
 ;;;
 
 (provide 'mime-setup)
@@ -9,7 +9,7 @@
 
 ;;; @ variables
 ;;;
-(defvar mime-setup-use-sc t)
+(defvar mime-setup-use-sc nil)
 
 
 ;;; @ for Edit MIME mode
@@ -76,9 +76,16 @@
         ("richtext"
          ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
          )
+        ("enriched"
+         ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
+         )
         ("x-latex"
          ("x-name")
          ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
+         )
+        ("html"
+         ("x-name")
+         ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
          ))
        ("message"
         ("external-body"
@@ -128,6 +135,7 @@
 
 (setq mime-file-types
       '(("\\.rtf$"     "text"  "richtext"      nil     nil)
+       ("\\.html$"     "text"  "html"  nil     nil)
        ("\\.ps$"       "application"   "postscript"    nil     "quoted-printable")
        ("\\.gif$"      "image"         "gif"   nil     "base64")
        ("\\.jpg$"      "image"         "jpeg"  nil     "base64")
@@ -169,28 +177,12 @@
          (function
           (lambda ()
             (mime/decode-message-header)
+            (set-buffer-modified-p nil)
             (mime-mode)
             )))
 (setq gnus-signature-file nil)
 
 
-;;; @ for RMAIL
-;;;
-(autoload 'rmail-show-mime             "rmailmime" "Show MIME messages."  t)
-(autoload 'rmail-convert-mime-header   "rmailmime" "Convert MIME header." nil)
-(setq rmail-message-filter (function mime/decode-message-header))
-(add-hook 'rmail-mode-hook
-         (function
-          (lambda ()
-            ;; Forward mail using MIME.
-            (require 'mime)
-            (substitute-key-definition 'rmail-forward
-                                       'mime-forward-from-rmail-using-mail
-                                       (current-local-map))
-            (local-set-key "v" 'rmail-show-mime)
-            )))
-
-
 ;;; @ for Mail mode (includes VM mode)
 ;;;
 (add-hook 'mail-mode-hook (function mime-mode))