Mercurial > emacs

comparison lisp/url/url-https.el @ 54933:1ebec6b5e54f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-https-file-attributes): Add id-format param.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 16 Apr 2004 22:02:46 +0000
parents faaf1fc90954
children 202c408c174b 625059157bad
comparison
equal deleted inserted replaced
54932:fd6856033c18 54933:1ebec6b5e54f
1 ;;; url-https.el --- HTTP over SSL routines 1 ;;; url-https.el --- HTTP over SSL routines
2
3 ;; Copyright (c) 1999, 2004 Free Software Foundation, Inc.
4
2 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
3 6
4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;; This file is part of GNU Emacs.
5 ;;; Copyright (c) 1999 Free Software Foundation, Inc. 8 ;;
6 ;;; 9 ;; GNU Emacs is free software; you can redistribute it and/or modify
7 ;;; This file is part of GNU Emacs. 10 ;; it under the terms of the GNU General Public License as published by
8 ;;; 11 ;; the Free Software Foundation; either version 2, or (at your option)
9 ;;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; any later version.
10 ;;; it under the terms of the GNU General Public License as published by 13 ;;
11 ;;; the Free Software Foundation; either version 2, or (at your option) 14 ;; GNU Emacs is distributed in the hope that it will be useful,
12 ;;; any later version. 15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; 16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;;; GNU Emacs is distributed in the hope that it will be useful, 17 ;; GNU General Public License for more details.
15 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 18 ;;
16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19 ;; You should have received a copy of the GNU General Public License
17 ;;; GNU General Public License for more details. 20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
18 ;;; 21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 ;;; You should have received a copy of the GNU General Public License 22 ;; Boston, MA 02111-1307, USA.
20 ;;; along with GNU Emacs; see the file COPYING. If not, write to the 23
21 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 24 ;;; Commentary:
22 ;;; Boston, MA 02111-1307, USA. 25
23 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 26 ;;; Code:
24 27
25 (require 'url-gw) 28 (require 'url-gw)
26 (require 'url-util) 29 (require 'url-util)
27 (require 'url-parse) 30 (require 'url-parse)
28 (require 'url-cookie) 31 (require 'url-cookie)
43 ( ,(intern (format (if method "url-http-%s" "url-http") method)) ,@(remove '&rest (remove '&optional args)))))) 46 ( ,(intern (format (if method "url-http-%s" "url-http") method)) ,@(remove '&rest (remove '&optional args))))))
44 47
45 (url-https-create-secure-wrapper nil (url callback cbargs)) 48 (url-https-create-secure-wrapper nil (url callback cbargs))
46 (url-https-create-secure-wrapper file-exists-p (url)) 49 (url-https-create-secure-wrapper file-exists-p (url))
47 (url-https-create-secure-wrapper file-readable-p (url)) 50 (url-https-create-secure-wrapper file-readable-p (url))
48 (url-https-create-secure-wrapper file-attributes (url)) 51 (url-https-create-secure-wrapper file-attributes (url &optional id-format))
49 52
50 (provide 'url-https) 53 (provide 'url-https)
51 54
52 ;;; arch-tag: c3645ac5-c248-4d12-ad41-7c4b6f7b6d19 55 ;; arch-tag: c3645ac5-c248-4d12-ad41-7c4b6f7b6d19
56 ;;; url-https.el ends here