;;;
;;; $Id: tm-orig.el,v 1.1 1994/07/29 22:08:59 morioka Exp morioka $
;;;

(provide 'tm-orig)

;;; @ constants
;;;
(defconst lc-ascii 0)
(defconst lc-ltn1 0)


;;; @ variables
;;;

(defvar mime/lc-charset-and-encoding-alist
  (list
   (cons lc-ascii nil)
   (cons lc-ltn1 '("ISO-8859-1"  . "Q"))
   ))

(defvar mime/latin-lc-list
  (list lc-ascii lc-ltn1))

(defvar mime/decoding-charset-list '("US-ASCII" "ISO-8859-1"))


;;; @ functions
;;;

(defun mime/char-leading-char (chr)
  (if (< chr 128)
      lc-ascii
    lc-ltn1))

(defun string-width (str) (length str))
(defun char-bytes (chr) 1)
(defun char-width (chr) 1)

(defun mime/decode-encoded-text (charset encoding str)
  (if (member charset mime/decoding-charset-list)
      (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 "?=")
	       ))
    (concat "=?" charset "?" encoding "?" str "?=")
    ))