2002-01-03 Steve Youngs <youngs@xemacs.org>

	* gnus-sum.el (gnus-summary-make-menu-bar): XEmacs doesn't
	understand ':keys', wrap it in an featurep 'xemacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a5ce248..21b607f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-03  Steve Youngs  <youngs@xemacs.org>
+
+       * gnus-sum.el (gnus-summary-make-menu-bar): XEmacs doesn't
+       understand ':keys', wrap it in an featurep 'xemacs.
+
 2002-01-02  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-ems.el (gnus-article-display-xface): Show xface in the

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 974b6f8..e893ab6 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2013,7 +2013,9 @@ increase the score of each group you read."
             ["Fetch article with id..." gnus-summary-refer-article t]
             ["Setup Mailing List Params" gnus-mailing-list-insinuate t]
             ["Redisplay" gnus-summary-show-article t]
-            ["Raw article" gnus-summary-show-raw-article t :keys "C-u g"])))
+            ["Raw article" gnus-summary-show-raw-article 
+             ,@(if (featurep 'xemacs) '(t) 
+                 '(:keys "C-u g"))])))
       (easy-menu-define
        gnus-summary-article-menu gnus-summary-mode-map ""
        (cons "Article" innards))