Delete garbages.

[elisp/tm.git] / tm-misc.el

diff --git a/tm-misc.el b/tm-misc.el
deleted file mode 100644 (file)
index 635e017..0000000
--- a/tm-misc.el
+++ /dev/null
@@ -1,54 +0,0 @@
-;;;
-;;; $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)