From 0bb2aced741f703268aaa82250629f20e4aae838 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 2 Dec 2007 03:58:04 +0000 Subject: [PATCH] (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. --- lisp/url/ChangeLog | 6 ++++++ lisp/url/url-news.el | 8 +++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 241746162d5..0b8e1a85843 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,9 @@ +2007-12-02 Glenn Morris + + * url-news.el (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. + 2007-11-28 Diane Murray * url-dired.el: Don't require w3-fetch and w3-open-local. diff --git a/lisp/url/url-news.el b/lisp/url/url-news.el index d774270aced..a110a505561 100644 --- a/lisp/url/url-news.el +++ b/lisp/url/url-news.el @@ -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) -- 2.39.2