From: yoichi <yoichi>
Date: Sun, 30 Mar 2003 07:40:49 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send-confirm): Display more info (advised
X-Git-Tag: merged-trunk-to-elmo-mark-16~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f2192c6628846385205cebaf32e1102bf1997ba8;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)