2000-11-20 16:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-article-describe-key): Use prompt.
	(gnus-article-describe-key-briefly): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d6ee3b..2e4f766 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-20 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (gnus-article-describe-key): Use prompt.
+       (gnus-article-describe-key-briefly): Ditto.
+
 2000-11-20 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-agent.el (gnus-agent-expire): Ignore corrupted history.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 0c5555e..2744d4f 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4054,9 +4054,8 @@ Argument LINES specifies lines to be scrolled down."
        (let (gnus-pick-mode)
          (push (elt key 0) unread-command-events)
          (setq key (if (featurep 'xemacs)
-                       (events-to-keys (read-key-sequence nil))
-                     (read-key-sequence nil))))
-       (message "")
+                       (events-to-keys (read-key-sequence "Describe key: "))
+                     (read-key-sequence "Describe key: "))))
        (describe-key key))
     (describe-key key)))
 
@@ -4070,9 +4069,8 @@ Argument LINES specifies lines to be scrolled down."
        (let (gnus-pick-mode)
          (push (elt key 0) unread-command-events)
          (setq key (if (featurep 'xemacs)
-                       (events-to-keys (read-key-sequence nil))
-                     (read-key-sequence nil))))
-       (message "")
+                       (events-to-keys (read-key-sequence "Describe key: "))
+                     (read-key-sequence "Describe key: "))))
        (describe-key-briefly key insert))
     (describe-key-briefly key insert)))