tm 7.67.

[elisp/tm.git] / tm-mh-e.el

diff --git a/tm-mh-e.el b/tm-mh-e.el
index 96210e3..0628ab3 100644 (file)
--- a/tm-mh-e.el
+++ b/tm-mh-e.el
@@ -6,19 +6,10 @@
 
 (provide 'tm-mh-e)
 
-;;; @ version
-;;;
-(defconst tm-mh-e/RCS-ID
-  "$Id: tm-mh-e.el,v 5.0 1994/09/25 21:28:29 morioka Exp $")
-
-(defconst tm-mh-e/version
-  (and (string-match "[0-9][0-9.]*" tm-mh-e/RCS-ID)
-       (substring tm-mh-e/RCS-ID (match-beginning 0)(match-end 0))
-       ))
-
 
 ;;; @ require modules
 ;;;
+(require 'tl-str)
 (require 'tm-misc)
 (require 'mh-e)
 (if (not (boundp 'mh-e-version))
@@ -27,6 +18,14 @@
 (autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
 
 
+;;; @ version
+;;;
+(defconst tm-mh-e/RCS-ID
+  "$Id: tm-mh-e.el,v 5.3 1994/10/25 09:06:36 morioka Exp $")
+
+(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
+
+
 ;;; @ MIME header decoding mode
 ;;;
 (defun tm-mh-e/toggle-header-decoding-mode (arg)
@@ -56,17 +55,16 @@ With arg, turn MIME processing on if arg is positive."
 
 ;;; @ set up
 ;;;
+
+(defun tm-mh-e/decode-message-header ()
+  (make-local-variable 'minor-mode-alist)
+  (mime/add-header-decoding-mode-to-mode-line)
+  (let ((buffer-read-only nil))
+    (mime/decode-message-header-if-you-need)
+    (set-buffer-modified-p nil)
+    ))
 (add-hook 'mh-show-mode-hook
-         (function
-          (lambda ()
-            (make-local-variable 'minor-mode-alist)
-            (mime/add-header-decoding-mode-to-mode-line)
-            (let ((buffer-read-only nil))
-              (if mime/header-decoding-mode
-                  (mime/decode-message-header)
-                )
-              (set-buffer-modified-p nil)
-              ))))
+         (function tm-mh-e/decode-message-header))
 
 (define-key mh-folder-mode-map "\et" 'tm-mh-e/toggle-header-decoding-mode)
 (define-key mh-folder-mode-map "v" 'tm-mh-e/view-message)