;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: mk-tm,v 7.4 1995/12/03 15:46:37 morioka Exp morioka $
+;;; $Id: mk-tm,v 7.7 1996/02/27 21:24:06 morioka Exp $
;;;
(setq load-path (append
(require 'tl-misc)
;; Please specify VM path.
-(add-path "vm-5.95beta/")
+(add-path "vm-5.95beta/" 'all-paths)
;; Please specify Mailcrypt path.
-(add-path "mailcrypt-3.4beta/")
+(add-path "mailcrypt-3.4/" 'all-paths)
+
+;; Please specify BBDB path.
+(add-path "bbdb-1.50/" 'all-paths)
+
(setq tm-modules
(cons
(setq tm-uncompile-el-files '("sc-setup.el"))
-(if (catch 'tag
- (let ((paths load-path) path)
- (while paths
- (setq path (expand-file-name "ange-ftp.el" (car paths)))
- (if (file-exists-p path)
- (throw 'tag path)
- )
- (setq paths (cdr paths))
- )))
+(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 (catch 'tag
(let ((paths load-path) path)
(while paths
- (setq path (expand-file-name "vm.elc" (car paths)))
+ (setq path (expand-file-name "mailcrypt.el" (car paths)))
(if (file-exists-p path)
(throw 'tag path)
)
(setq paths (cdr paths))
)))
- (setq tm-modules (append tm-modules '("tm-vm")))
+ (setq tm-modules (append tm-modules '("tm-pgp")))
(setq tm-uncompile-el-files
- (append tm-uncompile-el-files '("tm-vm.el")))
+ (append tm-uncompile-el-files '("tm-pgp.el")))
)
(if (catch 'tag
(let ((paths load-path) path)
(while paths
- (setq path (expand-file-name "mailcrypt.el" (car paths)))
+ (setq path (expand-file-name "bbdb.el" (car paths)))
(if (file-exists-p path)
(throw 'tag path)
)
(setq paths (cdr paths))
)))
- (setq tm-modules (append tm-modules '("tm-pgp")))
+ (setq tm-modules (append tm-modules '("tm-bbdb")))
(setq tm-uncompile-el-files
- (append tm-uncompile-el-files '("tm-pgp.el")))
+ (append tm-uncompile-el-files '("tm-bbdb.el")))
)
(if (and (file-exists-p "tm-evs.el")
(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 (catch 'tag
+ (let ((paths load-path) path)
+ (while paths
+ (setq path (expand-file-name "bitmap.el" (car paths)))
+ (if (file-exists-p path)
+ (throw 'tag path)
+ )
+ (setq paths (cdr paths))
+ )))
+ (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
(mapcar (function (lambda (module)
(concat module ".el")
(require 'tm-rich)
(require 'mel-u)
(require 'tm-edit)
+ (load "rmailsum")
(mapcar (function
(lambda (module)
(let ((el-file (concat module ".el"))
(append tm-el-files tm-uncompile-el-files)
)
(apply (function install-elc-files) path tm-elc-files)
+ (setq command-line-args-left (cdr command-line-args-left))
))