(url-privacy-level): Add setter.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index d30534ec6be21b30bc2f490bc3e59ad1f465023f..08d5eb4c6bfffc9661754372784c8802f3fc27f1 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -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 --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index 245149068f1a2a6512837f9fcfb28f53c2575d64..97f6fc129fb412bddbe3e7d14aeb3e69657dae66 100644 (file)
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -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 @@ using `dired' to view the directory."
   :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 @@ Samples:
 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 @@ get the first available language (as opposed to the default)."
 (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.")