* gnus-util.el (gnus-read-event-char): Take an optional parameter even if

 Mule 2.3 is running.

diff --git a/ChangeLog b/ChangeLog
index 9873c02..251a1cd 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/gnus-util.el (gnus-read-event-char): Take an optional
+       parameter even if Mule 2.3 is running.
+
 2003-01-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-vers.el: T-gnus 6.15.12 revision 00.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index e56c0cd..8806c74 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -559,7 +559,13 @@ If N, return the Nth ancestor instead."
 
 (defun gnus-read-event-char (&optional prompt)
   "Get the next event."
-  (let ((event (read-event prompt)))
+  (let ((event (condition-case nil
+                  (read-event prompt)
+                ;; `read-event' doesn't allow arguments in Mule 2.3
+                (wrong-number-of-arguments
+                 (when prompt
+                   (message "%s" prompt))
+                 (read-event)))))
     ;; should be gnus-characterp, but this can't be called in XEmacs anyway
     (cons (and (numberp event) event) event)))