2 ;;; tm-orig.el --- tm definitions depended on FSF Original Emacs
4 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
5 ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
7 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
9 ;;; $Id: tm-orig.el,v 7.1 1995/10/03 04:52:16 morioka Exp $
10 ;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
12 ;;; This file is part of tm (Tools for MIME).
21 (defvar mime/default-coding-system nil)
23 (defvar mime/lc-charset-rule-list
25 (list (list lc-ascii) "US-ASCII" nil)
26 (list (list lc-ascii lc-ltn1) "ISO-8859-1" "Q")
29 (defvar mime/decoding-charset-list '("US-ASCII" "ISO-8859-1"))
35 (defvar mime/lc-charset-and-encoding-alist
36 (list (cons lc-ascii nil)
37 (cons lc-ltn1 '("ISO-8859-1" . "Q"))
40 (defvar mime/latin-lc-list (list lc-ascii lc-ltn1))
46 (defun mime/convert-string-to-emacs (charset str)
47 (if (or (string= "US-ASCII" charset)
48 (string= "ISO-8859-1" charset))
51 (defun mime/convert-string-from-emacs (str charset)
52 (if (or (string= charset "US-ASCII")
53 (string= charset "ISO-8859-1"))
56 (defun mime/code-convert-region-to-emacs (beg end charset &optional encoding)
65 (run-hooks 'tm-orig-load-hook)