mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(top-level): Don't require cl when compiling.

Browse source 
(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.
This commit is contained in:
Glenn Morris 2007-12-02 04:03:19 +00:00
parent 27c11d0fd7
commit 24030ea3d9
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/url/ChangeLog
View file

@ -1,3 +1,12 @@
2007-12-02 Glenn Morris <rgm@gnu.org>
* url-news.el (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.
2007-12-01 Glenn Morris <rgm@gnu.org>
* url-handlers.el (top-level): Always require url-parse, not just

12
lisp/url/url-news.el
View file

@ -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)