(require 'gnus) (setq load-path (append '("." ".." "../../tl") load-path)) (defun compile-tm-gnus () (if (string-match "(ding)" gnus-version) (byte-compile-file "tm-dgnus.el") (if (string-match "GNUS 3" gnus-version) (byte-compile-file "tm-gnus3.el") (byte-compile-file "tm-gnus4.el") )) (byte-compile-file "tm-gnus.el") ) (defun install-tm-gnus () (print command-line-args-left) )