# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1251873445 0
# Node ID 6f8c7d01dcef154f77b6626021fd2d764bf79cc2
# Parent  6a1f7b318ddf085fe9a5ee002677dcd0b3b74f35
Pass no argument to gnus-float-time rather than current-time.

diff -r 6a1f7b318ddf -r 6f8c7d01dcef lisp/gnus/gnus-delay.el
--- a/lisp/gnus/gnus-delay.el	Wed Sep 02 06:36:11 2009 +0000
+++ b/lisp/gnus/gnus-delay.el	Wed Sep 02 06:37:25 2009 +0000
@@ -105,7 +105,7 @@
 	   (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 @@
 		 (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)