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/gnus-delay.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/gnus-delay.el')
| -rw-r--r-- | lisp/gnus/gnus-delay.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-delay.el b/lisp/gnus/gnus-delay.el index 93069e5e4e8..2f387fc336b 100644 --- a/lisp/gnus/gnus-delay.el +++ b/lisp/gnus/gnus-delay.el @@ -103,10 +103,10 @@ DELAY is a string, giving the length of the time. Possible values are: (aset deadline 1 minute) (aset deadline 2 hour) ;; Convert to seconds. - (setq deadline (gnus-float-time (apply 'encode-time - (append deadline nil)))) + (setq deadline (float-time (apply 'encode-time + (append deadline nil)))) ;; If this time has passed already, add a day. - (when (< deadline (gnus-float-time)) + (when (< deadline (float-time)) (setq deadline (+ 86400 deadline))) ; 86400 secs/day ;; Convert seconds to date header. (setq deadline (message-make-date @@ -129,7 +129,7 @@ DELAY is a string, giving the length of the time. Possible values are: (t (setq delay (* num 60)))) (setq deadline (message-make-date - (seconds-to-time (+ (gnus-float-time) delay))))) + (seconds-to-time (+ (float-time) delay))))) (t (error "Malformed delay `%s'" delay))) (message-add-header (format "%s: %s" gnus-delay-header deadline))) (set-buffer-modified-p t) |