Mercurial > emacs
changeset 97972:0f2f9b7e7d8e
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1400
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 04 Sep 2008 02:32:12 +0000 |
| parents | 620d3d9a95da |
| children | 0127639d1179 |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el |
| diffstat | 2 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Sep 03 21:13:01 2008 +0000 +++ b/lisp/gnus/ChangeLog Thu Sep 04 02:32:12 2008 +0000 @@ -1,3 +1,9 @@ +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.
--- a/lisp/gnus/message.el Wed Sep 03 21:13:01 2008 +0000 +++ b/lisp/gnus/message.el Thu Sep 04 02:32:12 2008 +0000 @@ -441,6 +441,13 @@ :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 @@ (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)