diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-02-06 15:11:29 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-02-06 15:11:29 +0200 |
| commit | 1e0632e772f43ba7fd2aca180ee041bf3571d43f (patch) | |
| tree | f39b67dfd851a9fc5c45f607ac1d7be8c188f910 /lisp/gnus/message.el | |
| parent | f534d3fdacb3d6114a0ebdc8df2723265339db5d (diff) | |
| parent | 5903db0c2049c588f6b15717a8f9bd4c6a6f46a4 (diff) | |
| download | emacs-1e0632e772f43ba7fd2aca180ee041bf3571d43f.tar.gz emacs-1e0632e772f43ba7fd2aca180ee041bf3571d43f.tar.bz2 emacs-1e0632e772f43ba7fd2aca180ee041bf3571d43f.zip | |
Merge branch 'master' of git.savannah.gnu.org:/srv/git/emacs
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 6668784f93c..5a5dbcebc1e 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4315,6 +4315,10 @@ It should typically alter the sending method in some way or other." (when message-confirm-send (or (y-or-n-p "Send message? ") (keyboard-quit))) + (when (and (not (mml-secure-is-encrypted-p)) + (mml-secure-is-encrypted-p 'anywhere) + (not (yes-or-no-p "This message has a <#secure tag, but is not going to be encrypted. Send anyway?"))) + (error "Aborting sending")) (message message-sending-message) (let ((alist message-send-method-alist) (success t) |