From: Glenn Morris Date: Sat, 31 Jan 2009 02:57:13 +0000 (+0000) Subject: (gnus-summary-next-article): XEmacs-friendly version of 2009-01-09 change. X-Git-Tag: emacs-pretest-23.0.90~35 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49e787c9e2d49f3bdcf8a287ea15bcbbd4a90fb9;p=emacs.git (gnus-summary-next-article): XEmacs-friendly version of 2009-01-09 change. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index a14302c32ca..aefb2fd4cbb 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2009-01-31 Glenn Morris + + * gnus-sum.el (gnus-summary-next-article): XEmacs-friendly version of + 2009-01-09 change. + 2009-01-16 Teodor Zlatanov * 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 ed636e03229..0624418f5ee 100644 --- 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)))