tm 7.69.

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

diff --git a/gnus/mk-tgnus b/gnus/mk-tgnus
index a146325..67150cc 100644 (file)
--- a/gnus/mk-tgnus
+++ b/gnus/mk-tgnus
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: mk-tgnus,v 1.1 1995/11/18 08:07:24 morioka Exp morioka $
+;;; $Id: mk-tgnus,v 5.0 1996/06/27 15:01:37 morioka Exp $
 ;;;
 
 (setq load-path
@@ -15,20 +15,19 @@
 (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 ((boundp 'gnus-original-article-buffer)
         (require 'tm-gnus)
-        (byte-compile-file "tm-sgnus.el")
-        (byte-compile-file "tm-gd5.el")
+        (byte-compile-file "tm-gnus5.el")
         )
        ((string-match "Gnus v5\\|September Gnus" gnus-version)
         (require 'tm-gnus)
         (byte-compile-file "tm-gnus4.el")
-        (byte-compile-file "tm-gd5.el")
         )
        ((string-match "GNUS 4" gnus-version)
         (require 'tm-gnus)
@@ -79,7 +78,7 @@
     (if (not (file-exists-p path))
        (make-directory path t)
       )
-    (cond ((< (string-to-int emacs-version) 19)
+    (cond (running-emacs-18
           (install-el-files path
                             "tm-gnus.el"
                             "tm-gnus3.el" "tm-gnus4.el"
@@ -88,23 +87,35 @@
                              ;;"tm-gnus.elc"
                              "tm-gnus3.elc" "tm-gnus4.elc")
           )
-         ((<= emacs-minor-version 29)
+         ((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-sgnus.el" "tm-gnus4.el"
-                            "tm-gd5.el" "tm-gd3.el")
+                            "tm-gnus5.el" "tm-gnus4.el"
+                            "tm-gd3.el")
           (install-elc-files path
                              ;;"tm-gnus.elc"
-                             "tm-sgnus.elc" "tm-gnus4.elc"
-                             "tm-gd5.elc")
+                             "tm-gnus5.elc" "tm-gnus4.elc")
           )
-         (t
+         ((and running-emacs-19 (<= emacs-minor-version 31))
           (install-el-files path
                             "tm-gnus.el"
-                            "tm-sgnus.el" "tm-gnus4.el"
-                            "tm-gd5.el")
+                            "tm-gnus5.el" "tm-gnus4.el")
           (install-elc-files path
                              ;;"tm-gnus.elc"
-                             "tm-sgnus.elc" "tm-gnus4.elc"
-                             "tm-gd5.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))
+    ))