gnus/tgnus-bc.el

   1 (require 'gnus)
   2
   3 (setq load-path (append '("." ".." "../../tl") load-path))
   4
   5 (defun compile-tm-gnus ()
   6   (if (string-match "(ding)" gnus-version)
   7       (byte-compile-file "tm-dgnus.el")
   8     (if (string-match "GNUS 3" gnus-version)
   9         (byte-compile-file "tm-gnus3.el")
  10       (byte-compile-file "tm-gnus4.el")
  11       ))
  12   (byte-compile-file "tm-gnus.el")
  13   )
  14
  15 (defun install-tm-gnus ()
  16   (print command-line-args-left)
  17   )