From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Thu, 1 Nov 2007 20:48:53 +0000 (+0000)
Subject: * mm-util.el (mm-charset-eval-alist): Mark as risky local variable.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=bdfb666064f11032744c4ea8e183274fa138bd50;p=gnus

* 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 525a84f21..036ff8225 100644
--- 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 a178d0ac1..0c98babca 100644
--- 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 acf07fd98..97eb37a81 100644
--- 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 83e105135..39d365b04 100644
--- 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 7187aaba2..fdd1d567b 100644
--- 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