diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:27:26 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:27:26 +1100 |
| commit | bfee9fab2f51a94db68247c6ee6eedebb7669209 (patch) | |
| tree | 7b425056bd649b2b18c91db953bc2a7a9e3c5762 /lisp/gnus/mail-source.el | |
| parent | 2443e3801efe6b98d54f719e0b6527b6938e9988 (diff) | |
| download | emacs-bfee9fab2f51a94db68247c6ee6eedebb7669209.tar.gz | |
Remove the gnus-float-time alias
* lisp/gnus/gnus-util.el (gnus-completion-styles): Remove
compat code.
(gnus-float-time): Remove.
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 2388a1afa57..21398d18684 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -629,8 +629,6 @@ 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 () @@ -651,7 +649,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) - (> (gnus-float-time + (> (float-time (time-since mail-source-incoming-last-checked-time)) (* 24 60 60))) (setq mail-source-incoming-last-checked-time (current-time)) |