From 8b3291d13442e88bf379d3cad1fcc5094265ded3 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 1 Jun 2021 15:46:34 +0200 Subject: [PATCH] Avoid hang in nnimap-keepalive * lisp/gnus/nnimap.el (nnimap-keepalive): Make interruptable. --- lisp/gnus/nnimap.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index f869f586d94..3e2a202a6cf 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -428,8 +428,9 @@ during splitting, which may be slow." (time-subtract now (nnimap-last-command-time nnimap-object)))) - (ignore-errors ;E.g. "buffer foo has no process". - (nnimap-send-command "NOOP")))))))) + (with-local-quit + (ignore-errors ;E.g. "buffer foo has no process". + (nnimap-send-command "NOOP"))))))))) (defun nnimap-open-connection (buffer) ;; Be backwards-compatible -- the earlier value of nnimap-stream was -- 2.39.2