diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-12-02 04:03:19 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-12-02 04:03:19 +0000 |
| commit | 24030ea3d9b990fe09ca1a06c150618d4e9b49fa (patch) | |
| tree | 1849a9e80fdeefc759bb027b0396d38a68141cfc /lisp/url/url-news.el | |
| parent | 27c11d0fd756451b659ccb26d4c6c90a2500c683 (diff) | |
| download | emacs-24030ea3d9b990fe09ca1a06c150618d4e9b49fa.tar.gz | |
(top-level): Don't require cl when compiling.
(gnus-group-buffer): Define for compiler.
(url-news-fetch-message-id): Don't use `declare'.
(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 | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/url/url-news.el b/lisp/url/url-news.el index d774270aced..fc1f0091547 100644 --- a/lisp/url/url-news.el +++ b/lisp/url/url-news.el @@ -30,9 +30,6 @@ (require 'nntp) (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." @@ -85,8 +82,9 @@ ))) buf)) +(defvar gnus-group-buffer) + (defun url-news-fetch-newsgroup (newsgroup host) - (declare (special gnus-group-buffer)) (if (string-match "^/+" newsgroup) (setq newsgroup (substring newsgroup (match-end 0)))) (if (string-match "/+$" newsgroup) @@ -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) |