This commit was generated by cvs2svn to compensate for changes in r296,

[elisp/tm.git] / mk-tm

diff --git a/mk-tm b/mk-tm
index 8a696e8..b9a4294 100644 (file)
--- a/mk-tm
+++ b/mk-tm
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: mk-tm,v 7.4 1995/12/03 15:46:37 morioka Exp morioka $
+;;; $Id: mk-tm,v 7.6 1995/12/25 05:33:36 morioka Exp morioka $
 ;;;
 
 (setq load-path (append
@@ -17,6 +17,9 @@
 ;; Please specify VM path.
 (add-path "vm-5.95beta/")
 
+;; Please specify Mailcrypt path.
+(add-path "mailcrypt-3.4/")
+
 (setq tm-modules
       (cons
        (cond ((boundp 'NEMACS)
@@ -69,6 +72,20 @@
        (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 (and (file-exists-p "tm-evs.el")
         (or (boundp 'MULE)
             (boundp 'NEMACS))
@@ -76,6 +93,10 @@
     (setq tm-modules (append tm-modules '("tm-evs")))
   )
 
+(if (string-match "XEmacs" emacs-version)
+    (setq tm-modules (append tm-modules '("tm-image")))
+  )
+
 (setq tm-el-files
       (mapcar (function (lambda (module)
                          (concat module ".el")
@@ -89,10 +110,11 @@
              tm-modules))
 
 (defun compile-tm ()
-  (require 'gnus)
+  ;; (require 'gnus)
   (require 'tm-rich)
   (require 'mel-u)
   (require 'tm-edit)
+  (load "rmailsum")
   (mapcar (function
           (lambda (module)
             (let ((el-file (concat module ".el"))
@@ -147,4 +169,5 @@
           (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))
     ))