From 957997e0def9634f46e06e112dd2d0d8233c5f72 Mon Sep 17 00:00:00 2001 From: Kevin Greiner Date: Tue, 7 Jan 2003 06:43:39 +0000 Subject: [PATCH] * nntp.el (nntp-with-open-group): The quit signal handler must propagate the quit signal to the next outer handler so that the caller knows that the request aborted abnormally. --- lisp/nntp.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/nntp.el b/lisp/nntp.el index 4dd44fe04..553214a2c 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -588,10 +588,12 @@ command whose response triggered the error." (nntp-kill-buffer buffer)))))))) (unwind-protect (setq nntp-with-open-group-internal - (condition-case nil + (condition-case nil (progn ,@forms) (quit - (nntp-close-server)))) + (nntp-close-server) + (signal 'quit nil))) + ) (when timer (nnheader-cancel-timer timer))) nil)) -- 2.25.1