* wl-draft.el (wl-draft-send-confirm): Display more info (advised

by Kenichi OKADA <okada@opaopa.org>).

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ea1ad2e..cf53d05 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-30  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-draft.el (wl-draft-send-confirm): Display more info (advised
+       by Kenichi OKADA <okada@opaopa.org>).
+
 2003-03-28  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * wl-folder.el (wl-folder-open-all): Fix to get proper entity.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index c546569..f9ed725 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1254,7 +1254,7 @@ This variable is valid when `wl-interactive-send' has non-nil value."
                (goto-char (point-min)) ; to show recipients in header
                (catch 'done
                  (while t
-                   (message "Send current draft? <y/n> ")
+                   (message "Send current draft? <y/n/j(up)/k(down)> ")
                    (setq answer (let ((cursor-in-echo-area t)) (read-char)))
                    (cond
                     ((or (eq answer ?y)