projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6758c67
)
* nntp.el (nntp-with-open-group): The quit signal handler must
author
Kevin Greiner
<kevin.greiner@compsol.cc>
Tue, 7 Jan 2003 06:43:39 +0000
(06:43 +0000)
committer
Kevin Greiner
<kevin.greiner@compsol.cc>
Tue, 7 Jan 2003 06:43:39 +0000
(06:43 +0000)
propagate the quit signal to the next outer handler so that the
caller knows that the request aborted abnormally.
lisp/nntp.el
patch
|
blob
|
history
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
(nntp-kill-buffer buffer))))))))
(unwind-protect
(setq nntp-with-open-group-internal
- (condition-case nil
+
(condition-case nil
(progn ,@forms)
(quit
(progn ,@forms)
(quit
- (nntp-close-server))))
+ (nntp-close-server)
+ (signal 'quit nil)))
+ )
(when timer
(nnheader-cancel-timer timer)))
nil))
(when timer
(nnheader-cancel-timer timer)))
nil))