;;;
;;; $Id: tm-def.el,v 4.1 1995/09/04 10:17:02 morioka Exp $
;;;

;;; @ variables
;;;

(defvar mime/tmp-dir (or (getenv "TM_TMPDIR") "/tmp/"))


;;; @ compatible module among Mule, NEmacs and NEpoch 
;;;

(cond ((boundp 'MULE)  (require 'tm-mule))
      ((boundp 'NEMACS)(require 'tm-nemacs))
      (t               (require 'tm-orig))
      )


;;; @ definitions about MIME
;;;

(defconst mime/tspecials "][\000-\040()<>@,\;:\\\"/?.=")
(defconst mime/token-regexp (concat "[^" mime/tspecials "]+"))
(defconst mime/charset-regexp mime/token-regexp)


;;; @@ Base64
;;;

(defconst base64-token-regexp "[A-Za-z0-9+/=]")

(defconst mime/B-encoded-text-regexp
  (concat "\\("
	  base64-token-regexp
	  base64-token-regexp
	  base64-token-regexp
	  base64-token-regexp
	  "\\)+"))
(defconst mime/B-encoding-and-encoded-text-regexp
  (concat "\\(B\\)\\?" mime/B-encoded-text-regexp))


;;; @@ Quoted-Printable
;;;

(defconst quoted-printable-hex-chars "0123456789ABCDEF")
(defconst quoted-printable-octet-regexp
  (concat "=[" quoted-printable-hex-chars
	  "][" quoted-printable-hex-chars "]"))

(defconst mime/Q-encoded-text-regexp
  (concat "\\([^=?]\\|" quoted-printable-octet-regexp "\\)+"))
(defconst mime/Q-encoding-and-encoded-text-regexp
  (concat "\\(Q\\)\\?" mime/Q-encoded-text-regexp))


;;; @ end
;;;

(provide 'tm-def)