* mml1991.el (mml1991-epg-encrypt): Simply throw an error if

mml1991-encrypt-to-self is set and mml1991-signers is not set.
* mml2015.el (mml2015-epg-encrypt): Simply throw an error if
mml2015-encrypt-to-self is set and mml2015-signers is not set.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ea5bd31..f5c3b20 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2006-09-07  Daiki Ueno  <ueno@unixuser.org>
+
+       * mml1991.el (mml1991-epg-encrypt): Simply throw an error if
+       mml1991-encrypt-to-self is set and mml1991-signers is not set.
+       * mml2015.el (mml2015-epg-encrypt): Simply throw an error if
+       mml2015-encrypt-to-self is set and mml2015-signers is not set.
+
 2006-09-06  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-art.el (gnus-button-marker-list): Move up.  Convert comment into

diff --git a/lisp/mml1991.el b/lisp/mml1991.el
index 6f88f0e..6e40935 100644 (file)
--- a/lisp/mml1991.el
+++ b/lisp/mml1991.el
@@ -457,9 +457,7 @@ If no one is selected, symmetric encryption will be performed.  "
                         (mapcar (lambda (name)
                                   (car (epg-list-keys context name)))
                                 mml1991-signers)))
-         (setq recipients
-               (nconc recipients
-                      (list (car (epg-list-keys context nil t)))))))
+         (error "mml1991-signers not set")))
     (when sign
       (if mml1991-verbose
          (setq signers (epa-select-keys context "Select keys for signing.

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 08fe7ec..3332270 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -1204,9 +1204,7 @@ If no one is selected, symmetric encryption will be performed.  "
                         (mapcar (lambda (name)
                                   (car (epg-list-keys context name)))
                                 mml2015-signers)))
-         (setq recipients
-               (nconc recipients
-                      (list (car (epg-list-keys context nil t)))))))
+         (error "mml2015-signers not set")))
     (when sign
       (if mml2015-verbose
          (setq signers (epa-select-keys context "Select keys for signing.