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

[Richard M. Stallman]

branch: master
commit dc3a59f7a17aa8a643d688a10ab175430decb544
Author: Richard M Stallman <rms@gnu.org>
Commit: Richard Stallman <rms@gnu.org>

    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 6e6c0a4..3ad4da1 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)))))