[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-sum.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/31 02:57:14

Modified files:
        lisp/gnus      : ChangeLog gnus-sum.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.792&r2=1.793
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-sum.el?cvsroot=emacs&r1=1.139&r2=1.140

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.792
retrieving revision 1.793
diff -u -b -r1.792 -r1.793
--- ChangeLog   19 Jan 2009 01:06:26 -0000      1.792
+++ ChangeLog   31 Jan 2009 02:57:13 -0000      1.793
@@ -1,3 +1,8 @@
+2009-01-31  Glenn Morris  <address@hidden>
+
+       * gnus-sum.el (gnus-summary-next-article): XEmacs-friendly version of
+       2009-01-09 change.
+
 2009-01-16  Teodor Zlatanov  <address@hidden>
 
        * auth-source.el: Update docs to reflect epa-file-enable is to be used

Index: gnus-sum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-sum.el,v
retrieving revision 1.139
retrieving revision 1.140
diff -u -b -r1.139 -r1.140
--- gnus-sum.el 10 Jan 2009 00:31:55 -0000      1.139
+++ gnus-sum.el 31 Jan 2009 02:57:13 -0000      1.140
@@ -7625,7 +7625,9 @@
    (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)))