(gnus-header-button-alist, gnus-button-alist): Fix

type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6e8d3d..16f4036 100644 (file)
--- 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 308d75e..7d1a504 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6116,7 +6116,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")
@@ -6153,7 +6153,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")