proto-stream.el (proto-stream-open-tls): Return nil if we don't get any stream.

gnus.texi (Server Commands): Point to the rest of the server commands.

doc/misc/ChangeLog

+2010-12-06  Tassilo Horn  <tassilo@member.fsf.org>
+
+	* gnus.texi (Server Commands): Point to the rest of the server
+	commands.
+
 2010-12-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus.texi (Paging the Article): Note the reverse meanings of `C-u C-u

doc/misc/gnus.texi

@@ -13885,6 +13885,9 @@ hence getting a correct total article count.
 @end table
+Some more commands for closing, disabling, and re-opening servers are
+listed in @ref{Unavailable Servers}.
+
 @node Example Methods
 @subsection Example Methods

lisp/gnus/ChangeLog

 2010-12-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+	* proto-stream.el (proto-stream-open-tls): Return nil if we don't get
+	any stream.
+
 	* shr.el (shr-tag-font): Colorize the region.
 	(shr-tag-body): Ditto.
 	(shr-tag-font): Actually let the styles be inherited instead of

lisp/gnus/proto-stream.el

@@ -219,16 +219,18 @@ command to switch on STARTTLS otherwise."
 			'open-gnutls-stream
 		      'open-tls-stream)
 		    name buffer host service)))
-      ;; If we're using tls.el, we have to delete the output from
-      ;; openssl/gnutls-cli.
-      (unless (fboundp 'open-gnutls-stream)
-	(proto-stream-get-response
-	 stream start (proto-stream-eoc parameters))
-	(goto-char (point-min))
-	(when (re-search-forward (proto-stream-eoc parameters) nil t)
-	  (goto-char (match-beginning 0))
-	  (delete-region (point-min) (line-beginning-position))))
-      (proto-stream-capability-open start stream parameters))))
+      (if (null stream)
+	  nil
+	;; If we're using tls.el, we have to delete the output from
+	;; openssl/gnutls-cli.
+	(unless (fboundp 'open-gnutls-stream)
+	  (proto-stream-get-response
+	   stream start (proto-stream-eoc parameters))
+	  (goto-char (point-min))
+	  (when (re-search-forward (proto-stream-eoc parameters) nil t)
+	    (goto-char (match-beginning 0))
+	    (delete-region (point-min) (line-beginning-position))))
+	(proto-stream-capability-open start stream parameters)))))
 
 (defun proto-stream-open-shell (name buffer host service parameters)
   (proto-stream-capability-open