From f1093f7a7ccc8e56a7cbb932d1df53cc844f92b5 Mon Sep 17 00:00:00 2001 From: Jens Lechtenboerger Date: Mon, 4 Jan 2016 01:56:11 +0100 Subject: [PATCH] Do secure signed Bcc handling * lisp/gnus/message.el (message-send): Do secure signed Bcc handling (bug#18718). --- lisp/gnus/message.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 7be2ff900d4..51dcc1a909f 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -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)) (message-fix-before-sending) + (mml-secure-bcc-is-safe) (run-hooks 'message-send-hook) (when message-confirm-send (or (y-or-n-p "Send message? ") -- 2.39.2