Mercurial > emacs

diff lisp/url/url-gw.el @ 110998:a5b0f6d4e94a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 5495085c9b6c
children 417b1e4d63cd
line wrap: on
line diff
--- 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)