Mercurial > emacs

changeset 73139:1ae580684ad1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* gnus-demon.el (gnus-demon): Use with-local-quit to avoid hangs.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 26 Sep 2006 18:05:41 +0000
parents 5f998245817f
children c85ee72ad64b
files lisp/gnus/gnus-demon.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-demon.el	Tue Sep 26 17:10:52 2006 +0000
+++ b/lisp/gnus/gnus-demon.el	Tue Sep 26 18:05:41 2006 +0000
@@ -218,7 +218,7 @@
 		   (< 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
+	       (with-local-quit
 		 (ignore-errors (funcall (car handler)))
 		 ;; And reset the timer.
 		 (setcar (nthcdr 1 handler)
@@ -232,14 +232,15 @@
 	       (gnus-demon-is-idle-p))
 	  ;; We want to call this handler each and every time that
 	  ;; Emacs is idle.
-	  (ignore-errors (funcall (car handler))))
+	  (with-local-quit
+	    (ignore-errors (funcall (car handler)))))
 	 (t
 	  ;; We want to call this handler only if Emacs has been idle
 	  ;; for a specified number of timesteps.
 	  (and (not (memq (car handler) gnus-demon-idle-has-been-called))
 	       (< idle gnus-demon-idle-time)
 	       (gnus-demon-is-idle-p)
-	       (progn
+	       (with-local-quit
 		 (ignore-errors (funcall (car handler)))
 		 ;; Make sure the handler won't be called once more in
 		 ;; this idle-cycle.