-;;; mime-setup.el --- setup file for MIME-View.
+;;; semi-setup.el --- setup file for MIME-View.
;; 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.8 1997-02-28 04:58:24 tmorioka Exp $
;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;;; Code:
-(require 'tl-misc)
+(require 'mime-def)
;;; @ for mime-view
)))
+(defvar running-xemacs (string-match "XEmacs" emacs-version))
+
;; for image/* and X-Face
(defvar mime-setup-enable-inline-image
(and window-system
(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)
)))
)
;;; @ 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