tm 7.81.

[elisp/tm.git] / gnus / mk-tgnus

diff --git a/gnus/mk-tgnus b/gnus/mk-tgnus
index 3212e57..c243ce3 100644 (file)
--- a/gnus/mk-tgnus
+++ b/gnus/mk-tgnus
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: mk-tgnus,v 7.1 1996/08/08 15:51:57 morioka Exp $
+;;; $Id: mk-tgnus,v 7.5 1996/09/03 15:30:22 morioka Exp $
 ;;;
 
 (setq load-path
@@ -9,10 +9,11 @@
                (lambda (path)
                  (expand-file-name path (getenv "PWD"))
                  ))
-              '("." ".." "../../tl/" "../../mel/"))
+              '("." ".." "../../tl/" "../../mu/" "../../mel/"))
        load-path))
 
 (require 'emu)
+(require 'install)
 
 (defun compile-tm-gnus ()
   (load "gnus.el")
@@ -27,7 +28,7 @@
         (byte-compile-file "gnus-sum-mime.el")
         (byte-compile-file "gnus-art-mime.el")
         (byte-compile-file "message-mime.el")
-        (byte-compile-file "gnus-msg-mime.el")
+        ;;(byte-compile-file "gnus-msg-mime.el")
         )
        ((string-match "GNUS 4" gnus-version)
         (require 'tm-gnus)
@@ -40,38 +41,6 @@
   ;;(byte-compile-file "tm-gnus.el")
   )
 
-(defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
-
-(defun install-el (path file)
-  (let ((full-path (expand-file-name file path)))
-    (if (file-exists-p full-path)
-       (set-file-modes full-path el-file-mode)
-      )
-    (copy-file file full-path t t)
-    (princ (format "%s -> %s\n" file path))
-    ))
-
-(defun install-el-files (path &rest files)
-  (mapcar (function (lambda (file)
-                     (if (file-exists-p file)
-                         (install-el path file)
-                       )))
-         files))
-
-(defun install-elc (path file)
-  (let ((full-path (expand-file-name file path)))
-    (copy-file file full-path t t)
-    (delete-file file)
-    (princ (format "%s -> %s\n" file path))
-    ))
-
-(defun install-elc-files (path &rest files)
-  (mapcar (function (lambda (file)
-                     (if (file-exists-p file)
-                         (install-elc path file)
-                       )))
-         files))
-
 (defun install-tm-gnus ()
   (let ((path (car command-line-args-left)))
     (princ (format "%s\n" emacs-version))
@@ -79,35 +48,41 @@
        (make-directory path t)
       )
     (cond (running-emacs-18
-          (install-el-files path
-                            "tm-gnus.el"
-                            "tm-gnus3.el" "tm-gnus4.el"
-                            "tm-gd3.el")
-          (install-elc-files path
-                             ;;"tm-gnus.elc"
-                             "tm-gnus3.elc" "tm-gnus4.elc")
+          (install-files '("tm-gnus.el"
+                           "tm-gnus3.el" "tm-gnus4.el"
+                           "tm-gd3.el")
+                         "./" path nil 'overwrite)
+          (install-files '(;;"tm-gnus.elc"
+                           "tm-gnus3.elc" "tm-gnus4.elc")
+                         "./" path 'move)
           )
          ((or (and running-emacs-19 (<= emacs-minor-version 29))
               (and running-xemacs-19 (<= emacs-minor-version 13)))
-          (install-el-files path
-                            "tm-gnus.el" "tm-gnus4.el" "tm-gd3.el"
-                            "gnus-mime.el" "gnus-charset.el"
-                            "gnus-sum-mime.el" "gnus-art-mime.el")
-          (install-elc-files path
-                             ;;"tm-gnus.elc"
-                             "tm-gnus4.elc"
-                             "gnus-mime.elc" "gnus-charset.elc"
-                             "gnus-sum-mime.elc" "gnus-art-mime.elc")
+          (install-files '("tm-gnus.el" "tm-gnus4.el" "tm-gd3.el"
+                           "gnus-mime.el" "gnus-charset.el"
+                           "gnus-sum-mime.el" "gnus-art-mime.el")
+                         "./" path nil 'overwrite)
+          (install-files '(;;"tm-gnus.elc"
+                           "tm-gnus4.elc"
+                           "gnus-mime.elc" "gnus-charset.elc"
+                           "gnus-sum-mime.elc" "gnus-art-mime.elc")
+                         "./" path 'move)
           )
          (t
-          (install-el-files path
-                            "gnus-mime.el" "gnus-charset.el"
-                            "gnus-sum-mime.el" "gnus-art-mime.el"
-                            "message-mime.el" "gnus-msg-mime.el")
-          (install-elc-files path
-                             "gnus-mime.elc" "gnus-charset.elc"
-                             "gnus-sum-mime.elc" "gnus-art-mime.elc"
-                             "message-mime.elc" "gnus-msg-mime.elc")
+          (install-files '("gnus-mime.el" "gnus-charset.el"
+                           "gnus-sum-mime.el" "gnus-art-mime.el"
+                           "message-mime.el"
+                           ;;"gnus-msg-mime.el"
+                           )
+                         "./" path nil 'overwrite)
+          (install-files '("gnus-mime.elc" "gnus-charset.elc"
+                           "gnus-sum-mime.elc" "gnus-art-mime.elc"
+                           "message-mime.elc"
+                           ;;"gnus-msg-mime.elc"
+                           )
+                         "./" path 'move)
           ))
     (setq command-line-args-left (cdr command-line-args-left))
     ))
+
+;;; mk-tgnus ends here