;;; -*-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