tm-orig.el

   1 ;;;
   2 ;;; $Id: tm-orig.el,v 6.0 1995/06/11 13:48:54 morioka Exp $
   3 ;;;
   4
   5 (provide 'tm-orig)
   6
   7
   8 ;;; @ variables
   9 ;;;
  10
  11 (defvar mime/default-coding-system nil)
  12
  13 (defvar mime/lc-charset-and-encoding-alist
  14   (list
  15    (cons lc-ascii nil)
  16    (cons lc-ltn1 '("ISO-8859-1"  . "Q"))
  17    ))
  18
  19 (defvar mime/latin-lc-list
  20   (list lc-ascii lc-ltn1))
  21
  22 (defvar mime/decoding-charset-list '("US-ASCII" "ISO-8859-1"))
  23
  24
  25 ;;; @ functions
  26 ;;;
  27
  28 ;; by mol. 1993/10/4
  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)
  32         ))
  33
  34 ;; by mol. 1993/11/2
  35 (defun mime/convert-string-from-emacs (string charset)
  36   (cond ((equal charset "US-ASCII") string)
  37         ((equal charset "ISO-8859-1") string)
  38         ))
  39
  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 "?=")
  48                ))
  49     (concat "=?" charset "?" encoding "?" str "?=")
  50     ))
  51
  52
  53 (defun mime/code-convert-region-to-emacs (beg end charset &optional encoding)
  54   )
  55
  56 (run-hooks 'tm-orig-load-hook)
  57
  58 (require 'tl-orig)