;;;
;;; $Id: tm-nemacs.el,v 5.1 1994/10/26 15:08:12 morioka Exp $
;;;

(provide 'tm-nemacs)

(require 'tl-18)
(require 'tl-nemacs)


;;; @ variables
;;;

(defvar mime/lc-charset-and-encoding-alist
  (list
   (cons lc-ascii nil)
   (cons lc-jp   '("ISO-2022-JP" . "B"))
   ))

(defvar mime/latin-lc-list
  (list lc-ascii))
       
;; by mol. 1993/10/4
(defun mime/convert-string-to-emacs (charset str)
  (cond ((string-match "^ISO-2022-JP$" charset)
	 (convert-string-kanji-code str 2 3))
	((string-match "^US-ASCII$" charset) str)
	((string-match "^ISO-8859-[1-9]$" charset)
	 (check-ASCII-string str))
	(t nil)
	))

;; by mol. 1993/11/2
(defun mime/convert-string-from-emacs (string charset)
  (cond ((equal charset "ISO-2022-JP")
	 (code-convert-string string *internal* *junet*))
	((equal charset "US-ASCII") string)
	(t nil)
	))

;; by mol. 1993/10/4
(defun mime/decode-encoded-text (charset encoding str)
  (let ((ds (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)
		    (concat "=?" charset "?" encoding "?" str "?=")
		    )))))
    (if ds
	ds
      (concat "=?" charset "?" encoding "?" str "?="))
    ))

(defun mime/code-convert-region-to-emacs (beg end charset)
  (if (stringp charset)
      (progn
	(setq charset (upcase charset))
	(if (string= charset "ISO-2022-JP")
	    (convert-region-kanji-code beg end 2 3)
	  ))))