tm 7.106.

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

diff --git a/gnus/mk-tgnus b/gnus/mk-tgnus
index 663d082..c243ce3 100644 (file)
--- a/gnus/mk-tgnus
+++ b/gnus/mk-tgnus
@@ -1,77 +1,88 @@
 ;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: mk-tgnus,v 7.5 1996/09/03 15:30:22 morioka Exp $
+;;;
+
+(setq load-path
+      (append
+       (mapcar (function
+               (lambda (path)
+                 (expand-file-name path (getenv "PWD"))
+                 ))
+              '("." ".." "../../tl/" "../../mu/" "../../mel/"))
+       load-path))
+
+(require 'emu)
+(require 'install)
 
 (defun compile-tm-gnus ()
-  (require 'gnus)
+  (load "gnus.el")
+  (require 'nntp)
   (require 'tm-view)
+  (require 'tm-partial)
+  (require 'tm-edit)
   (princ (format "%s\n" gnus-version))
-  (cond ((string-match "GNUS 3" gnus-version)
-        (byte-compile-file "tm-gnus3.el")
+  (cond ((boundp 'gnus-load-hook)
+        (byte-compile-file "gnus-mime.el")
+        (byte-compile-file "gnus-charset.el")
+        (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")
         )
        ((string-match "GNUS 4" gnus-version)
+        (require 'tm-gnus)
         (byte-compile-file "tm-gnus4.el")
         )
-       ((string-match "(ding)" gnus-version)
-        (require 'tm-dgnus)
-        (byte-compile-file "tm-dgnus.el")
-        (byte-compile-file "tm-gnus5.el")
-        )
-       ((string-match "Gnus v5" gnus-version)
-        (byte-compile-file "tm-gnus5.el")
+       ((string-match "GNUS 3" gnus-version)
+        (require 'tm-gnus)
+        (byte-compile-file "tm-gnus3.el")
         ))
-  (byte-compile-file "tm-gnus.el")
+  ;;(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))
-    (if (< (string-to-int emacs-version) 19)
-       (progn
-         (install-el-files path
-                           "tm-gnus.el" "tm-ognus.el"
-                           "tm-gnus3.el" "tm-gnus4.el")
-         (install-elc-files path
-                            "tm-gnus.elc"
-                            "tm-gnus3.elc" "tm-gnus4.elc")
-         )
-      (progn
-       (install-el-files path
-                         "tm-gnus.el" "tm-gnus5.el"
-                         "tm-dgnus.el"
-                         "tm-ognus.el" "tm-gnus4.el")
-       (install-elc-files path
-                          "tm-gnus.elc" "tm-gnus5.elc"
-                          "tm-dgnus.elc"
-                          "tm-gnus4.elc")
-       ))))
+    (if (not (file-exists-p path))
+       (make-directory path t)
+      )
+    (cond (running-emacs-18
+          (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-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-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