procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Do secure signed Bcc handling

Browse source 
* lisp/gnus/message.el (message-send): Do secure signed Bcc handling
(bug#18718).
This commit is contained in:
Jens Lechtenboerger 2016-01-04 01:56:11 +01:00 • committed by Lars Magne Ingebrigtsen
parent e79b06e6de
commit f1093f7a7c
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/message.el
View file

@ -4227,6 +4227,8 @@ Instead, just auto-save the buffer and then bury it."
(if message-return-action (if message-return-action
(apply (car message-return-action) (cdr 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) (defun message-send (&optional arg)
"Send the message in the current buffer. "Send the message in the current buffer.
If `message-interactive' is non-nil, wait for success indication or 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)) (let ((inhibit-read-only t))
(put-text-property (point-min) (point-max) 'read-only nil)) (put-text-property (point-min) (point-max) 'read-only nil))
(message-fix-before-sending) (message-fix-before-sending)
(mml-secure-bcc-is-safe)
(run-hooks 'message-send-hook) (run-hooks 'message-send-hook)
(when message-confirm-send (when message-confirm-send
(or (y-or-n-p "Send message? ") (or (y-or-n-p "Send message? ")