3 ;;; $Id: mk-tgnus,v 2.0 1995/12/25 05:47:03 morioka Exp morioka $
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-sgnus.el")
27 (byte-compile-file "tm-gd5.el")
29 ((string-match "Gnus v5\\|September Gnus" gnus-version)
31 (byte-compile-file "tm-gnus4.el")
32 (byte-compile-file "tm-gd5.el")
34 ((string-match "GNUS 4" gnus-version)
36 (byte-compile-file "tm-gnus4.el")
38 ((string-match "GNUS 3" gnus-version)
40 (byte-compile-file "tm-gnus3.el")
42 ;;(byte-compile-file "tm-gnus.el")
45 (defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
47 (defun install-el (path file)
48 (let ((full-path (expand-file-name file path)))
49 (if (file-exists-p full-path)
50 (set-file-modes full-path el-file-mode)
52 (copy-file file full-path t t)
53 (princ (format "%s -> %s\n" file path))
56 (defun install-el-files (path &rest files)
57 (mapcar (function (lambda (file)
58 (if (file-exists-p file)
59 (install-el path file)
63 (defun install-elc (path file)
64 (let ((full-path (expand-file-name file path)))
65 (copy-file file full-path t t)
67 (princ (format "%s -> %s\n" file path))
70 (defun install-elc-files (path &rest files)
71 (mapcar (function (lambda (file)
72 (if (file-exists-p file)
73 (install-elc path file)
77 (defun install-tm-gnus ()
78 (let ((path (car command-line-args-left)))
79 (princ (format "%s\n" emacs-version))
80 (if (not (file-exists-p path))
81 (make-directory path t)
83 (cond ((< (string-to-int emacs-version) 19)
84 (install-el-files path
86 "tm-gnus3.el" "tm-gnus4.el"
88 (install-elc-files path
90 "tm-gnus3.elc" "tm-gnus4.elc")
92 ((<= emacs-minor-version 29)
93 (install-el-files path
95 "tm-sgnus.el" "tm-gnus4.el"
96 "tm-gd5.el" "tm-gd3.el")
97 (install-elc-files path
99 "tm-sgnus.elc" "tm-gnus4.elc"
103 (install-el-files path
105 "tm-sgnus.el" "tm-gnus4.el"
107 (install-elc-files path
109 "tm-sgnus.elc" "tm-gnus4.elc"
112 (setq command-line-args-left (cdr command-line-args-left))