From 89cff4667b8b908a8b74e4b5862647472f91f648 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 31 Oct 2010 18:56:28 -0700 Subject: [PATCH] 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. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mail-source.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2c4e693f72c..c3b747bc589 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,7 +1,12 @@ 2010-11-01 Glenn Morris + * 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. diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 1bd5be74013..137a18f27eb 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -501,6 +501,8 @@ See `mail-source-bind'." (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 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile) 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 @@ Deleting old (> %s day(s)) incoming mail file `%s'." diff bfile) ;; 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)) -- 2.39.5