Stop `gnus-xmas-read-event-char' from logging prompt string.

2010-07-13  Katsumi Yamaoka  <yamaoka@jpl.org>
 * gnus-xmas.el (gnus-xmas-read-event-char): Use display-message with
 `no-log' instead of message not to log prompt string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18a8b6c..faa0f1a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-xmas.el (gnus-xmas-read-event-char): Use display-message with
+       `no-log' instead of message not to log prompt string.
+
 2010-06-22  Mark A. Hershberger  <mah@everybody.org>
 
        * mm-url.el (mm-url-encode-multipart-form-data): New function to handle

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index d7871ff..59fef84 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -341,7 +341,7 @@ call it with the value of the `gnus-data' text property."
 (defun gnus-xmas-read-event-char (&optional prompt)
   "Get the next event."
   (when prompt
-    (message "%s" prompt))
+    (display-message 'no-log (format "%s" prompt)))
   (let ((event (next-command-event)))
     (sit-for 0)
     ;; We junk all non-key events.  Is this naughty?