From 49e787c9e2d49f3bdcf8a287ea15bcbbd4a90fb9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 31 Jan 2009 02:57:13 +0000 Subject: [PATCH] (gnus-summary-next-article): XEmacs-friendly version of 2009-01-09 change. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-sum.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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))) -- 2.39.2