mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

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
(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? ")