tm-orig.el

   1 ;;;
   2 ;;; $Id: tm-orig.el,v 1.1 1994/07/29 22:08:59 morioka Exp morioka $
   3 ;;;
   4
   5 (provide 'tm-orig)
   6
   7 ;;; @ constants
   8 ;;;
   9 (defconst lc-ascii 0)
  10 (defconst lc-ltn1 0)
  11
  12
  13 ;;; @ variables
  14 ;;;
  15
  16 (defvar mime/lc-charset-and-encoding-alist
  17   (list
  18    (cons lc-ascii nil)
  19    (cons lc-ltn1 '("ISO-8859-1"  . "Q"))
  20    ))
  21
  22 (defvar mime/latin-lc-list
  23   (list lc-ascii lc-ltn1))
  24
  25 (defvar mime/decoding-charset-list '("US-ASCII" "ISO-8859-1"))
  26
  27
  28 ;;; @ functions
  29 ;;;
  30
  31 (defun mime/char-leading-char (chr)
  32   (if (< chr 128)
  33       lc-ascii
  34     lc-ltn1))
  35
  36 (defun string-width (str) (length str))
  37 (defun char-bytes (chr) 1)
  38 (defun char-width (chr) 1)
  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     ))