Mercurial > emacs

comparison lisp/url/url-vars.el @ 54804:2f011866477f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cl): Don't require. (url): Add :version. (url-bug-address): Use bug-gnu-emacs.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 12 Apr 2004 04:06:12 +0000
parents e8824c4f5f7e
children 01934125951e eb7e8d483840
comparison
equal deleted inserted replaced
54803:a78c94aa182d 54804:2f011866477f
22 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;;; Boston, MA 02111-1307, USA. 23 ;;; Boston, MA 02111-1307, USA.
24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
25 25
26 (require 'mm-util) 26 (require 'mm-util)
27 (eval-when-compile (require 'cl))
28 27
29 (defconst url-version "Emacs" 28 (defconst url-version "Emacs"
30 "Version number of URL package.") 29 "Version number of URL package.")
31 30
32 (defgroup url nil 31 (defgroup url nil
33 "Uniform Resource Locator tool" 32 "Uniform Resource Locator tool"
33 :version "21.4"
34 :group 'hypermedia) 34 :group 'hypermedia)
35 35
36 (defgroup url-file nil 36 (defgroup url-file nil
37 "URL storage" 37 "URL storage"
38 :prefix "url-" 38 :prefix "url-"
92 It takes two times (numbers) as its arguments, and returns non-nil if 92 It takes two times (numbers) as its arguments, and returns non-nil if
93 the second time is 'too old' when compared to the first time." 93 the second time is 'too old' when compared to the first time."
94 :type 'function 94 :type 'function
95 :group 'url-cache) 95 :group 'url-cache)
96 96
97 (defvar url-bug-address "w3-bugs@xemacs.org" 97 (defconst url-bug-address "bug-gnu-emacs@gnu.org"
98 "Where to send bug reports.") 98 "Where to send bug reports.")
99 99
100 (defcustom url-personal-mail-address nil 100 (defcustom url-personal-mail-address nil
101 "*Your full email address. 101 "*Your full email address.
102 This is what is sent to HTTP servers as the FROM field in an HTTP 102 This is what is sent to HTTP servers as the FROM field in an HTTP