Add ", ?".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75752fa..329a8a3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-03  Vasily Korytov <deskpot@despammed.com>  (tiny change)
+
+       * gnus-util.el (gnus-multiple-choice): Add ", ?".
+
 2003-05-03  Dave Love  <fx@gnu.org>
 
        * mm-encode.el (mm-long-lines-p): Autoload.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index c41232a..6ec80a4 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1301,8 +1301,9 @@ CHOICE is a list of the choice char and help message at IDX."
        (while (not tchar)
          (message "%s (%s): "
                   prompt
-                  (mapconcat (lambda (s) (char-to-string (car s)))
-                             choice ", "))
+                  (concat
+                   (mapconcat (lambda (s) (char-to-string (car s)))
+                              choice ", ") ", ?"))
          (setq tchar (read-char))
          (when (not (assq tchar choice))
            (setq tchar nil)