From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Tue, 13 Jul 2010 02:18:25 +0000 (+0000)
Subject: Stop `gnus-xmas-read-event-char' from logging prompt string.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=a59487174c2942dbbc90c80a96e291967ed8717a;p=gnus

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 18a8b6c48..faa0f1a13 100644
--- 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 d7871ff31..59fef8463 100644
--- 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?