(gnus-button-handle-custom): Support

`customize-apropos*'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ddb7b5..ed798c4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,14 @@
+2006-06-22  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-art.el (gnus-button-handle-custom): Support
+       `customize-apropos*'.
+
 2006-06-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
-       * gnus-art.el (article-hide-headers): Inhibit read-only stuff. 
+       * gnus-art.el (article-hide-headers): Inhibit read-only stuff.
 
        * gnus-group.el (gnus-fetch-group): Document ARTICLES and select those
-       articles. 
+       articles.
 
 2006-06-21  Reiner Steib  <Reiner.Steib@gmx.de>
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index fb5c140..60237f0 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6700,7 +6700,10 @@ address, `ask' if unsure and `invalid' if the string is invalid."
   "Call function FUN on argument ARG.
 Both FUN and ARG are supposed to be strings.  ARG will be passed
 as a symbol to FUN."
-  (funcall (intern fun) (intern arg)))
+  (funcall (intern fun)
+          (if (string-match "^customize-apropos" fun)
+              arg
+            (intern arg))))
 
 (defvar gnus-button-handle-describe-prefix "^\\(C-h\\|<?[Ff]1>?\\)")