(gnus-button-handle-apropos-variable): Fall back to

apropos if apropos-variable does not exist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 188a8d8..adcec6f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-25  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus-art.el (gnus-button-handle-apropos-variable): Fall back to
+       apropos if apropos-variable does not exist.
+
 2002-09-25  Mark A. Hershberger  <mah@everybody.org>
 
        * nnrss.el (nnrss-save-server-data): Save nnrss-group-alist in

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 459b2a7..923bb81 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5362,7 +5362,9 @@ guessing."
 
 (defun gnus-button-handle-apropos-variable (url)
   "Call apropos when pushing the corresponding URL button."
-  (apropos-variable (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
+  (funcall
+   (if (fboundp 'apropos-variable) 'apropos-variable 'apropos)
+   (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
 
 (defcustom gnus-button-man-level 5
   "*Integer that says how many man-related buttons Gnus will show.