diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-02 03:29:49 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-02 03:29:49 +0000 |
| commit | 9693d3c4a3f735395912387902debd22eb10e4b9 (patch) | |
| tree | dd38d103339108348a39862d3381cae58b807526 /lisp/gnus/gnus-delay.el | |
| parent | feefd9f3ddfd06ecadec89580aab9c247c9cfe3d (diff) | |
| download | emacs-9693d3c4a3f735395912387902debd22eb10e4b9.tar.gz emacs-9693d3c4a3f735395912387902debd22eb10e4b9.tar.bz2 emacs-9693d3c4a3f735395912387902debd22eb10e4b9.zip | |
Use gnus-float-time rather than time-to-seconds.
Diffstat (limited to 'lisp/gnus/gnus-delay.el')
| -rw-r--r-- | lisp/gnus/gnus-delay.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-delay.el b/lisp/gnus/gnus-delay.el index 14480315f31..bd781f9df30 100644 --- a/lisp/gnus/gnus-delay.el +++ b/lisp/gnus/gnus-delay.el @@ -1,6 +1,7 @@ ;;; gnus-delay.el --- Delayed posting of articles -;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 +;; Free Software Foundation, Inc. ;; Author: Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> ;; Keywords: mail, news, extensions @@ -101,10 +102,10 @@ DELAY is a string, giving the length of the time. Possible values are: (aset deadline 1 minute) (aset deadline 2 hour) ;; Convert to seconds. - (setq deadline (time-to-seconds (apply 'encode-time + (setq deadline (gnus-float-time (apply 'encode-time (append deadline nil)))) ;; If this time has passed already, add a day. - (when (< deadline (time-to-seconds (current-time))) + (when (< deadline (gnus-float-time (current-time))) (setq deadline (+ 3600 deadline))) ;3600 secs/day ;; Convert seconds to date header. (setq deadline (message-make-date @@ -127,7 +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 (+ (time-to-seconds (current-time)) + (seconds-to-time (+ (gnus-float-time (current-time)) delay))))) (t (error "Malformed delay `%s'" delay))) (message-add-header (format "%s: %s" gnus-delay-header deadline))) |