* 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 4d18db9..cf7c70e 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-10  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * make.bat: Removed "-no-init-file" (it's the same as "-q").  Use

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)))