diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-02 06:38:07 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-02 06:38:07 +0000 |
| commit | 1a727c75ac2918b0e82f69fac645f34af7fa93b2 (patch) | |
| tree | 6f47d55ed7d64b128985b7073be2c47d489b2f90 /lisp/gnus/gnus-delay.el | |
| parent | c506adde9f36bae5fd501e58a1e064f810b2be5e (diff) | |
| download | emacs-1a727c75ac2918b0e82f69fac645f34af7fa93b2.tar.gz | |
Pass no argument to gnus-float-time rather than current-time.
Diffstat (limited to 'lisp/gnus/gnus-delay.el')
| -rw-r--r-- | lisp/gnus/gnus-delay.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-delay.el b/lisp/gnus/gnus-delay.el index bd781f9df30..eb227d934cd 100644 --- a/lisp/gnus/gnus-delay.el +++ b/lisp/gnus/gnus-delay.el @@ -105,7 +105,7 @@ DELAY is a string, giving the length of the time. Possible values are: (setq deadline (gnus-float-time (apply 'encode-time (append deadline nil)))) ;; If this time has passed already, add a day. - (when (< deadline (gnus-float-time (current-time))) + (when (< deadline (gnus-float-time)) (setq deadline (+ 3600 deadline))) ;3600 secs/day ;; Convert seconds to date header. (setq deadline (message-make-date @@ -128,8 +128,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 (current-time)) - delay))))) + (seconds-to-time (+ (gnus-float-time) delay))))) (t (error "Malformed delay `%s'" delay))) (message-add-header (format "%s: %s" gnus-delay-header deadline))) (set-buffer-modified-p t) |