tm-def.el

   1 ;;;
   2 ;;; $Id: tm-def.el,v 3.0 1995/09/04 01:17:27 morioka Exp $
   3 ;;;
   4
   5 ;;; @ variables
   6 ;;;
   7
   8 (defvar mime/tmp-dir (or (getenv "TM_TMPDIR") "/tmp/"))
   9
  10
  11 ;;; @ compatible module among Mule, NEmacs and NEpoch
  12 ;;;
  13
  14 (cond ((boundp 'MULE)  (require 'tm-mule))
  15       ((boundp 'NEMACS)(require 'tm-nemacs))
  16       (t               (require 'tm-orig))
  17       )
  18
  19
  20 ;;; @ definitions about MIME
  21 ;;;
  22
  23 (defconst mime/tspecials "][\000-\040()<>@,\;:\\\"/?.=")
  24 (defconst mime/token-regexp (concat "[^" mime/tspecials "]+"))
  25 (defconst mime/charset-regexp mime/token-regexp)
  26
  27
  28 ;;; @ end
  29 ;;;
  30
  31 (provide 'tm-def)