tm-orig.el

   1 ;;;
   2 ;;; tm-orig.el --- tm definitions depended on FSF Original Emacs
   3 ;;;
   4 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
   5 ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
   6 ;;;
   7 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   8 ;;; Version:
   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
  11 ;;;
  12 ;;; This file is part of tm (Tools for MIME).
  13 ;;;
  14
  15 (require 'emu)
  16
  17
  18 ;;; @ variables
  19 ;;;
  20
  21 (defvar mime/default-coding-system nil)
  22
  23 (defvar mime/lc-charset-rule-list
  24   (list
  25    (list (list lc-ascii)         "US-ASCII"   nil)
  26    (list (list lc-ascii lc-ltn1) "ISO-8859-1" "Q")
  27    ))
  28
  29 (defvar mime/decoding-charset-list '("US-ASCII" "ISO-8859-1"))
  30
  31
  32 ;;; @@ (obsolete)
  33 ;;;
  34
  35 (defvar mime/lc-charset-and-encoding-alist
  36   (list (cons lc-ascii nil)
  37         (cons lc-ltn1 '("ISO-8859-1" . "Q"))
  38         ))
  39
  40 (defvar mime/latin-lc-list (list lc-ascii lc-ltn1))
  41
  42
  43 ;;; @ functions
  44 ;;;
  45
  46 (defun mime/convert-string-to-emacs (charset str)
  47   (if (or (string= "US-ASCII"   charset)
  48           (string= "ISO-8859-1" charset))
  49       str))
  50
  51 (defun mime/convert-string-from-emacs (str charset)
  52   (if (or (string= charset "US-ASCII")
  53           (string= charset "ISO-8859-1"))
  54       str))
  55
  56 (defun mime/code-convert-region-to-emacs (beg end charset &optional encoding)
  57   )
  58
  59
  60 ;;; @ end
  61 ;;;
  62
  63 (provide 'tm-orig)
  64
  65 (run-hooks 'tm-orig-load-hook)