From dc3a59f7a17aa8a643d688a10ab175430decb544 Mon Sep 17 00:00:00 2001 From: Richard M Stallman Date: Wed, 30 Sep 2020 18:44:42 -0400 Subject: [PATCH] When recipient has no public key, make offer to skip it optional. * epa-mail.el (epa-mail-offer-skip): New option. (epa-mail-encrypt): If epa-mail-offer-skip is nil, don't offer to skip a keyless recipient, just cause error. --- lisp/epa-mail.el | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el index 6e6c0a498d2..3ad4da16c89 100644 --- a/lisp/epa-mail.el +++ b/lisp/epa-mail.el @@ -49,6 +49,13 @@ (defvar epa-mail-mode-on-hook nil) (defvar epa-mail-mode-off-hook nil) +(defcustom epa-mail-offer-skip t + "If non-nil, when a recipient has no key, ask whether to skip it. +Otherwise, signal an error." + :type 'boolean + :version "28.1" + :group 'epa-mail) + ;;;###autoload (define-minor-mode epa-mail-mode "A minor-mode for composing encrypted/clearsigned mails." @@ -218,10 +225,12 @@ If no one is selected, symmetric encryption will be performed. " recipient)) 'encrypt))) (unless (or recipient-key - (y-or-n-p - (format - "No public key for %s; skip it? " - recipient))) + (and epa-mail-offer-skip + (y-or-n-p + (format + "No public key for %s; skip it? " + recipient))) + ) (error "No public key for %s" recipient)) (if recipient-key (list recipient-key)))) default-recipients))))) -- 2.39.5