*** empty log message ***

[gnus] / lisp / gnus-xmas.el

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 3dbd621..c98fe5a 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -323,6 +323,7 @@ call it with the value of the `gnus-data' text property."
 (defun gnus-xmas-read-event-char ()
   "Get the next event."
   (let ((event (next-command-event)))
+    (sit-for 0)
     ;; We junk all non-key events.  Is this naughty?
     (while (not (key-press-event-p event))
       (setq event (next-command-event)))