Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

When recipient has no public key, make offer to skip it optional.

Browse source 
* 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.
This commit is contained in:
Richard M Stallman 2020-09-30 18:44:42 -04:00 committed by Richard Stallman
parent 0434c1a9a6
commit dc3a59f7a1
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/epa-mail.el
View file

@ -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)))))