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 f869f586d94a688b282265bcb9c71f128bceff74..3e2a202a6cff78d30c7a202c195908af13483612 100644 (file)
--- 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