Commit 16dd13df authored by Miles Bader's avatar Miles Bader
Browse files

Merge from gnus--devo--0

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1400
parent ac701fc4
2008-09-03 Teodor Zlatanov <tzz@lifelogs.com>
* message.el (message-confirm-send): New variable to confirm sending a
message.
(message-send): Use it.
2008-08-30 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-spec.el (gnus-parse-simple-format): Revert last patch.
......
......@@ -441,6 +441,13 @@ nil means let mailer mail back a message to report errors."
:link '(custom-manual "(message)Sending Variables")
:type 'boolean)
(defcustom message-confirm-send nil
"Non-nil means when sending a message ask for y/n confirmation."
:group 'message-sending
:group 'message-mail
:link '(custom-manual "(message)Sending Variables")
:type 'boolean)
(defcustom message-generate-new-buffers 'unique
"*Say whether to create a new message buffer to compose a message.
Valid values include:
......@@ -3962,6 +3969,9 @@ It should typically alter the sending method in some way or other."
(put-text-property (point-min) (point-max) 'read-only nil))
(message-fix-before-sending)
(run-hooks 'message-send-hook)
(when message-confirm-send
(or (y-or-n-p "Send message? ")
(keyboard-quit)))
(message message-sending-message)
(let ((alist message-send-method-alist)
(success t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment