From: Glenn Morris Date: Wed, 2 Sep 2009 06:38:07 +0000 (+0000) Subject: Pass no argument to gnus-float-time rather than current-time. X-Git-Tag: emacs-pretest-23.1.90~1514 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a727c75ac2918b0e82f69fac645f34af7fa93b2;p=emacs.git Pass no argument to gnus-float-time rather than current-time. --- 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) diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index fb2cdbce118..bd870a2f1c8 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -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))