# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1196567861 0
# Node ID 877fc182a6004c108bb0c765599b3d2e5f4fdf11
# Parent  ac3a831cedab1402f8f800522a974f2dee10706b
(nntp-open-tls-stream, nntp-open-ssl-stream):
No need to define for compiler.
(url-snews): Use nntp-open-tls-stream unless ssl is requested.

diff -r ac3a831cedab -r 877fc182a600 lisp/url/url-news.el
--- a/lisp/url/url-news.el	Sat Dec 01 22:59:19 2007 +0000
+++ b/lisp/url/url-news.el	Sun Dec 02 03:57:41 2007 +0000
@@ -31,8 +31,6 @@
 (autoload 'url-warn "url")
 (autoload 'gnus-group-read-ephemeral-group "gnus-group")
 (eval-when-compile (require 'cl))
-(defvar nntp-open-tls-stream)
-(defvar nntp-open-ssl-stream)
 
 (defgroup url-news nil
   "News related options."
@@ -127,9 +125,9 @@
 
 ;;;###autoload
 (defun url-snews (url)
-  (let ((nntp-open-connection-function (if (eq 'tls url-gateway-method)
-					   nntp-open-tls-stream
-					 nntp-open-ssl-stream)))
+  (let ((nntp-open-connection-function (if (eq 'ssl url-gateway-method)
+					   'nntp-open-ssl-stream
+					 'nntp-open-tls-stream)))
     (url-news url)))
 
 (provide 'url-news)