tm 6.78.2.

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

diff --git a/tm-mule.el b/tm-mule.el
index 3c7a64d..420d7e6 100644 (file)
--- a/tm-mule.el
+++ b/tm-mule.el
@@ -1,30 +1,28 @@
 ;;;
-;;; $Id: tm-mule.el,v 4.5 1994/08/01 05:10:34 morioka Exp $
+;;; $Id: tm-mule.el,v 6.4 1995/08/27 13:33:13 morioka Exp $
 ;;;
 
-(provide 'tm-mule)
-
+(require 'emu)
 (require 'tl-list)
 
-(if (not (fboundp 'member))
-    (require 'tl-18)
-  )
 
 ;;; @ variables
 ;;;
 
+(defvar mime/default-coding-system *ctext*)
+
 (defvar mime/lc-charset-and-encoding-alist
   (list
    (cons lc-ascii nil)
    (cons lc-jp   '("ISO-2022-JP" . "B"))
    (cons lc-cn   '("ISO-2022-CN" . "B"))
-   (cons lc-kr   '("ISO-2022-KR" . "B"))
+   (cons lc-kr   '("EUC-KR"      . "B"))
    (cons lc-ltn1 '("ISO-8859-1"  . "Q"))
    (cons lc-ltn2 '("ISO-8859-2"  . "Q"))
    (cons lc-ltn3 '("ISO-8859-3"  . "Q"))
    (cons lc-ltn4 '("ISO-8859-4"  . "Q"))
    (cons lc-crl  '("ISO-8859-5"  . "B"))
-   (cons lc-arb  '("ISO-8859-6"  . "B"))
+;;;(cons lc-arb  '("ISO-8859-6"  . "B"))
    (cons lc-grk  '("ISO-8859-7"  . "B"))
    (cons lc-hbw  '("ISO-8859-8"  . "B"))
    (cons lc-ltn5 '("ISO-8859-9"  . "Q"))
@@ -40,6 +38,15 @@
     ("ISO-2022-CN"     . *iso-2022-ss2-7*)
     ("ISO-2022-KR"     . *iso-2022-kr*)
     ("EUC-KR"          . *euc-kr*)
+    ("ISO-8859-1"      . *ctext*)
+    ("ISO-8859-2"      . *iso-8859-2*)
+    ("ISO-8859-3"      . *iso-8859-3*)
+    ("ISO-8859-4"      . *iso-8859-4*)
+    ("ISO-8859-5"      . *iso-8859-5*)
+    ("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
@@ -49,7 +56,7 @@
    (cons "ISO-8859-3" lc-ltn3) ; Latin-3
    (cons "ISO-8859-4" lc-ltn4) ; Latin-4
    (cons "ISO-8859-5" lc-crl ) ; Cyrillic
-   (cons "ISO-8859-6" lc-arb ) ; Arabic
+;;;(cons "ISO-8859-6" lc-arb ) ; Arabic
    (cons "ISO-8859-7" lc-grk ) ; Greek
    (cons "ISO-8859-8" lc-hbw ) ; Hebrew
    (cons "ISO-8859-9" lc-ltn5) ; Latin-5
@@ -58,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)
@@ -74,11 +82,6 @@
 ;;; (mime/set-charset-and-encoding lc-koi8 nil "KOI8" "B")
 
 
-(defun mime/char-leading-char (chr)
-  (if (< chr 128)
-      lc-ascii
-    chr))
-
 (defun mime/remove-leading-character (str)
   (let ((dest "") (i 0) (len (length str)) chr)
     (while (< i len)
@@ -134,11 +137,23 @@
               (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)
+      (progn
+       (setq charset (upcase charset))
+       (let ((ct (cdr (assoc charset mime/charset-coding-system-alist))))
+         (if ct
+             (code-convert beg end ct *internal*)
+           )))
+    (if mime/default-coding-system
+       (code-convert beg end mime/default-coding-system *internal*)
+      )))
+
+
+;;; @ end
+;;;
+
+(provide 'tm-mule)
+
+(run-hooks 'tm-mule-load-hook)