Gnus development mailing list
 help / color / mirror / Atom feed
* Final (?) fix for gnus-demon.el
@ 1997-01-08 13:09 Paul Stodghill
  1997-01-09  8:33 ` Wesley.Hardaker
  0 siblings, 1 reply; 4+ messages in thread
From: Paul Stodghill @ 1997-01-08 13:09 UTC (permalink / raw)


In 0.79, the demon still runs jobs, even when Emacs is not idle. Here's the
fix.

--- rgnus-0.79/lisp/gnus-demon.el.orig	Tue Jan  7 12:40:05 1997
+++ rgnus-0.79/lisp/gnus-demon.el	Tue Jan  7 13:34:55 1997
@@ -184,10 +184,14 @@
 	(unless (zerop time)
 	  (setcar (nthcdr 1 handler) (decf time)))
 	(and (zerop time)		; If the timer now is zero...
-	     (or (not (setq idle (nth 2 handler))) ; Don't care about idle.
-		 (and (numberp idle)	; Numerical idle...
-		      (< idle gnus-demon-idle-time)) ; Idle timed out.
-		 idle)			; Or just need to be idle.
+	     ;; Test for appropriate idleness
+	     (progn
+	       (setq idle (nth 2 handler))
+	       (cond
+		 ((null idle) t)	; Don't care about idle.
+		 ((numberp idle)	; Numerical idle...
+		  (< idle gnus-demon-idle-time)) ; Idle timed out.
+		 (t (< 0 gnus-demon-idle-time)))) ; Or just need to be idle.
 	     ;; So we call the handler.
 	     (progn
 	       (funcall (car handler))


-- 
Paul Stodghill <stodghil@cs.cornell.edu>
http://www.cs.cornell.edu/home/stodghil/home.html


^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~1997-01-09 16:40 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1997-01-08 13:09 Final (?) fix for gnus-demon.el Paul Stodghill
1997-01-09  8:33 ` Wesley.Hardaker
1997-01-09 13:35   ` Paul Stodghill
1997-01-09 16:40     ` Wesley.Hardaker

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).