;;; -*-Emacs-Lisp-*-
;;;
;;; $Id: tm-els,v 1.2 1996/03/04 08:57:38 morioka Exp $
;;;

(require 'tl-misc)

(setq tm-modules
      (cons
       (cond ((boundp 'NEMACS)
	      "tm-nemacs"
	      )
	     ((boundp 'MULE)
	      "tm-mule"
	      )
	     (t
	      "tm-orig"
	      ))
       '("signature"
	 "tm-def"
	 "tm-ew-d" "tm-parse" "tm-view" "tm-play" "tm-partial"
	 "tm-rich"
	 "tm-latex" "tm-html" "tm-tar" "tm-file"
	 "tm-ew-e"
	 "tm-edit"
	 "tm-rmail" "tm-mail"
	 "tm-setup"
	 )))

(setq tm-uncompile-el-files '("sc-setup.el"))

(if (file-installed-p "ange-ftp.el")
    (setq tm-modules (append tm-modules '("tm-ftp")))
  (setq tm-uncompile-el-files
	(append tm-uncompile-el-files '("tm-ftp.el")))
  )

(if (file-installed-p "vm.elc")
    (setq tm-modules (append tm-modules '("tm-vm")))
  (setq tm-uncompile-el-files
	(append tm-uncompile-el-files '("tm-vm.el")))
  )

(if (file-installed-p "mailcrypt.el")
    (setq tm-modules (append tm-modules '("tm-pgp")))
  (setq tm-uncompile-el-files
	(append tm-uncompile-el-files '("tm-pgp.el")))
  )

(if (file-installed-p "bbdb.el")
    (setq tm-modules (append tm-modules '("tm-bbdb")))
  (setq tm-uncompile-el-files
	(append tm-uncompile-el-files '("tm-bbdb.el")))
  )

(if (and (file-exists-p "tm-evs.el")
	 (or (boundp 'MULE)
	     (boundp 'NEMACS))
	 )
    (setq tm-modules (append tm-modules '("tm-evs")))
  )

(if (string-match "XEmacs" emacs-version)
    (setq tm-modules (append tm-modules '("tm-image")))
  (if (boundp 'MULE)
      (if (file-installed-p "bitmap.el")
	  (setq tm-modules (append tm-modules '("tm-image")))
	(setq tm-uncompile-el-files
	      (append tm-uncompile-el-files '("tm-image.el")))
	)))

(setq tm-el-files
      (append
       (mapcar (function (lambda (module)
			   (concat module ".el")
			   ))
	       tm-modules)
       tm-uncompile-el-files))

(setq tm-elc-files
      (mapcar (function (lambda (module)
			  (concat module ".elc")
			  ))
	      tm-modules))


(setq setup-modules '("mime-setup"))

(setq setup-el-files
      (mapcar (function (lambda (module)
			  (concat module ".el")
			  ))
	      setup-modules))

(setq setup-elc-files
      (mapcar (function (lambda (module)
			  (concat module ".elc")
			  ))
	      setup-modules))