gnus/mk-tgnus

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: mk-tgnus,v 7.5 1996/09/03 15:30:22 morioka Exp $
   4 ;;;
   5
   6 (setq load-path
   7       (append
   8        (mapcar (function
   9                 (lambda (path)
  10                   (expand-file-name path (getenv "PWD"))
  11                   ))
  12                '("." ".." "../../tl/" "../../mu/" "../../mel/"))
  13        load-path))
  14
  15 (require 'emu)
  16 (require 'install)
  17
  18 (defun compile-tm-gnus ()
  19   (load "gnus.el")
  20   (require 'nntp)
  21   (require 'tm-view)
  22   (require 'tm-partial)
  23   (require 'tm-edit)
  24   (princ (format "%s\n" gnus-version))
  25   (cond ((boundp 'gnus-load-hook)
  26          (byte-compile-file "gnus-mime.el")
  27          (byte-compile-file "gnus-charset.el")
  28          (byte-compile-file "gnus-sum-mime.el")
  29          (byte-compile-file "gnus-art-mime.el")
  30          (byte-compile-file "message-mime.el")
  31          ;;(byte-compile-file "gnus-msg-mime.el")
  32          )
  33         ((string-match "GNUS 4" gnus-version)
  34          (require 'tm-gnus)
  35          (byte-compile-file "tm-gnus4.el")
  36          )
  37         ((string-match "GNUS 3" gnus-version)
  38          (require 'tm-gnus)
  39          (byte-compile-file "tm-gnus3.el")
  40          ))
  41   ;;(byte-compile-file "tm-gnus.el")
  42   )
  43
  44 (defun install-tm-gnus ()
  45   (let ((path (car command-line-args-left)))
  46     (princ (format "%s\n" emacs-version))
  47     (if (not (file-exists-p path))
  48         (make-directory path t)
  49       )
  50     (cond (running-emacs-18
  51            (install-files '("tm-gnus.el"
  52                             "tm-gnus3.el" "tm-gnus4.el"
  53                             "tm-gd3.el")
  54                           "./" path nil 'overwrite)
  55            (install-files '(;;"tm-gnus.elc"
  56                             "tm-gnus3.elc" "tm-gnus4.elc")
  57                           "./" path 'move)
  58            )
  59           ((or (and running-emacs-19 (<= emacs-minor-version 29))
  60                (and running-xemacs-19 (<= emacs-minor-version 13)))
  61            (install-files '("tm-gnus.el" "tm-gnus4.el" "tm-gd3.el"
  62                             "gnus-mime.el" "gnus-charset.el"
  63                             "gnus-sum-mime.el" "gnus-art-mime.el")
  64                           "./" path nil 'overwrite)
  65            (install-files '(;;"tm-gnus.elc"
  66                             "tm-gnus4.elc"
  67                             "gnus-mime.elc" "gnus-charset.elc"
  68                             "gnus-sum-mime.elc" "gnus-art-mime.elc")
  69                           "./" path 'move)
  70            )
  71           (t
  72            (install-files '("gnus-mime.el" "gnus-charset.el"
  73                             "gnus-sum-mime.el" "gnus-art-mime.el"
  74                             "message-mime.el"
  75                             ;;"gnus-msg-mime.el"
  76                             )
  77                           "./" path nil 'overwrite)
  78            (install-files '("gnus-mime.elc" "gnus-charset.elc"
  79                             "gnus-sum-mime.elc" "gnus-art-mime.elc"
  80                             "message-mime.elc"
  81                             ;;"gnus-msg-mime.elc"
  82                             )
  83                           "./" path 'move)
  84            ))
  85     (setq command-line-args-left (cdr command-line-args-left))
  86     ))
  87
  88 ;;; mk-tgnus ends here