* 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.

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 4dd44fe..553214a 100644 (file)
--- 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))