]> git.eshelyaron.com Git - emacs.git/commitdiff
(url-https-create-secure-wrapper): Always use tls gateway method.
authorMagnus Henoch <mange@freemail.hu>
Mon, 16 Oct 2006 14:28:46 +0000 (14:28 +0000)
committerMagnus Henoch <mange@freemail.hu>
Mon, 16 Oct 2006 14:28:46 +0000 (14:28 +0000)
lisp/url/ChangeLog
lisp/url/url-http.el

index 2aa14af89830a9f0389b046e8ce0d921383d5a52..2d26bc805a7bdb2f352d80ff593150db42df528e 100644 (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>
 
        * url-http.el (url-http-find-free-connection): Handle
index bf8069ded7ebd303b61ed55ba9875a577a769de8..958d90683e48fa21a74c1f0430a2e43a32dae648 100644 (file)
@@ -1261,9 +1261,7 @@ p3p
 (defmacro url-https-create-secure-wrapper (method args)
   `(defun ,(intern (format (if method "url-https-%s" "url-https") method)) ,args
     ,(format "HTTPS wrapper around `%s' call." (or method "url-http"))
-    (let ((url-gateway-method (condition-case ()
-                                 (require 'ssl)
-                               (error 'tls))))
+    (let ((url-gateway-method 'tls))
       (,(intern (format (if method "url-http-%s" "url-http") method))
        ,@(remove '&rest (remove '&optional args))))))