Delete garbages.

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

diff --git a/gnus/mk-tgnus b/gnus/mk-tgnus
deleted file mode 100644 (file)
index c243ce3..0000000
--- a/gnus/mk-tgnus
+++ /dev/null
@@ -1,88 +0,0 @@
-;;; -*-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 ()
-  (load "gnus.el")
-  (require 'nntp)
-  (require 'tm-view)
-  (require 'tm-partial)
-  (require 'tm-edit)
-  (princ (format "%s\n" gnus-version))
-  (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 "GNUS 3" gnus-version)
-        (require 'tm-gnus)
-        (byte-compile-file "tm-gnus3.el")
-        ))
-  ;;(byte-compile-file "tm-gnus.el")
-  )
-
-(defun install-tm-gnus ()
-  (let ((path (car command-line-args-left)))
-    (princ (format "%s\n" emacs-version))
-    (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