2002-10-17 Steve Youngs <youngs@xemacs.org>

	* gnus-art.el (gnus-button-man-handler): Add 'manual-entry' for
	XEmacs, default to it if featurep 'xemacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e995b1b..e54c374 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-17  Steve Youngs  <youngs@xemacs.org>
+
+       * gnus-art.el (gnus-button-man-handler): Add 'manual-entry' for
+       XEmacs, default to it if featurep 'xemacs.
+
 2002-10-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * spam-stat.el: Check for the existence of hash functions instead

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index ea7d6c5..6e15099 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5314,11 +5314,14 @@ groups."
   :group 'gnus-article-buttons
   :type 'regexp)
 
-(defcustom gnus-button-man-handler 'man
+(defcustom gnus-button-man-handler (if (featurep 'xemacs)
+                                      'manual-entry
+                                    'man)
   "Function to use for displaying man pages.
 The function must take at least one argument with a string naming the
 man page."
-  :type '(choice (function-item :tag "Man" man)
+  :type '(choice (function-item :tag "Man (Emacs)" man)
+                (function-item :tag "Man (XEmacs)" manual-entry)
                 (function-item :tag "Woman" woman)
                 (function :tag "Other"))
   :group 'gnus-article-buttons)