3 ;;; $Id: mk-tgnus,v 5.0 1996/06/27 15:01:37 morioka Exp $
10 (expand-file-name path (getenv "PWD"))
12 '("." ".." "../../tl/" "../../mel/"))
17 (defun compile-tm-gnus ()
23 (princ (format "%s\n" gnus-version))
24 (cond ((boundp 'gnus-original-article-buffer)
26 (byte-compile-file "tm-gnus5.el")
28 ((string-match "Gnus v5\\|September Gnus" gnus-version)
30 (byte-compile-file "tm-gnus4.el")
32 ((string-match "GNUS 4" gnus-version)
34 (byte-compile-file "tm-gnus4.el")
36 ((string-match "GNUS 3" gnus-version)
38 (byte-compile-file "tm-gnus3.el")
40 ;;(byte-compile-file "tm-gnus.el")
43 (defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
45 (defun install-el (path file)
46 (let ((full-path (expand-file-name file path)))
47 (if (file-exists-p full-path)
48 (set-file-modes full-path el-file-mode)
50 (copy-file file full-path t t)
51 (princ (format "%s -> %s\n" file path))
54 (defun install-el-files (path &rest files)
55 (mapcar (function (lambda (file)
56 (if (file-exists-p file)
57 (install-el path file)
61 (defun install-elc (path file)
62 (let ((full-path (expand-file-name file path)))
63 (copy-file file full-path t t)
65 (princ (format "%s -> %s\n" file path))
68 (defun install-elc-files (path &rest files)
69 (mapcar (function (lambda (file)
70 (if (file-exists-p file)
71 (install-elc path file)
75 (defun install-tm-gnus ()
76 (let ((path (car command-line-args-left)))
77 (princ (format "%s\n" emacs-version))
78 (if (not (file-exists-p path))
79 (make-directory path t)
81 (cond (running-emacs-18
82 (install-el-files path
84 "tm-gnus3.el" "tm-gnus4.el"
86 (install-elc-files path
88 "tm-gnus3.elc" "tm-gnus4.elc")
90 ((and running-emacs-19 (<= emacs-minor-version 29))
91 (install-el-files path
92 "tm-gnus.el" "tm-gnus4.el" "tm-gd3.el")
93 (install-elc-files path
97 ((and running-xemacs-19 (<= emacs-minor-version 13))
98 (install-el-files path
100 "tm-gnus5.el" "tm-gnus4.el"
102 (install-elc-files path
104 "tm-gnus5.elc" "tm-gnus4.elc")
106 ((and running-emacs-19 (<= emacs-minor-version 31))
107 (install-el-files path
109 "tm-gnus5.el" "tm-gnus4.el")
110 (install-elc-files path
112 "tm-gnus5.elc" "tm-gnus4.elc")
115 (install-el-files path "tm-gnus.el" "tm-gnus5.el")
116 (install-elc-files path
120 (setq command-line-args-left (cdr command-line-args-left))