Mercurial > hg > xemacs-beta

comparison lisp/w3/url-vars.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 8d2a9b52c682
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
1 ;;; url-vars.el --- Variables for Uniform Resource Locator tool 1 ;;; url-vars.el --- Variables for Uniform Resource Locator tool
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/18 01:10:34 3 ;; Created: 1997/03/20 18:03:50
4 ;; Version: 1.36 4 ;; Version: 1.39
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the 24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;;; Boston, MA 02111-1307, USA. 26 ;;; Boston, MA 02111-1307, USA.
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 28
29 (defconst url-version (let ((x "p3.0.69")) 29 (defconst url-version (let ((x "p3.0.71"))
30 (if (string-match "State: \\([^ \t\n]+\\)" x) 30 (if (string-match "State: \\([^ \t\n]+\\)" x)
31 (substring x (match-beginning 1) (match-end 1)) 31 (substring x (match-beginning 1) (match-end 1))
32 x)) 32 x))
33 "Version # of URL package.") 33 "Version # of URL package.")
34 34
107 (defvar url-directory-index-file "index.html" 107 (defvar url-directory-index-file "index.html"
108 "*The filename to look for when indexing a directory. If this file 108 "*The filename to look for when indexing a directory. If this file
109 exists, and is readable, then it will be viewed instead of 109 exists, and is readable, then it will be viewed instead of
110 automatically creating the directory listing.") 110 automatically creating the directory listing.")
111 111
112 (defvar url-privacy-level 'none 112 (defvar url-privacy-level '(email)
113 "*How private you want your requests to be. 113 "*How private you want your requests to be.
114 HTTP/1.0 has header fields for various information about the user, including 114 HTTP/1.0 has header fields for various information about the user, including
115 operating system information, email addresses, the last page you visited, etc. 115 operating system information, email addresses, the last page you visited, etc.
116 This variable controls how much of this information is sent. 116 This variable controls how much of this information is sent.
117 117