2 ;;; $Id: tm-orig.el,v 5.2 1994/10/26 14:44:58 morioka Exp $
13 (defvar mime/lc-charset-and-encoding-alist
16 (cons lc-ltn1 '("ISO-8859-1" . "Q"))
19 (defvar mime/latin-lc-list
20 (list lc-ascii lc-ltn1))
22 (defvar mime/decoding-charset-list '("US-ASCII" "ISO-8859-1"))
29 (defun mime/convert-string-to-emacs (charset str)
30 (cond ((string-match "^US-ASCII$" charset) str)
31 ((string-match "^ISO-8859-1$" charset) str)
35 (defun mime/convert-string-from-emacs (string charset)
36 (cond ((equal charset "US-ASCII") string)
37 ((equal charset "ISO-8859-1") string)
40 (defun mime/decode-encoded-text (charset encoding str)
41 (if (member charset mime/decoding-charset-list)
42 (cond ((string-match "^B$" encoding)
43 (mime/base64-decode-string str))
44 ((string-match "^Q$" encoding)
45 (mime/Quoted-Printable-decode-string str))
46 (t (message "unknown encoding %s" encoding)
47 (concat "=?" charset "?" encoding "?" str "?=")
49 (concat "=?" charset "?" encoding "?" str "?=")
53 (defun mime/code-convert-region-to-emacs (beg end charset)