From: yamaoka <yamaoka>
Date: Wed, 14 Dec 2005 14:26:43 +0000 (+0000)
Subject: Synch to No Gnus 200512141312.
X-Git-Tag: t-gnus-6_17_4-quimby-~176
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=779dd81d09cb6fa76e6a0fd64147099b7cf0119d;p=elisp%2Fgnus.git-

Synch to No Gnus 200512141312.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e20d565..7939fba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2005-12-14  Ralf Angeli  <angeli@iwi.uni-sb.de>
+
+	* gnus-art.el (gnus-button-handle-custom): Do not just use
+	`customize-apropos' for any "M-x customize-*" button but the
+	function called for.  Accept both the function name and its
+	argument in order to achieve this.
+	(gnus-button-alist): Remove support for "custom:" URL's.  Pass
+	function name to `gnus-button-handle-custom' in case of "M-x
+	customize-*" buttons.
+
 2005-12-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-art.el (gnus-buttonized-mime-types): Mention addition of
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 23dd7a3..b6da97c 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6771,9 +6771,11 @@ address, `ask' if unsure and `invalid' if the string is invalid."
 	   (gnus-url-mailto url-mailto))
 	  (t (gnus-message 3 "Invalid string.")))))
 
-(defun gnus-button-handle-custom (url)
-  "Follow a Custom URL."
-  (customize-apropos (gnus-url-unhex-string url)))
+(defun gnus-button-handle-custom (fun arg)
+  "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)))
 
 (defvar gnus-button-handle-describe-prefix "^\\(C-h\\|<?[Ff]1>?\\)")
 
@@ -6953,10 +6955,8 @@ positives are possible."
      ;; Info links like `C-h i d m CC Mode RET'
      0 (>= gnus-button-emacs-level 1) gnus-button-handle-info-keystrokes 2)
     ;; This is custom
-    ("\\bcustom:\\(//\\)?\\([^'\">\n\t ]+\\)"
-     0 (>= gnus-button-emacs-level 5) gnus-button-handle-custom 2)
-    ("M-x[ \t\n]customize-[^ ]+[ \t\n]RET[ \t\n]\\([^ ]+\\)[ \t\n]RET" 0
-     (>= gnus-button-emacs-level 1) gnus-button-handle-custom 1)
+    ("M-x[ \t\n]\\(customize-[^ ]+\\)[ \t\n]RET[ \t\n]\\([^ ]+\\)[ \t\n]RET" 0
+     (>= gnus-button-emacs-level 1) gnus-button-handle-custom 1 2)
     ;; Emacs help commands
     ("M-x[ \t\n]+apropos[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
      ;; regexp doesn't match arguments containing ` '.