[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/gnus gnus-delay.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/gnus gnus-delay.el |
Date: |
Wed, 02 Sep 2009 06:37:27 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/02 06:37:26
Modified files:
lisp/gnus : gnus-delay.el
Log message:
Pass no argument to gnus-float-time rather than current-time.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-delay.el?cvsroot=emacs&r1=1.17&r2=1.18
Patches:
Index: gnus-delay.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-delay.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- gnus-delay.el 2 Sep 2009 03:29:50 -0000 1.17
+++ gnus-delay.el 2 Sep 2009 06:37:25 -0000 1.18
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/gnus gnus-delay.el,
Glenn Morris <=