* mm-util.el (mm-charset-eval-alist): Mark as risky local variable.

* gnus.el (gnus-group-charter-alist): Mark as risky local variable.

* gnus-art.el (gnus-button-alist, gnus-header-button-alist): Mark as
risky local variable.

* gnus-group.el (gnus-group-icon-list): Mark as risky local variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 525a84f..036ff82 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2007-11-01  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * mm-util.el (mm-charset-eval-alist): Mark as risky local variable.
+
+       * gnus.el (gnus-group-charter-alist): Mark as risky local variable.
+
+       * gnus-art.el (gnus-button-alist, gnus-header-button-alist): Mark as
+       risky local variable.
+
+       * gnus-group.el (gnus-group-icon-list): Mark as risky local variable.
+
 2007-11-01  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * encrypt.el: Improve documentation to fix function name typo.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a178d0a..0c98bab 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -7194,6 +7194,7 @@ variable it the real callback function."
                       (repeat :tag "Par"
                               :inline t
                               (integer :tag "Regexp group")))))
+(put 'gnus-button-alist 'risky-local-variable t)
 
 (defcustom gnus-header-button-alist
   '(("^\\(References\\|Message-I[Dd]\\|^In-Reply-To\\):" "<[^<>]+>"
@@ -7233,6 +7234,7 @@ HEADER is a regexp to match a header.  For a fuller explanation, see
                       (repeat :tag "Par"
                               :inline t
                               (integer :tag "Regexp group")))))
+(put 'gnus-header-button-alist 'risky-local-variable t)
 
 ;;; Commands:
 

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index acf07fd..97eb37a 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -420,6 +420,7 @@ score: The score of the group.
 ticked: The number of ticked articles."
   :group 'gnus-group-icons
   :type '(repeat (cons (sexp :tag "Form") file)))
+(put 'gnus-group-icon-list 'risky-local-variable t)
 
 (defcustom gnus-group-name-charset-method-alist nil
   "Alist of method and the charset for group names.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 83e1051..39d365b 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1480,6 +1480,7 @@ When FORM is evaluated `name' is bound to the name of the group."
   :version "22.1"
   :group 'gnus-group-various
   :type '(repeat (cons (string :tag "Hierarchy") (sexp :tag "Form"))))
+(put 'gnus-group-charter-alist 'risky-local-variable t)
 
 (defcustom gnus-group-fetch-control-use-browse-url nil
   "*Non-nil means that control messages are displayed using `browse-url'.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 7187aab..fdd1d56 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -425,6 +425,7 @@ could use `autoload-coding-system' here."
                       (cons (symbol :tag "charset")
                             (symbol :tag "form"))))
   :group 'mime)
+(put 'mm-charset-eval-alist 'risky-local-variable t)
 
 (defvar mm-binary-coding-system
   (cond