diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-12-02 03:58:04 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-12-02 03:58:04 +0000 |
| commit | 0bb2aced741f703268aaa82250629f20e4aae838 (patch) | |
| tree | b8e425393f8991a4278ab72a7f653ff520c5cfad /lisp/url/url-news.el | |
| parent | e578482076d5edc7198ab6ace5800ef4ce84482e (diff) | |
| download | emacs-0bb2aced741f703268aaa82250629f20e4aae838.tar.gz | |
(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.
Diffstat (limited to 'lisp/url/url-news.el')
| -rw-r--r-- | lisp/url/url-news.el | 8 |
1 files changed, 3 insertions, 5 deletions
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) |