tm 6.18

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

diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el
index 985e4ed..48d700f 100644 (file)
--- a/mh-e/tm-mh-e.el
+++ b/mh-e/tm-mh-e.el
@@ -9,6 +9,7 @@
 ;;; @ require modules
 ;;;
 (require 'tl-str)
+(require 'tl-misc)
 (require 'tm-misc)
 (require 'mh-e)
 (if (not (boundp 'mh-e-version))
@@ -20,7 +21,7 @@
 ;;; @ version
 ;;;
 (defconst tm-mh-e/RCS-ID
-  "$Id: tm-mh-e.el,v 6.1 1995/04/18 16:49:45 morioka Exp $")
+  "$Id: tm-mh-e.el,v 6.3 1995/04/23 20:59:27 morioka Exp $")
 
 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
 
@@ -107,17 +108,14 @@ With arg, turn MIME processing on if arg is positive."
   (insert-file (tm-mh-e::message/file-name message))
   )
 
-(if (featurep 'tm-comp)
-    (set-alist 'tm-comp/message-inserter-alist
-              'mh-letter-mode (function tm-mh-e::insert-message))
-  (add-hook 'tm-comp-load-hook
-           (function
-            (lambda ()
-              (set-alist
-               'tm-comp/message-inserter-alist
-               'mh-letter-mode (function tm-mh-e::insert-message))
-              )))
-  )
+(call-after-loaded
+ 'tm-comp
+ (function
+  (lambda ()
+    (set-alist
+     'tm-comp/message-inserter-alist
+     'mh-letter-mode (function tm-mh-e::insert-message))
+    )))
 
 
 ;;; @ set up