Commit f1093f7a authored by Jens Lechtenboerger's avatar Jens Lechtenboerger Committed by Lars Magne Ingebrigtsen

Do secure signed Bcc handling

* lisp/gnus/message.el (message-send): Do secure signed Bcc handling
parent e79b06e6
......@@ -4227,6 +4227,8 @@ Instead, just auto-save the buffer and then bury it."
(if message-return-action
(apply (car message-return-action) (cdr message-return-action))))
(autoload 'mml-secure-bcc-is-safe "mml-sec")
(defun message-send (&optional arg)
"Send the message in the current buffer.
If `message-interactive' is non-nil, wait for success indication or
......@@ -4241,6 +4243,7 @@ It should typically alter the sending method in some way or other."
(let ((inhibit-read-only t))
(put-text-property (point-min) (point-max) 'read-only nil))
(run-hooks 'message-send-hook)
(when message-confirm-send
(or (y-or-n-p "Send message? ")
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