Subject: Re: bug#18718: acknowledged by developer (control message for bug #18718)

From: Jens Lechtenboerger <[email-masked]>
Date: Sun, 03 Jan 2016 15:57:35 +0100

On 2016-01-03, at 10:08, Lars Magne Ingebrigtsen wrote:

> Calling from message-send sounds better, I think.  Could you send a
> patch?

This should do it.
>From c1cae98181cb05a001a4b0b3216f4aa072aaed6c Mon Sep 17 00:00:00 2001
From: Jens Lechtenboerger <[email-masked]>
Date: Sun, 3 Jan 2016 15:48:43 +0100
Subject: [PATCH] Call mml-secure-bcc-is-safe for bug#18718

* lisp/gnus/message.el (message-send): Call mml-secure-bcc-is-safe
---
 lisp/gnus/message.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a6c8282..1e2e3bd 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? ")
-- 
1.9.1