Mercurial > emacs
changeset 79525:877fc182a600
(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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 02 Dec 2007 03:57:41 +0000 |
| parents | ac3a831cedab |
| children | 65ae26667e85 |
| files | lisp/url/url-news.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)