diff options
| -rw-r--r-- | lisp/url/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 4 |
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 2aa14af8983..2d26bc805a7 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2006-10-16 Magnus Henoch <mange@freemail.hu> | ||
| 2 | |||
| 3 | * url-http.el (url-https-create-secure-wrapper): Always use tls | ||
| 4 | gateway method. | ||
| 5 | |||
| 1 | 2006-10-12 Magnus Henoch <mange@freemail.hu> | 6 | 2006-10-12 Magnus Henoch <mange@freemail.hu> |
| 2 | 7 | ||
| 3 | * url-http.el (url-http-find-free-connection): Handle | 8 | * url-http.el (url-http-find-free-connection): Handle |
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index bf8069ded7e..958d90683e4 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el | |||
| @@ -1261,9 +1261,7 @@ p3p | |||
| 1261 | (defmacro url-https-create-secure-wrapper (method args) | 1261 | (defmacro url-https-create-secure-wrapper (method args) |
| 1262 | `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args | 1262 | `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args |
| 1263 | ,(format "HTTPS wrapper around `%s' call." (or method "url-http")) | 1263 | ,(format "HTTPS wrapper around `%s' call." (or method "url-http")) |
| 1264 | (let ((url-gateway-method (condition-case () | 1264 | (let ((url-gateway-method 'tls)) |
| 1265 | (require 'ssl) | ||
| 1266 | (error 'tls)))) | ||
| 1267 | (,(intern (format (if method "url-http-%s" "url-http") method)) | 1265 | (,(intern (format (if method "url-http-%s" "url-http") method)) |
| 1268 | ,@(remove '&rest (remove '&optional args)))))) | 1266 | ,@(remove '&rest (remove '&optional args)))))) |
| 1269 | 1267 | ||