[Emacs-diffs] /srv/bzr/emacs/trunk r102185: Silence mail-source.el compilation.

[Glenn Morris]

------------------------------------------------------------
revno: 102185
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-31 18:56:28 -0700
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mail-source.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-01 01:51:22 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-01 01:56:28 +0000
@@ -1,7 +1,12 @@
 2010-11-01  Glenn Morris  <address@hidden>
 
+       * mail-source.el (nnheader-message, gnus-float-time): Autoload.
+       (mail-source-delete-crash-box): Use gnus-float-time.
+
        * gnus-dired.el (gnus-completing-read): Autoload.
+
        * mm-view.el (gnus-rescale-image): Autoload.
+
        * mm-decode.el (gnus-completing-read, gnus-blocked-images): Autoload.
 
        * gnus.el (gnus-sloppily-equal-method-parameters): Move defn before use.

=== modified file 'lisp/gnus/mail-source.el'
--- a/lisp/gnus/mail-source.el  2010-10-11 23:29:33 +0000
+++ b/lisp/gnus/mail-source.el  2010-11-01 01:56:28 +0000
@@ -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))