* wl-draft.el (wl-draft-send-confirm): New function.
authoryoichi <yoichi>
Tue, 11 Feb 2003 13:01:08 +0000 (13:01 +0000)
committeryoichi <yoichi>
Tue, 11 Feb 2003 13:01:08 +0000 (13:01 +0000)
(wl-draft-send): Use it.

* wl-summary.el (wl-summary-jump-to-msg-by-message-id): Bind
cursor-in-echo-area while confirming.

wl/ChangeLog
wl/wl-draft.el
wl/wl-summary.el

index 9d8086b..21dbdc5 100644 (file)
@@ -1,5 +1,11 @@
 2003-02-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+       * wl-draft.el (wl-draft-send-confirm): New function.
+       (wl-draft-send): Use it.
+
+       * wl-summary.el (wl-summary-jump-to-msg-by-message-id): Bind
+       cursor-in-echo-area while confirming.
+
        * wl-summary.el (wl-summary-virtual): Call wl-summary-virtual-hook.
 
        * wl-summary.el (wl-summary-jump-to-msg-by-message-id): Force
index bd5e929..690411e 100644 (file)
@@ -1237,6 +1237,22 @@ If FORCE-MSGID, insert message-id regardless of `wl-insert-message-id'."
       (setq locals (cdr locals)))
     result))
 
+(defun wl-draft-send-confirm ()
+  (let (result answer)
+    (save-excursion
+      (goto-char (point-min))
+      (message "Send current draft? <y/n/p(review)> ")
+      (setq answer (let ((cursor-in-echo-area t)) (read-char))))
+    (cond
+     ((or (eq answer (string-to-char "y"))
+         (eq answer (string-to-char "Y"))
+         (eq answer (string-to-char " ")))
+      (setq result t))
+     ((or (eq answer (string-to-char "p"))
+         (eq answer (string-to-char "P")))
+      (wl-draft-preview-message)))
+    result))
+
 (defun wl-draft-send (&optional kill-when-done mes-string)
   "Send current draft message.
 If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
@@ -1246,17 +1262,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
   ;; (wl-draft-config-exec)
   (run-hooks 'wl-draft-send-hook)
   (when (or (not wl-interactive-send)
-           (let (result)
-             (wl-draft-preview-message)
-             (goto-char (point-min))
-             (condition-case nil
-                 (setq result
-                       (y-or-n-p "Do you really want to send current draft? "))
-               (quit
-                (mime-preview-quit)
-                (signal 'quit nil)))
-             (mime-preview-quit)
-             result))
+           (wl-draft-send-confirm))
     (let ((send-mail-function 'wl-draft-raw-send)
          (editing-buffer (current-buffer))
          (sending-buffer (wl-draft-generate-clone-buffer
index aa9217c..2911246 100644 (file)
@@ -4730,9 +4730,9 @@ Return t if message exists."
             (wl-summary-buffer-folder-name) original 'no-sync))
        (cond ((eq wl-summary-search-via-nntp 'confirm)
               (require 'elmo-nntp)
-              (message "Search message in nntp server \"%s\" <y/n/s(elect)>?"
+              (message "Search message in nntp server \"%s\" <y/n/s(elect)>? "
                        elmo-nntp-default-server)
-              (setq schar (read-char))
+              (setq schar (let ((cursor-in-echo-area t)) (read-char)))
               (cond ((eq schar ?y)
                      (wl-summary-jump-to-msg-by-message-id-via-nntp msgid))
                     ((eq schar ?s)