In XEmacs, use make-event.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 2055365..ccdbf49 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3796,7 +3796,9 @@ This command may read the active file."
        (gnus-group-list-mode gnus-group-list-mode) ;; Save it.
        func)
     (push last-command-event unread-command-events)
-    (push ?A unread-command-events)
+    (if (featurep 'xemacs)
+       (push (make-event 'key-press '(key ?A)) unread-command-events)
+      (push ?A unread-command-events))
     (let (gnus-pick-mode keys)
       (setq keys (if (featurep 'xemacs)
                     (events-to-keys (read-key-sequence nil))