(gnus-xmas-read-event-char): Take an optional

parameter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2f492e..60c18dc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-01-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-xmas.el (gnus-xmas-read-event-char): Take an optional
+       parameter. 
+
        * gnus-art.el (article-wash-html): Clean up.
        (article-wash-html): Typo fix.
 

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index c3371d3..3f72b5d 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -340,8 +340,10 @@ call it with the value of the `gnus-data' text property."
   (gnus-xmas-menu-add grouplens
     gnus-grouplens-menu))
 
-(defun gnus-xmas-read-event-char ()
+(defun gnus-xmas-read-event-char (&optional prompt)
   "Get the next event."
+  (when prompt
+    (message "%s" prompt))
   (let ((event (next-command-event)))
     (sit-for 0)
     ;; We junk all non-key events.  Is this naughty?