tm 7.9.

[elisp/tm.git] / tm-orig.el

diff --git a/tm-orig.el b/tm-orig.el
index 762e462..aa02eb8 100644 (file)
--- a/tm-orig.el
+++ b/tm-orig.el
@@ -1,5 +1,15 @@
 ;;;
-;;; $Id: tm-orig.el,v 6.3 1995/08/27 14:26:18 morioka Exp $
+;;; tm-orig.el --- tm definitions depended on FSF Original Emacs
+;;;
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Version:
+;;;    $Id: tm-orig.el,v 7.1 1995/10/03 04:52:16 morioka Exp $
+;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
+;;;
+;;; This file is part of tm (Tools for MIME).
 ;;;
 
 (require 'emu)
@@ -10,6 +20,18 @@
 
 (defvar mime/default-coding-system nil)
 
+(defvar mime/lc-charset-rule-list
+  (list
+   (list (list lc-ascii)         "US-ASCII"   nil)
+   (list (list lc-ascii lc-ltn1) "ISO-8859-1" "Q")
+   ))
+
+(defvar mime/decoding-charset-list '("US-ASCII" "ISO-8859-1"))
+
+
+;;; @@ (obsolete)
+;;;
+
 (defvar mime/lc-charset-and-encoding-alist
   (list (cons lc-ascii nil)
        (cons lc-ltn1 '("ISO-8859-1" . "Q"))
@@ -17,8 +39,6 @@
 
 (defvar mime/latin-lc-list (list lc-ascii lc-ltn1))
 
-(defvar mime/decoding-charset-list '("US-ASCII" "ISO-8859-1"))
-
 
 ;;; @ functions
 ;;;