* wl-draft.el (wl-draft-send-confirm): Change message. Now up/down

mean move up and down. (suggested by Takashi Kawachi)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8140ebd..c3686ed 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-draft.el (wl-draft-send-confirm): Change message. Now up/down
+       mean move up and down. (suggested by Takashi Kawachi)
+
 2003-07-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-draft.el (wl-draft-normal-send-func): Fixed last change.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 2c08369..8da2ca0 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1268,7 +1268,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/j(up)/k(down)> ")
+                   (message "Send current draft? <y/n/j(down)/k(up)> ")
                    (setq answer (let ((cursor-in-echo-area t)) (read-char)))
                    (cond
                     ((or (eq answer ?y)