*** empty log message ***

[elisp/semi.git] / semi-setup.el

diff --git a/semi-setup.el b/semi-setup.el
index d29ae73..66309d3 100644 (file)
--- a/semi-setup.el
+++ b/semi-setup.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: semi-setup.el,v 0.1 1997-02-21 05:57:53 tmorioka Exp $
+;; Version: $Id: semi-setup.el,v 0.2 1997-02-21 06:44:40 tmorioka Exp $
 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -70,13 +70,13 @@
        (or running-xemacs
           (and (featurep 'mule)(module-installed-p 'bitmap))
           ))
-  "*If it is non-nil, semi-setup sets up to use tm-image.")
+  "*If it is non-nil, semi-setup sets up to use mime-image.")
 
 (if mime-setup-enable-inline-image
     (call-after-loaded 'mime-view
                       (function
                        (lambda ()
-                         (require 'tm-image)
+                         (require 'mime-image)
                          )))
   )
 
@@ -98,15 +98,14 @@
 ;;; @ for mh-e
 ;;;
 
-(let ((le (function
-          (lambda ()
-            (require 'tm-mh-e)
-            ))
-         ))
-  (call-after-loaded 'mh-e le 'mh-folder-mode-hook)
-  (if (not (featurep 'mh-e))
-      (add-hook 'mh-letter-mode-hook le)
-    ))
+(defun semi-setup-load-emh ()
+  (require 'emh)
+  )
+
+(call-after-loaded 'mh-e 'semi-setup-load-emh 'mh-folder-mode-hook)
+(or (featurep 'mh-e)
+    (add-hook 'mh-letter-mode-hook 'semi-setup-load-emh)
+    )
 
 
 ;;; @ for Gnus