;;;
-;;; $Id: tm-mule.el,v 5.1 1994/10/26 14:43:57 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)
-(require 'tl-mule)
-(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"))
("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
(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
;;; @ 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)
(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)
+(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)