(gnus-group-highlight): Mark as risky.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index e8273482fabed83531ba8c7e593f0990191c576c..38ef3175a921a8ec71db310e5b65d65ee59cb672 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2007-10-23  Richard Stallman  <rms@gnu.org>
+
+       * gnus-group.el (gnus-group-highlight): Mark as risky.
+
 2007-10-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * nnmail.el (nnmail-fancy-expiry-target): Use rmail-dont-reply-to to

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 7cbe86623da119d20ad1449951e530409d0bc52d..3c5cd7bedef1d9b357f8349c82e4122820320f51 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -378,6 +378,7 @@ score: The score of the group.
 ticked: The number of ticked articles."
   :group 'gnus-group-visual
   :type '(repeat (cons (sexp :tag "Form") face)))
+(put 'gnus-group-highlight 'risky-local-variable t)
 
 (defcustom gnus-new-mail-mark ?%
   "Mark used for groups with new mail."