From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 28 Jun 2019 10:01:46 +0000 (+0200)
Subject: Don't inhibit quit in Gnus when prefetching articles
X-Git-Tag: emacs-27.0.90~2170
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7682bce3cfc7661acf6f395c0558f2202b4d78d;p=emacs.git

Don't inhibit quit in Gnus when prefetching articles

* lisp/gnus/gnus-async.el (gnus-async-prefetch-next): Don't
inhibit quit when running `gnus-async-prefetch-article'.
---

diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el
index e6fe2db3555..57f667c5e50 100644
--- a/lisp/gnus/gnus-async.el
+++ b/lisp/gnus/gnus-async.el
@@ -141,8 +141,15 @@ that was fetched."
 	      (cancel-timer 'gnus-async-timer)))
 	  (setq gnus-async-timer
 		(run-with-idle-timer
-		 0.1 nil #'gnus-async-prefetch-article
-		 group (gnus-data-number next) summary)))))))
+		 0.1 nil
+		 (lambda ()
+		   ;; When running from a timer, `C-g' is inhibited.
+		   ;; But the prefetch action may (when there's a
+		   ;; network problem or the like) hang (or take a
+		   ;; long time), so allow quitting anyway.
+		   (let ((inhibit-quit nil))
+		     (gnus-async-prefetch-article
+		      group (gnus-data-number next) summary))))))))))
 
 (defun gnus-async-prefetch-article (group article summary &optional next)
   "Possibly prefetch several articles starting with ARTICLE."