(eval-when-compile (require 'cl))
(eval-and-compile
- (unless (fboundp 'open-network-stream)
- (require 'tcp)))
-
-(eval-when-compile (require 'cl))
-
-(eval-and-compile
(autoload 'news-setup "rnewspost")
(autoload 'news-reply-mode "rnewspost")
(autoload 'cancel-timer "timer")
msg))
(if (nnmail-expired-article-p
group
- (date-to-time (substring msg (match-beginning 1) (match-end 1)))
+ (gnus-encode-date
+ (substring msg (match-beginning 1) (match-end 1)))
force)
(progn
(setq delete-list (concat delete-list " " (int-to-string art)))