(gnus-summary-next-article): XEmacs-friendly version of 2009-01-09 change.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index a14302c32caaa5844cfb30ee1c1bae7f0254013c..aefb2fd4cbbee2f1aa33b1f64171d294f99a001e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-31  Glenn Morris  <rgm@gnu.org>
+
+       * gnus-sum.el (gnus-summary-next-article): XEmacs-friendly version of
+       2009-01-09 change.
+
 2009-01-16  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * auth-source.el: Update docs to reflect epa-file-enable is to be used

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index ed636e032293427e55e530f542cdccefa066a9d3..0624418f5eea78c69b8310b1f8b0f60c56ce0fc6 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -7625,7 +7625,9 @@ If BACKWARD, the previous article is selected instead of the next."
    (t
     (unless (gnus-ephemeral-group-p gnus-newsgroup-name)
       (gnus-summary-jump-to-group gnus-newsgroup-name))
-    (let ((cmd last-command-char)
+    (let ((cmd (if (featurep 'xemacs)
+                  last-command-char
+                last-command-event))
          (point
           (with-current-buffer gnus-group-buffer
             (point)))