3 ;;; $Id: mk-tgnus,v 7.5 1996/09/03 15:30:22 morioka Exp $
10 (expand-file-name path (getenv "PWD"))
12 '("." ".." "../../tl/" "../../mu/" "../../mel/"))
18 (defun compile-tm-gnus ()
24 (princ (format "%s\n" gnus-version))
25 (cond ((boundp 'gnus-load-hook)
26 (byte-compile-file "gnus-mime.el")
27 (byte-compile-file "gnus-charset.el")
28 (byte-compile-file "gnus-sum-mime.el")
29 (byte-compile-file "gnus-art-mime.el")
30 (byte-compile-file "message-mime.el")
31 ;;(byte-compile-file "gnus-msg-mime.el")
33 ((string-match "GNUS 4" gnus-version)
35 (byte-compile-file "tm-gnus4.el")
37 ((string-match "GNUS 3" gnus-version)
39 (byte-compile-file "tm-gnus3.el")
41 ;;(byte-compile-file "tm-gnus.el")
44 (defun install-tm-gnus ()
45 (let ((path (car command-line-args-left)))
46 (princ (format "%s\n" emacs-version))
47 (if (not (file-exists-p path))
48 (make-directory path t)
50 (cond (running-emacs-18
51 (install-files '("tm-gnus.el"
52 "tm-gnus3.el" "tm-gnus4.el"
54 "./" path nil 'overwrite)
55 (install-files '(;;"tm-gnus.elc"
56 "tm-gnus3.elc" "tm-gnus4.elc")
59 ((or (and running-emacs-19 (<= emacs-minor-version 29))
60 (and running-xemacs-19 (<= emacs-minor-version 13)))
61 (install-files '("tm-gnus.el" "tm-gnus4.el" "tm-gd3.el"
62 "gnus-mime.el" "gnus-charset.el"
63 "gnus-sum-mime.el" "gnus-art-mime.el")
64 "./" path nil 'overwrite)
65 (install-files '(;;"tm-gnus.elc"
67 "gnus-mime.elc" "gnus-charset.elc"
68 "gnus-sum-mime.elc" "gnus-art-mime.elc")
72 (install-files '("gnus-mime.el" "gnus-charset.el"
73 "gnus-sum-mime.el" "gnus-art-mime.el"
77 "./" path nil 'overwrite)
78 (install-files '("gnus-mime.elc" "gnus-charset.elc"
79 "gnus-sum-mime.elc" "gnus-art-mime.elc"
85 (setq command-line-args-left (cdr command-line-args-left))
88 ;;; mk-tgnus ends here