-;;; -*-Emacs-Lisp-*-tm
+;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: mk-tm,v 7.7 1996/02/27 21:24:06 morioka Exp $
+;;;
(setq load-path (append
(mapcar (function
)
load-path))
-(print load-path)
-
(require 'tl-misc)
-(require 'gnus)
-(require 'tm-rich)
+
+;; Please specify VM path.
+(add-path "vm-5.95beta/" 'all-paths)
+
+;; Please specify Mailcrypt path.
+(add-path "mailcrypt-3.4/" 'all-paths)
+
+;; Please specify BBDB path.
+(add-path "bbdb-1.50/" 'all-paths)
+
(setq tm-modules
- (append
- (cons
- (cond ((boundp 'NEMACS)
- "tm-nemacs"
- )
- ((boundp 'MULE)
- "tm-mule"
- )
- (t
- "tm-orig"
- ))
- '("signature"
- "tiny-mime" "tm-misc"
- "tm-view"
- "tm-ftp" "tm-latex"
- "tm-rmail" "tm-comp"
- "tm-setup" "mime-setup"
- ))
- (if (not (string-match "\\(XEmacs\\|Lucid\\)" emacs-version))
- (progn
- (cons
- (if (or (< emacs-major-version 19)(< emacs-minor-version 29))
- "tinyrich"
- "richtext"
- )
- '("tm-rich")
+ (cons
+ (cond ((boundp 'NEMACS)
+ "tm-nemacs"
+ )
+ ((boundp 'MULE)
+ "tm-mule"
+ )
+ (t
+ "tm-orig"
))
- '("tm-vm")
+ '("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" "mime-setup"
)))
-(setq tm-uncompile-el-files '("tm-partial.el"))
+(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 (catch 'tag
+ (let ((paths load-path) path)
+ (while 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-pgp")))
+ (setq tm-uncompile-el-files
+ (append tm-uncompile-el-files '("tm-pgp.el")))
+ )
+
+(if (catch 'tag
+ (let ((paths load-path) path)
+ (while 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-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 (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)
tm-modules))
(defun compile-tm ()
- (mapcar (function byte-compile-file) tm-el-files)
+ ;; (require 'gnus)
+ (require 'tm-rich)
+ (require 'mel-u)
+ (require 'tm-edit)
+ (load "rmailsum")
+ (mapcar (function
+ (lambda (module)
+ (let ((el-file (concat module ".el"))
+ (elc-file (concat module ".elc"))
+ )
+ (if (file-newer-than-file-p el-file elc-file)
+ (byte-compile-file el-file)
+ )
+ )))
+ tm-modules)
)
(defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
(defun install-tm ()
(let ((path (car command-line-args-left)))
(princ (format "%s\n" emacs-version))
+ (if (not (file-exists-p path))
+ (make-directory path t)
+ )
(apply (function install-el-files) path
(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))
))