;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: mk-tgnus,v 5.0 1996/06/27 15:01:37 morioka Exp $
+;;;
+
+(setq load-path
+ (append
+ (mapcar (function
+ (lambda (path)
+ (expand-file-name path (getenv "PWD"))
+ ))
+ '("." ".." "../../tl/" "../../mel/"))
+ load-path))
(require 'emu)
-(require 'tm-partial)
(defun compile-tm-gnus ()
- (require 'gnus)
+ (load "gnus.el")
+ (require 'nntp)
(require 'tm-view)
+ (require 'tm-partial)
+ (require 'tm-edit)
(princ (format "%s\n" gnus-version))
(cond ((boundp 'gnus-original-article-buffer)
- (byte-compile-file "tm-sgnus.el")
- )
- ((string-match "Gnus v5\\|September Gnus" gnus-version)
+ (require 'tm-gnus)
(byte-compile-file "tm-gnus5.el")
)
- ((string-match "(ding)" gnus-version)
- (require 'tm-dgnus)
- (byte-compile-file "tm-dgnus.el")
- (byte-compile-file "tm-gnus5.el")
+ ((string-match "Gnus v5\\|September Gnus" gnus-version)
+ (require 'tm-gnus)
+ (byte-compile-file "tm-gnus4.el")
)
((string-match "GNUS 4" gnus-version)
+ (require 'tm-gnus)
(byte-compile-file "tm-gnus4.el")
)
((string-match "GNUS 3" gnus-version)
+ (require 'tm-gnus)
(byte-compile-file "tm-gnus3.el")
))
- (byte-compile-file "tm-gnus.el")
+ ;;(byte-compile-file "tm-gnus.el")
)
(defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
(if (not (file-exists-p path))
(make-directory path t)
)
- (if (< (string-to-int emacs-version) 19)
- (progn
- (install-el-files path
- "tm-gnus.el" "tm-ognus.el"
- "tm-gnus3.el" "tm-gnus4.el")
- (install-elc-files path
- "tm-gnus.elc"
- "tm-gnus3.elc" "tm-gnus4.elc")
- )
- (progn
- (install-el-files path
- "tm-gnus.el" "tm-sgnus.el"
- "tm-gnus5.el" "tm-dgnus.el"
- "tm-ognus.el" "tm-gnus4.el")
- (install-elc-files path
- "tm-gnus.elc" "tm-sgnus.elc"
- "tm-gnus5.elc" "tm-dgnus.elc"
- "tm-gnus4.elc")
- ))))
+ (cond (running-emacs-18
+ (install-el-files path
+ "tm-gnus.el"
+ "tm-gnus3.el" "tm-gnus4.el"
+ "tm-gd3.el")
+ (install-elc-files path
+ ;;"tm-gnus.elc"
+ "tm-gnus3.elc" "tm-gnus4.elc")
+ )
+ ((and running-emacs-19 (<= emacs-minor-version 29))
+ (install-el-files path
+ "tm-gnus.el" "tm-gnus4.el" "tm-gd3.el")
+ (install-elc-files path
+ ;;"tm-gnus.elc"
+ "tm-gnus4.elc")
+ )
+ ((and running-xemacs-19 (<= emacs-minor-version 13))
+ (install-el-files path
+ "tm-gnus.el"
+ "tm-gnus5.el" "tm-gnus4.el"
+ "tm-gd3.el")
+ (install-elc-files path
+ ;;"tm-gnus.elc"
+ "tm-gnus5.elc" "tm-gnus4.elc")
+ )
+ ((and running-emacs-19 (<= emacs-minor-version 31))
+ (install-el-files path
+ "tm-gnus.el"
+ "tm-gnus5.el" "tm-gnus4.el")
+ (install-elc-files path
+ ;;"tm-gnus.elc"
+ "tm-gnus5.elc" "tm-gnus4.elc")
+ )
+ (t
+ (install-el-files path "tm-gnus.el" "tm-gnus5.el")
+ (install-elc-files path
+ ;;"tm-gnus.elc"
+ "tm-gnus5.elc")
+ ))
+ (setq command-line-args-left (cdr command-line-args-left))
+ ))