Finish previous fix

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 55be431..2d64a1e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 1999-12-07  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * nnslashdot.el (nnslashdot-request-list): There were two
-       otp-level body-forms.  Put a `progn' around them.
+       top-level body-forms.  Put a `progn' around them.
 
        * gnus.el (gnus-select-method): Use `condition-case'
        instead of `ignore-errors', since cl may not be loaded when the

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 691bd02..8d0dc98 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -868,8 +868,9 @@ used to 899, you would say something along these lines:
 (defcustom gnus-select-method
   (condition-case nil
       (nconc
-       (list 'nntp (or (ignore-errors
-                        (gnus-getenv-nntpserver))
+       (list 'nntp (or (condition-case nil
+                          (gnus-getenv-nntpserver)
+                        (error nil))
                       (when (and gnus-default-nntp-server
                                  (not (string= gnus-default-nntp-server "")))
                         gnus-default-nntp-server)