From 7a9fc593508250c2a84320a5430dda49e7354fef Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 14 Oct 2010 23:35:03 +0200 Subject: [PATCH] * url-gw.el (url-open-stream): Use open-gnutls-stream if it exists. --- lisp/url/ChangeLog | 4 ++++ lisp/url/url-gw.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 4c4af45b1c2..4ef2b42756b 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,7 @@ +2010-10-14 Lars Magne Ingebrigtsen + + * url-gw.el (url-open-stream): Use open-gnutls-stream if it exists. + 2010-10-07 Lars Magne Ingebrigtsen * url-http.el (url-http-end-of-document-sentinel): Protect against diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el index 714d12f3f10..4358255bde5 100644 --- a/lisp/url/url-gw.el +++ b/lisp/url/url-gw.el @@ -245,7 +245,10 @@ Might do a non-blocking connection; use `process-status' to check." (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) -- 2.39.5