From: tmorioka <tmorioka>
Date: Fri, 21 Feb 1997 06:44:40 +0000 (+0000)
Subject: tm-image.el was renamed to mime-image.el.
X-Git-Tag: Hokutetsu-Ishikawa-new~350
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7046c969605aa85691c69a536cf88108302a960c;p=elisp%2Fsemi.git

tm-image.el was renamed to mime-image.el.
---

diff --git a/semi-setup.el b/semi-setup.el
index d29ae73..66309d3 100644
--- 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