tm 7.69.

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

diff --git a/gnus/mk-tgnus b/gnus/mk-tgnus
index 7171b82..67150cc 100644 (file)
--- a/gnus/mk-tgnus
+++ b/gnus/mk-tgnus
@@ -1,21 +1,43 @@
 ;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: mk-tgnus,v 5.0 1996/06/27 15:01:37 morioka Exp $
+;;;
+
+(setq load-path
+      (append
+       (mapcar (function
+               (lambda (path)
+                 (expand-file-name path (getenv "PWD"))
+                 ))
+              '("." ".." "../../tl/" "../../mel/"))
+       load-path))
+
+(require 'emu)
 
 (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 "(ding)" gnus-version)
-        (if (string-lessp "(ding) Gnus v0.99.27" gnus-version)
-            (byte-compile-file "tm-dgnus.el")
-          )
+  (cond ((boundp 'gnus-original-article-buffer)
+        (require 'tm-gnus)
+        (byte-compile-file "tm-gnus5.el")
         )
-       ((string-match "GNUS 3" gnus-version)
-        (byte-compile-file "tm-gnus3.el")
+       ((string-match "Gnus v5\\|September Gnus" gnus-version)
+        (require 'tm-gnus)
+        (byte-compile-file "tm-gnus4.el")
         )
-       (t
+       ((string-match "GNUS 4" gnus-version)
+        (require 'tm-gnus)
         (byte-compile-file "tm-gnus4.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))
@@ -53,20 +75,47 @@
 (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-dgnus.el"
-                         "tm-ognus.el" "tm-gnus4.el")
-       (install-elc-files path
-                          "tm-gnus.elc" "tm-dgnus.elc"
-                          "tm-gnus4.elc")
-       ))))
+    (if (not (file-exists-p path))
+       (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")
+          )
+         ((and running-emacs-19 (<= emacs-minor-version 29))
+          (install-el-files path
+                            "tm-gnus.el" "tm-gnus4.el" "tm-gd3.el")
+          (install-elc-files path
+                             ;;"tm-gnus.elc"
+                             "tm-gnus4.elc")
+          )
+         ((and running-xemacs-19 (<= emacs-minor-version 13))
+          (install-el-files path
+                            "tm-gnus.el"
+                            "tm-gnus5.el" "tm-gnus4.el"
+                            "tm-gd3.el")
+          (install-elc-files path
+                             ;;"tm-gnus.elc"
+                             "tm-gnus5.elc" "tm-gnus4.elc")
+          )
+         ((and running-emacs-19 (<= emacs-minor-version 31))
+          (install-el-files path
+                            "tm-gnus.el"
+                            "tm-gnus5.el" "tm-gnus4.el")
+          (install-elc-files path
+                             ;;"tm-gnus.elc"
+                             "tm-gnus5.elc" "tm-gnus4.elc")
+          )
+         (t
+          (install-el-files path "tm-gnus.el" "tm-gnus5.el")
+          (install-elc-files path
+                             ;;"tm-gnus.elc"
+                             "tm-gnus5.elc")
+          ))
+    (setq command-line-args-left (cdr command-line-args-left))
+    ))