(require 'gnus)
(require 'tm-view)
(princ (format "%s\n" gnus-version))
- (cond ((string-match "(ding)" gnus-version)
- (if (string-lessp "(ding) Gnus v0.99.27" gnus-version)
- (byte-compile-file "tm-dgnus.el")
- )
- )
- ((string-match "GNUS 3" gnus-version)
+ (cond ((string-match "GNUS 3" gnus-version)
(byte-compile-file "tm-gnus3.el")
)
- (t
+ ((string-match "GNUS 4" gnus-version)
(byte-compile-file "tm-gnus4.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" gnus-version)
+ (byte-compile-file "tm-gnus5.el")
))
(byte-compile-file "tm-gnus.el")
)
)
(progn
(install-el-files path
- "tm-gnus.el" "tm-dgnus.el"
+ "tm-gnus.el" "tm-gnus5.el"
+ "tm-dgnus.el"
"tm-ognus.el" "tm-gnus4.el")
(install-elc-files path
- "tm-gnus.elc" "tm-dgnus.elc"
+ "tm-gnus.elc" "tm-gnus5.elc"
+ "tm-dgnus.elc"
"tm-gnus4.elc")
))))