(defvar gnus-inhibit-demon nil
"*If non-nil, no daemonic function will be run.")
+(eval-and-compile
+ (autoload 'timezone-parse-date "timezone")
+ (autoload 'timezone-make-arpa-date "timezone"))
+
;;; Functions.
(defun gnus-demon-add-handler (function time idle)
time
(let* ((now (current-time))
;; obtain NOW as discrete components -- make a vector for speed
- (nowParts (decode-time now))
+ (nowParts (apply 'vector (decode-time now)))
;; obtain THEN as discrete components
- (thenParts (parse-time-string time))
+ (thenParts (timezone-parse-time time))
(thenHour (string-to-int (elt thenParts 0)))
(thenMin (string-to-int (elt thenParts 1)))
;; convert time as elements into number of seconds since EPOCH.
(defun gnus-demon-nntp-close-connection ()
(save-window-excursion
- (when (time-less-p '(0 300) (time-since nntp-last-command-time))
+ (when (nnmail-time-less '(0 300)
+ (nnmail-time-since nntp-last-command-time))
(nntp-close-server))))
(defun gnus-demon-add-scanmail ()