From: Andreas Schwab <schwab@linux-m68k.org>
Date: Tue, 1 Jun 2021 13:46:34 +0000 (+0200)
Subject: Avoid hang in nnimap-keepalive
X-Git-Tag: emacs-28.0.90~2230
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b3291d13442e88bf379d3cad1fcc5094265ded3;p=emacs.git

Avoid hang in nnimap-keepalive

* lisp/gnus/nnimap.el (nnimap-keepalive): Make interruptable.
---

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