mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Don't inhibit quit in Gnus when prefetching articles

Browse source 
* lisp/gnus/gnus-async.el (gnus-async-prefetch-next): Don't
inhibit quit when running `gnus-async-prefetch-article'.
This commit is contained in:
Lars Ingebrigtsen 2019-06-28 12:01:46 +02:00
parent cb182ce6f8
commit a7682bce3c
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/gnus-async.el
View file

@ -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."