[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-https.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-https.el [emacs-unicode-2] |
Date: |
Thu, 14 Oct 2004 05:14:20 -0400 |
Index: emacs/lisp/url/url-https.el
diff -c emacs/lisp/url/url-https.el:1.4.2.1 emacs/lisp/url/url-https.el:1.4.2.2
*** emacs/lisp/url/url-https.el:1.4.2.1 Mon Jun 28 07:30:01 2004
--- emacs/lisp/url/url-https.el Thu Oct 14 08:49:52 2004
***************
*** 1,4 ****
! ;;; url-https.el --- HTTP over SSL routines
;; Copyright (c) 1999, 2004 Free Software Foundation, Inc.
--- 1,4 ----
! ;;; url-https.el --- HTTP over SSL/TLS routines
;; Copyright (c) 1999, 2004 Free Software Foundation, Inc.
***************
*** 30,35 ****
--- 30,36 ----
(require 'url-parse)
(require 'url-cookie)
(require 'url-http)
+ (require 'tls)
(defconst url-https-default-port 443 "Default HTTPS port.")
(defconst url-https-asynchronous-p t "HTTPS retrievals are asynchronous.")
***************
*** 38,49 ****
(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"))
! (condition-case ()
! (require 'ssl)
! (error
! (error "HTTPS support could not find `ssl' library")))
! (let ((url-gateway-method 'ssl))
! ( ,(intern (format (if method "url-http-%s" "url-http") method))
,@(remove '&rest (remove '&optional args))))))
(url-https-create-secure-wrapper nil (url callback cbargs))
(url-https-create-secure-wrapper file-exists-p (url))
--- 39,49 ----
(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))))
! (,(intern (format (if method "url-http-%s" "url-http") method))
! ,@(remove '&rest (remove '&optional args))))))
(url-https-create-secure-wrapper nil (url callback cbargs))
(url-https-create-secure-wrapper file-exists-p (url))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/url/url-https.el [emacs-unicode-2],
Miles Bader <=