From: Kevin Greiner <kevin.greiner@compsol.cc>
Date: Thu, 9 Jan 2003 07:56:33 +0000 (+0000)
Subject: 	* nntp.el (nntp-report): Throw error after reporting the problem.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=0df476b830683f993411acbb1035e613d162c91b;p=gnus

	* nntp.el (nntp-report): Throw error after reporting the problem.
	(nntp-accept-process-output): Corrected error check to report an
	error when the process is nil.
---

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 553214a2c..ca1c91740 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -286,7 +286,9 @@ retried once before actually displaying the error report."
   (when nntp-record-commands
     (nntp-record-command "*** CALLED nntp-report ***"))
 
-  (nnheader-report 'nntp args))
+  (nnheader-report 'nntp args)
+
+  (apply 'error args))
 
 (defun nntp-report-1 (&rest args)
   "Throws out to nntp-with-open-group-error so that the connection may
@@ -1285,8 +1287,8 @@ password contained in '~/.nntp-authinfo'."
     ;; that the server has closed the connection.  This MUST be
     ;; handled here as the buffer restored by the save-excursion may
     ;; be the process's former output buffer (i.e. now killed)
-    (or (not process)
-        (memq (process-status process) '(open run))
+    (or (and process 
+            (memq (process-status process) '(open run)))
         (nntp-report "Server closed connection"))))
 
 (defun nntp-accept-response ()