Mercurial > emacs
changeset 110998:a5b0f6d4e94a
* url-gw.el (url-open-stream): Use open-gnutls-stream if it exists.
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Thu, 14 Oct 2010 23:35:03 +0200 |
| parents | b8fde5ef9e14 |
| children | 9330a5183ae6 |
| files | lisp/url/ChangeLog lisp/url/url-gw.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/ChangeLog Thu Oct 14 16:32:27 2010 +0200 +++ b/lisp/url/ChangeLog Thu Oct 14 23:35:03 2010 +0200 @@ -1,3 +1,7 @@ +2010-10-14 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * url-gw.el (url-open-stream): Use open-gnutls-stream if it exists. + 2010-10-07 Lars Magne Ingebrigtsen <larsi@gnus.org> * url-http.el (url-http-end-of-document-sentinel): Protect against
--- a/lisp/url/url-gw.el Thu Oct 14 16:32:27 2010 +0200 +++ b/lisp/url/url-gw.el Thu Oct 14 23:35:03 2010 +0200 @@ -245,7 +245,10 @@ (coding-system-for-write 'binary)) (setq conn (case gw-method (tls - (open-tls-stream name buffer host service)) + (funcall (if (fboundp 'open-gnutls-stream) + 'open-gnutls-stream + 'open-tls-stream) + name buffer host service)) (ssl (open-ssl-stream name buffer host service)) ((native)