Commit 1a727c75 authored by Glenn Morris's avatar Glenn Morris
Browse files

Pass no argument to gnus-float-time rather than current-time.

parent c506adde
......@@ -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)
......
......@@ -451,7 +451,7 @@ Returns \" ? \" if there's bad input or if an other error occurs.
Input should look like this: \"Sun, 14 Oct 2001 13:34:39 +0200\"."
(condition-case ()
(let* ((messy-date (gnus-float-time (safe-date-to-time messy-date)))
(now (gnus-float-time (current-time)))
(now (gnus-float-time))
;;If we don't find something suitable we'll use this one
(my-format "%b %d '%y"))
(let* ((difference (- now messy-date))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment