Mercurial > emacs
changeset 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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 31 Oct 2010 18:56:28 -0700 |
| parents | ce591845861c |
| children | c6f71b33c8ee |
| files | lisp/gnus/ChangeLog lisp/gnus/mail-source.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Oct 31 18:51:22 2010 -0700 +++ b/lisp/gnus/ChangeLog Sun Oct 31 18:56:28 2010 -0700 @@ -1,7 +1,12 @@ 2010-11-01 Glenn Morris <rgm@gnu.org> + * 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.
--- 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))