projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update copyright year to 2014
[gnus]
/
lisp
/
gnus-demon.el
diff --git
a/lisp/gnus-demon.el
b/lisp/gnus-demon.el
index
c742e1f
..
9d2cf19
100644
(file)
--- a/
lisp/gnus-demon.el
+++ b/
lisp/gnus-demon.el
@@
-1,6
+1,6
@@
;;; gnus-demon.el --- daemonic Gnus behavior
;;; gnus-demon.el --- daemonic Gnus behavior
-;; Copyright (C) 1995-201
2
Free Software Foundation, Inc.
+;; Copyright (C) 1995-201
4
Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-133,7
+133,6
@@
marked with SPECIAL."
;; Set up the timer.
(let* ((func (nth 0 handler))
(time (nth 1 handler))
;; Set up the timer.
(let* ((func (nth 0 handler))
(time (nth 1 handler))
- (time-type (type-of time))
(idle (nth 2 handler))
;; Compute time according with timestep.
;; If t, replace by 1
(idle (nth 2 handler))
;; Compute time according with timestep.
;; If t, replace by 1
@@
-145,9
+144,12
@@
marked with SPECIAL."
(* (gnus-demon-time-to-step time) gnus-demon-timestep))
(t
(* time gnus-demon-timestep))))
(* (gnus-demon-time-to-step time) gnus-demon-timestep))
(t
(* time gnus-demon-timestep))))
- (idle (if (numberp idle)
- (* idle gnus-demon-timestep)
- idle))
+ (idle (cond ((numberp idle)
+ (* idle gnus-demon-timestep))
+ ((and (eq idle t) (numberp time))
+ time)
+ (t
+ idle)))
(timer
(cond
(timer
(cond
@@
-157,11
+159,11
@@
marked with SPECIAL."
(run-with-idle-timer idle t 'gnus-demon-run-callback func))
;; (func number any)
;; Call every `time'
(run-with-idle-timer idle t 'gnus-demon-run-callback func))
;; (func number any)
;; Call every `time'
- ((
eq time-type 'integer
)
+ ((
integerp time
)
(run-with-timer time time 'gnus-demon-run-callback
func idle time))
;; (func string any)
(run-with-timer time time 'gnus-demon-run-callback
func idle time))
;; (func string any)
- ((
eq time-type 'string
)
+ ((
stringp time
)
(run-with-timer time (* 24 60 60) 'gnus-demon-run-callback
func idle)))))
(when timer
(run-with-timer time (* 24 60 60) 'gnus-demon-run-callback
func idle)))))
(when timer