From: yamaoka <yamaoka>
Date: Sun, 24 Aug 2003 14:13:46 +0000 (+0000)
Subject: Synch to Gnus 200308240203.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1a52396132389041a79ff1f1bffd41c3b378317d;p=elisp%2Fgnus.git-

Synch to Gnus 200308240203.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6e8d3d..16f4036 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-24  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-art.el (gnus-header-button-alist, gnus-button-alist): Fix
+	type.
+
 2003-08-22  Jesper Harder  <harder@ifa.au.dk>
 
 	* message.el (message-make-forward-subject-function): Fix
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 83315b8..d0f8a42 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6621,7 +6621,7 @@ PAR: is a number of a regexp grouping whose text will be passed to CALLBACK.
 CALLBACK can also be a variable, in that case the value of that
 variable it the real callback function."
   :group 'gnus-article-buttons
-  :type '(repeat (list (choice regexp variable)
+  :type '(repeat (list (choice regexp variable sexp)
 		       (integer :tag "Button")
 		       (sexp :tag "Form")
 		       (function :tag "Callback")
@@ -6658,7 +6658,7 @@ HEADER is a regexp to match a header.  For a fuller explanation, see
   :group 'gnus-article-buttons
   :group 'gnus-article-headers
   :type '(repeat (list (regexp :tag "Header")
-		       regexp
+		       (choice regexp variable)
 		       (integer :tag "Button")
 		       (sexp :tag "Form")
 		       (function :tag "Callback")