;;;
;;; $Id: tm-misc.el,v 5.2 1995/08/26 18:41:39 morioka Exp $
;;;
;;;   MIME utility for tm-*.el MIME user agent packages
;;;
;;; by Morioka Tomohiko, 1993/11/21
;;;

(require 'emu)
(require 'tiny-mime)


;;; @ variables
;;;

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

(defvar mime/header-decoding-mode t "*Decode MIME header if non-nil.")


;;; @ functions
;;;

(defun mime/decode-message-header-if-you-need ()
  (if mime/header-decoding-mode
      (mime/decode-message-header)
    ))

(defun mime/add-header-decoding-mode-to-mode-line ()
  (or (assq 'mime/header-decoding-mode minor-mode-alist)
      (setq minor-mode-alist
	    (cons (list 'mime/header-decoding-mode " MIME")
		  minor-mode-alist))
      ))


;;; @@ functions to check field
;;;
(defun mime/exist-encoded-word-in-subject ()
  (string-match
   mime/encoded-word-regexp
   (save-excursion
     (save-restriction
       (goto-char (point-min))
       (if (re-search-forward "^Subject:.*\\(\n\\( \\|\t\\)+.*\\)*" nil t)
	   (buffer-substring (match-beginning 0) (match-end 0))
	 )
       ))))


;;; @ end
;;;

(provide 'tm-misc)