X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mk-tm;h=c3fa1235bebccaa3d9151eef44e5e3a424f8674c;hb=8d1f887c68c4a90ff22acff10295ea72734b6ca5;hp=df145e8245642b65b0492c4115eaef0c8ea2756e;hpb=63130ba4e02aedc5c33f7bbf8eaef8d8ed0c8911;p=elisp%2Ftm.git

diff --git a/mk-tm b/mk-tm
index df145e8..c3fa123 100644
--- a/mk-tm
+++ b/mk-tm
@@ -1,4 +1,7 @@
 ;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: mk-tm,v 7.7 1996/02/27 21:24:06 morioka Exp $
+;;;
 
 (setq load-path (append
 		 (mapcar (function
@@ -10,55 +13,105 @@
 		 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")
-	      )))
-       ))
-
-(setq tm-uncompile-el-files '("tm-partial.el"))
+      (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" "mime-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 (catch 'tag
       (let ((paths load-path) path)
 	(while paths
-	  (setq path (expand-file-name "vm.el" (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 "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)
 			  (concat module ".el")
@@ -72,7 +125,21 @@
 	      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))
@@ -110,8 +177,12 @@
 (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))
     ))