2 ;;; $Id: tm-misc.el,v 5.1 1994/10/25 08:31:15 morioka Exp $
4 ;;; MIME utility for tm-*.el MIME user agent packages
6 ;;; by Morioka Tomohiko, 1993/11/21
10 (if (< (string-to-int emacs-version) 19)
15 (defvar mime/tmp-dir (or (getenv "TM_TMPDIR") "/tmp/"))
17 (defvar mime/header-decoding-mode t "*Decode MIME header if non-nil.")
19 (defun mime/decode-message-header-if-you-need ()
20 (if mime/header-decoding-mode
21 (mime/decode-message-header)
24 (defun mime/add-header-decoding-mode-to-mode-line ()
25 (or (assq 'mime/header-decoding-mode minor-mode-alist)
26 (setq minor-mode-alist
27 (cons (list 'mime/header-decoding-mode " MIME")
32 ;;; @ functions to check field
34 (defun mime/exist-encoded-word-in-subject ()
36 mime/encoded-word-regexp
39 (goto-char (point-min))
40 (if (re-search-forward "^Subject:.*\\(\n\\( \\|\t\\)+.*\\)*" nil t)
41 (buffer-substring (match-beginning 0) (match-end 0))