3 ;;; $Id: inst-tm,v 7.23 1996/08/22 14:28:43 morioka Exp morioka $
7 (load-file "../tl/TL-ELS")
8 (load-file "../mel/MEL-ELS")
10 (load-file "mh-e/TMH-ELS")
12 (defun make-mime-setup (tl-path mel-path tm-path)
13 (let ((buf (find-file "mime-setup.el.in")))
14 (goto-char (point-min))
15 (re-search-forward "^;;; Code:" nil t)
16 (setq buffer-read-only nil)
17 (if (member tl-path default-load-path)
20 \(require \'tl-misc)")
29 \(add-path \"%s\")" tl-path tl-path))
31 (or (member mel-path default-load-path)
34 \(add-path \"%s\")" mel-path)))
35 (or (member tm-path default-load-path)
38 \(add-path \"%s\")" tm-path)))
40 (defvar mime-viewer/external-progs \"%s\")" METHOD_DIR))
41 (write-file "mime-setup.el")
44 (defun install-tm-gnus ()
50 TM_GNUS_INSTALL_FORMAT
51 (car command-line-args) TM_GNUS_DIR)
53 (princ (buffer-string))
62 (make-mime-setup TL_DIR MEL_DIR TM_KERNEL_DIR)
63 (compile-elisp-modules tl-modules "../tl/")
64 (compile-elisp-modules mel-modules "../mel/")
65 (compile-elisp-modules tm-modules-to-compile ".")
66 (compile-elisp-modules tm-mh-e-modules "mh-e/")
67 (compile-elisp-module 'mime-setup ".")
69 (set-buffer (get-buffer-create TM_GNUS_COMPILE))
70 (let ((emacs (car command-line-args)))
71 (insert (format "cd gnus\n%s gnus EMACS=%s PWD=`pwd`\n" MAKE emacs))
72 (cond (running-xemacs-19_14-or-later
75 (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n" MAKE emacs))
77 (t (cond (running-emacs-18
78 (insert (format "%s gnus3 EMACS=%s PWD=`pwd`\n"
80 (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
83 ((<= emacs-minor-version 29)
84 (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
86 (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n"
90 (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n"
93 (write-file TM_GNUS_COMPILE)
96 (defun install-el-and-elc-files (src dest el-files elc-files)
97 (install-files el-files src dest nil t)
98 (install-files elc-files src dest 'move)
102 (princ (format "%s\n" emacs-version))
104 (install-el-and-elc-files "../tl/" TL_DIR tl-el-files tl-elc-files)
105 (install-elisp-modules mel-modules "../mel/" MEL_DIR)
106 (install-elisp-modules tm-modules "./" TM_KERNEL_DIR)
107 (install-elisp-modules tm-mh-e-modules "mh-e/" TM_MHE_DIR)
109 (install-el-and-elc-files "./" SETUP_FILE_DIR
110 '("mime-setup.el") '("mime-setup.elc"))
113 (defun install-execs ()
114 (install-files BINS BIN_SRC_DIR BIN_DIR)
115 (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
118 ;;; inst-tm ends here