* nntp.el (nntp-possibly-change-group): Avoid calling

	process-buffer on nil (Which happened when you lost your
	connection while fetching); instead signal a "Server Closed
	Connection" error.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7cc9b24..70a87aa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-03-02  Kevin Greiner  <kgreiner@xpediantsolutions.com>
+
+       * nntp.el (nntp-possibly-change-group): Avoid calling
+       process-buffer on nil (Which happened when you lost your
+       connection while fetching); instead signal a "Server Closed
+       Connection" error.
+
 2003-03-02  Kevin Greiner  <kgreiner@xpediantsolutions.com>
 
        * gnus-agent.el (gnus-agent-enable-expiration): New

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 45e63a6..dccd3ab 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1329,16 +1329,18 @@ password contained in '~/.nntp-authinfo'."
 
   (when group
     (let ((entry (nntp-find-connection-entry nntp-server-buffer)))
-      (when (not (equal group (caddr entry)))
-       (save-excursion
-         (set-buffer (process-buffer (car entry)))
-         (erase-buffer)
-         (nntp-send-command "^[245].*\n" "GROUP" group)
-         (setcar (cddr entry) group)
-         (erase-buffer)
-         (save-excursion
-           (set-buffer nntp-server-buffer)
-           (erase-buffer)))))))
+      (cond ((not entry)
+             (nntp-report "Server closed connection"))
+            ((not (equal group (caddr entry)))
+             (save-excursion
+               (set-buffer (process-buffer (car entry)))
+               (erase-buffer)
+               (nntp-send-command "^[245].*\n" "GROUP" group)
+               (setcar (cddr entry) group)
+               (erase-buffer)
+               (save-excursion
+                 (set-buffer nntp-server-buffer)
+                 (erase-buffer))))))))
 
 (defun nntp-decode-text (&optional cr-only)
   "Decode the text in the current buffer."