gnus-demon-init: Fix time computing when time is nil

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 767eee2..af785fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-12-03  Julien Danjou  <julien@danjou.info>
+
+       * gnus-demon.el (gnus-demon-init): Fix time computing when time is nil.
+
 2010-12-03  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-util.el (gnus-macroexpand-all): Don't modify argument;

diff --git a/lisp/gnus-demon.el b/lisp/gnus-demon.el
index 94a4952..b33a673 100644 (file)
--- a/lisp/gnus-demon.el
+++ b/lisp/gnus-demon.el
@@ -121,7 +121,7 @@ Emacs has been idle for IDLE `gnus-demon-timestep's."
            ;; If t, replace by 1
            (time (cond ((eq time t)
                         gnus-demon-timestep)
-                       ((null time))
+                       ((null time) nil)
                        (t (* time gnus-demon-timestep))))
            (timer
             (cond