mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(url-https-create-secure-wrapper): Always use tls gateway method.

Browse Source
This commit is contained in:
Magnus Henoch 2006-10-16 14:28:46 +00:00
parent b43da35222
commit 784f5416cf
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/url/ChangeLog
View File

@ -1,3 +1,8 @@
2006-10-16 Magnus Henoch <mange@freemail.hu>
* url-http.el (url-https-create-secure-wrapper): Always use tls
gateway method.
2006-10-12 Magnus Henoch <mange@freemail.hu> 2006-10-12 Magnus Henoch <mange@freemail.hu>
* url-http.el (url-http-find-free-connection): Handle * url-http.el (url-http-find-free-connection): Handle

4
lisp/url/url-http.el
View File

@ -1261,9 +1261,7 @@ p3p
(defmacro url-https-create-secure-wrapper (method args) (defmacro url-https-create-secure-wrapper (method args)
`(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args
,(format "HTTPS wrapper around `%s' call." (or method "url-http")) ,(format "HTTPS wrapper around `%s' call." (or method "url-http"))
(let ((url-gateway-method (condition-case () (let ((url-gateway-method 'tls))
(require 'ssl)
(error 'tls))))
(,(intern (format (if method "url-http-%s" "url-http") method)) (,(intern (format (if method "url-http-%s" "url-http") method))
,@(remove '&rest (remove '&optional args)))))) ,@(remove '&rest (remove '&optional args))))))