- (make-mime-setup TL_DIR MEL_DIR TM_KERNEL_DIR)
- (compile-el-files "../tl/" tl-modules)
- (compile-el-files "../mel/" mel-modules)
- (compile-el-files "./" tm-modules)
- (compile-el-files "mh-e/" tm-mh-e-modules)
- (compile-el-files "./" '("mime-setup"))
- (save-excursion
- (set-buffer (get-buffer-create TM_GNUS_COMPILE))
- (let ((emacs (car command-line-args)))
- (insert (format "cd gnus\n%s gnus EMACS=%s PWD=`pwd`\n" MAKE emacs))
- (cond ((string-match "XEmacs" emacs-version)
- (insert (format "%s sgnus EMACS=%s PWD=`pwd`\n" MAKE emacs))
- )
- (t (cond ((<= emacs-major-version 18)
- (insert (format "%s gnus3 EMACS=%s PWD=`pwd`\n"
- MAKE emacs))
- (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
- MAKE emacs))
- )
- ((< emacs-minor-version 30)
- (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
- MAKE emacs))
- (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n"
- MAKE emacs))
- )
- (t
- (insert (format "%s sgnus EMACS=%s PWD=`pwd`\n"
- MAKE emacs))
- )))))
- (write-file TM_GNUS_COMPILE)
- )
- )
-
-(defun install-el-file (src dest file)
- (let ((src-file (expand-file-name file src)))
- (if (file-exists-p src-file)
- (let ((full-path (expand-file-name file dest)))
- (if (file-exists-p full-path)
- (set-file-modes full-path el-file-mode)
- )
- (copy-file src-file full-path t t)
- (princ (format "%s -> %s\n" file dest))
- ))
- ))
-
-(defun install-el-files (src dest &rest files)
- (mapcar (function (lambda (file)
- (install-el-file src dest file)
- ))
- files))
-
-(defun install-elc (src dest file)
- (let ((src-file (expand-file-name file src)))
- (if (file-exists-p src-file)
- (let ((full-path (expand-file-name file dest)))
- (copy-file src-file full-path t t)
- (delete-file src-file)
- (princ (format "%s -> %s\n" file dest))
- ))
- ))
-
-(defun install-elc-files (src dest &rest files)
- (mapcar (function (lambda (file)
- (install-elc src dest file)
- ))
- files))
-
-(defun install-el-and-elc-files (src dest el-files elc-files)
- (if (not (file-exists-p dest))
- (make-directory dest t)
- )
- (apply (function install-el-files) src dest el-files)
- (apply (function install-elc-files) src dest elc-files)
+ (make-mime-setup TL_DIR TL_RELATIVE_DIR MU_RELATIVE_DIR
+ MEL_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
+ (compile-elisp-modules tl-modules "../tl")
+ (compile-elisp-modules mu-modules-to-compile "../mu")
+ (compile-elisp-modules mel-modules "../mel")
+ (compile-elisp-modules tm-modules-to-compile ".")
+ (compile-elisp-modules tm-mh-e-modules "../tm-mh-e")
+ (compile-elisp-module 'mime-setup ".")
+ (require 'gnus)
+ (cond ((featurep 'gnus-ems)
+ (load "../gnus-mime/Gnus-MIME-ELS")
+ (compile-elisp-modules gnus-mime-modules-to-compile "../gnus-mime")
+ )
+ (t
+ (load "../tm-gnus/TGNUS-ELS")
+ (compile-elisp-modules tm-gnus-modules-to-compile "../tm-gnus")
+ ))
+ (compile-elisp-modules tm-mail-modules "../tm-mail")
+ (compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")