tm 5.13

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

diff --git a/tm-misc.el b/tm-misc.el
index 51fb4b5..26ebf7f 100644 (file)
--- a/tm-misc.el
+++ b/tm-misc.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tm-misc.el,v 5.0 1994/10/17 06:55:23 morioka Exp $
+;;; $Id: tm-misc.el,v 5.1 1994/10/25 08:31:15 morioka Exp $
 ;;;
 ;;;   MIME utility for tm-*.el MIME user agent packages
 ;;;
@@ -16,6 +16,11 @@
 
 (defvar mime/header-decoding-mode t "*Decode MIME header if non-nil.")
 
+(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