tm 6.78.2.

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

diff --git a/tm-mule.el b/tm-mule.el
index cd406f9..420d7e6 100644 (file)
--- a/tm-mule.el
+++ b/tm-mule.el
@@ -1,13 +1,10 @@
 ;;;
-;;; $Id: tm-mule.el,v 6.1 1995/06/11 13:28:21 morioka Exp $
+;;; $Id: tm-mule.el,v 6.4 1995/08/27 13:33:13 morioka Exp $
 ;;;
 
+(require 'emu)
 (require 'tl-list)
-(require 'tl-mule)
 
-(if (not (fboundp 'member))
-    (require 'tl-18)
-  )
 
 ;;; @ variables
 ;;;
@@ -49,6 +46,7 @@
     ("ISO-8859-7"      . *iso-8859-7*)
     ("ISO-8859-8"      . *iso-8859-8*)
     ("ISO-8859-9"      . *iso-8859-9*)
+    ("ISO-2022-INT-1"  . *iso-2022-int-1*)
     ))
 
 (defvar mime/charset-lc-alist
@@ -67,6 +65,7 @@
 
 ;;; @ define charset and encoding
 ;;;
+
 (defun mime/set-charset-and-encoding (lc cs charset encoding)
   (setq mime/lc-charset-and-encoding-alist
        (put-alist lc (cons charset encoding)
@@ -138,17 +137,6 @@
               (mime/remove-leading-character str)
             str)))))
 
-;; by mol. 1993/10/4
-(defun mime/decode-encoded-text (charset encoding str)
-  (mime/convert-string-to-emacs
-   charset
-   (cond ((string-match "^B$" encoding)
-         (mime/base64-decode-string str))
-        ((string-match "^Q$" encoding)
-         (mime/Quoted-Printable-decode-string str))
-        (t (message "unknown encoding %s" encoding) str)
-        )))
-
 
 (defun mime/code-convert-region-to-emacs (beg end charset &optional encoding)
   (if (stringp charset)
@@ -163,6 +151,9 @@
       )))
 
 
-(run-hooks 'tm-mule-load-hook)
+;;; @ end
+;;;
 
 (provide 'tm-mule)
+
+(run-hooks 'tm-mule-load-hook)