Changes committed gnus/lisp (ChangeLog message.el)

Modified: ChangeLog message.el

(message-confirm-send): New variable to confirm sending a message.
(message-send): Use it.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1903 gnus/lisp/ChangeLog:7.1904
--- ChangeLog:7.1903	Sat Aug 30 11:32:09 2008
+++ ChangeLog	Wed Sep  3 19:43:35 2008
@@ -1,3 +1,8 @@
+2008-09-03  Teodor Zlatanov  <[email protected]>
+
+	* message.el (message-confirm-send): New variable to confirm sending a message.
+	(message-send): Use it.
+
 2008-08-30  Teodor Zlatanov  <[email protected]>
 
 	* gnus-spec.el (gnus-parse-simple-format): Revert last patch.
Index: message.el
diff -u gnus/lisp/message.el:7.267 gnus/lisp/message.el:7.268
--- message.el:7.267	Fri Jul 18 01:43:41 2008
+++ message.el	Wed Sep  3 19:43:35 2008
@@ -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)