diff lisp/gnus/mail-source.el @ 111282:8fecec59e268

Silence mail-source.el compilation. * lisp/gnus/mail-source.el (nnheader-message, gnus-float-time): Autoload. (mail-source-delete-crash-box): Use gnus-float-time.

--- a/lisp/gnus/mail-source.el	Sun Oct 31 18:51:22 2010 -0700
+++ b/lisp/gnus/mail-source.el	Sun Oct 31 18:56:28 2010 -0700
@@ -501,6 +501,8 @@
    (t
     value)))
 
+(autoload 'nnheader-message "nnheader")
+
 (defun mail-source-fetch (source callback &optional method)
   "Fetch mail from SOURCE and call CALLBACK zero or more times.
 CALLBACK will be called with the name of the file where (some of)
@@ -594,6 +596,8 @@
 	0)
     (funcall callback mail-source-crash-box info)))
 
+(autoload 'gnus-float-time "gnus-util")
+
 (defvar mail-source-incoming-last-checked-time nil)
 
 (defun mail-source-delete-crash-box ()
@@ -614,7 +618,7 @@
 	  ;; Don't check for old incoming files more than once per day to
 	  ;; save a lot of file accesses.
 	  (when (or (null mail-source-incoming-last-checked-time)
-		    (> (time-to-seconds
+		    (> (gnus-float-time
 			(time-since mail-source-incoming-last-checked-time))
 		       (* 24 60 60)))
 	    (setq mail-source-incoming-last-checked-time (current-time))