(require 'gnus)
(require 'tm-view)
(princ (format "%s\n" gnus-version))
- (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")
- ))
+ (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)
+ (byte-compile-file "tm-gnus3.el")
+ )
+ (t
+ (byte-compile-file "tm-gnus4.el")
+ ))
(byte-compile-file "tm-gnus.el")
)