See ChangeLog for comments

diff --git a/GNUS-NEWS b/GNUS-NEWS
index a725d82..5a0267c 100644 (file)
--- a/GNUS-NEWS
+++ b/GNUS-NEWS
@@ -25,3 +25,6 @@ of variables starting with `gnus-treat-' have been added.
 *** The Gnus posting styles have been redone again and now works in a
 subtly different manner.
 
+*** New web-based backends have been added: nnslashdot, nnwarchive
+and nnultimate.  nnweb has been revamped, again, to keep up with
+ever-changing layouts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75ea460..b4aea87 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 1999-11-12 05:04:43  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-int.el (gnus-server-opened): Ignore denied servers.
+
        * gnus-ems.el (gnus-mule-max-width-function): New backquote
        syntax. 
 

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index a382bb0..bc94a5c 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -219,10 +219,12 @@ If it is down, start it up (again)."
 
 (defun gnus-server-opened (gnus-command-method)
   "Check whether a connection to GNUS-COMMAND-METHOD has been opened."
-  (when (stringp gnus-command-method)
-    (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
-  (funcall (inline (gnus-get-function gnus-command-method 'server-opened))
-          (nth 1 gnus-command-method)))
+  (unless (eq (gnus-server-status gnus-command-method)
+             'denied)
+    (when (stringp gnus-command-method)
+      (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
+    (funcall (inline (gnus-get-function gnus-command-method 'server-opened))
+            (nth 1 gnus-command-method))))
 
 (defun gnus-status-message (gnus-command-method)
   "Return the status message from GNUS-COMMAND-METHOD.