* gnus-delay.el (gnus-delay-article) Fix number of seconds per day.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d19efb0..dc45746 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-02-13  Adam Sjøgren  <asjo@koldfront.dk>
+
+       * gnus-delay.el (gnus-delay-article) Fix number of seconds per day.
+
 2011-02-13  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-article-mode-line-format): Remove the article

diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index a06a510..9b5a320 100644 (file)
--- a/lisp/gnus-delay.el
+++ b/lisp/gnus-delay.el
@@ -105,7 +105,7 @@ DELAY is a string, giving the length of the time.  Possible values are:
                                                  (append deadline nil))))
           ;; If this time has passed already, add a day.
           (when (< deadline (gnus-float-time))
-            (setq deadline (+ 3600 deadline))) ;3600 secs/day
+            (setq deadline (+ 86400 deadline))) ; 86400 secs/day
           ;; Convert seconds to date header.
           (setq deadline (message-make-date
                           (seconds-to-time deadline))))