tm 5.21

[elisp/tm.git] / tm-view.el

diff --git a/tm-view.el b/tm-view.el
index 0eb9369..24ca642 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -20,7 +20,7 @@
 ;;;
 
 (defconst mime/viewer-RCS-ID
-  "$Id: tm-view.el,v 5.19 1994/11/08 11:13:12 morioka Exp $")
+  "$Id: tm-view.el,v 5.21 1994/11/21 18:38:48 morioka Exp morioka $")
 
 (defconst mime/viewer-version (get-version-string mime/viewer-RCS-ID))
 
@@ -49,8 +49,8 @@
 ;;(setq mime/content-decoding-condition
   '(((type . "text/plain")
      (method "tm-plain" nil 'file 'type 'encoding 'mode 'name))
-    ((type . "text/x-latex")
-     (method "tm-latex" nil 'file 'type 'encoding 'mode 'name))
+    ;;((type . "text/x-latex")
+    ;; (method "tm-latex" nil 'file 'type 'encoding 'mode 'name))
     ((type . "audio/basic")
      (method "tm-au"    nil 'file 'type 'encoding 'mode 'name))
     ((type . "image/gif")
@@ -112,7 +112,9 @@
 
 (defvar mime/default-showing-Content-Type-list
 ;;(setq mime/default-showing-Content-Type-list
-  '("text/plain" "text/richtext" "text/enriched" "text/x-latex" nil))
+  '("text/plain" "text/richtext" "text/enriched"
+    "text/x-latex" "application/x-latex"
+    "application/octet-stream" nil))
 
 (defvar mime/go-to-top-node-method-alist
 ;;(setq mime/go-to-top-node-method-alist
@@ -629,6 +631,7 @@
          (setq ctl (cdr ctl))
          (setq cal (nconc (list (cons 'type ctype)
                                 (cons 'encoding encoding)
+                                (cons 'major-mode major-mode)
                                 )
                           ctl))
          (if mime/body-decoding-mode