# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1136920478 0
# Node ID 0c55f53b51e6503df8986e09b376471e957aeb9e
# Parent  3866d4654d59320ccd138edfae2a5c710a089c27
(url-privacy-level): Add setter.

diff -r 3866d4654d59 -r 0c55f53b51e6 lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Tue Jan 10 19:13:54 2006 +0000
+++ b/lisp/url/ChangeLog	Tue Jan 10 19:14:38 2006 +0000
@@ -1,3 +1,7 @@
+2006-01-10  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* url-vars.el (url-privacy-level): Add setter.
+
 2006-01-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* url-history.el (url-history-hash-table): Initialize in declaration.
diff -r 3866d4654d59 -r 0c55f53b51e6 lisp/url/url-vars.el
--- a/lisp/url/url-vars.el	Tue Jan 10 19:13:54 2006 +0000
+++ b/lisp/url/url-vars.el	Tue Jan 10 19:14:38 2006 +0000
@@ -1,7 +1,7 @@
 ;;; url-vars.el --- Variables for Uniform Resource Locator tool
 
 ;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2004,
-;;   2005 Free Software Foundation, Inc.
+;;   2005, 2006 Free Software Foundation, Inc.
 
 ;; Keywords: comm, data, processes, hypermedia
 
@@ -112,9 +112,8 @@
   :type 'string
   :group 'url-file)
 
-;; Fixme: this should have a setter which calls url-setup-privacy-info.
 (defcustom url-privacy-level '(email)
-  "*How private you want your requests to be.
+  "How private you want your requests to be.
 HTTP has header fields for various information about the user, including
 operating system information, email addresses, the last page you visited, etc.
 This variable controls how much of this information is sent.
@@ -144,6 +143,8 @@
 This variable controls several other variables and is _NOT_ automatically
 updated.  Call the function `url-setup-privacy-info' after modifying this
 variable."
+  :initialize 'custom-initialize-default
+  :set (lambda (sym val) (set-default sym val) (url-setup-privacy-info))
   :type '(radio (const :tag "None (you believe in the basic goodness of humanity)"
 		       :value none)
 		(const :tag "Low (do not reveal last location)"
@@ -278,7 +279,7 @@
 (defvar url-package-version nil
   "Version number of package using URL.")
 
-(defvar url-package-name nil "Version number of package using URL.")
+(defvar url-package-name nil "Name of package using URL.")
 
 (defvar url-system-type nil
   "What type of system we are on.")