Mercurial > emacs

changeset 104805:6f8c7d01dcef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Pass no argument to gnus-float-time rather than current-time.
author Glenn Morris <rgm@gnu.org>
date Wed, 02 Sep 2009 06:37:25 +0000
parents 6a1f7b318ddf
children 409fc58fd03d
files lisp/gnus/gnus-delay.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)