Mercurial > emacs
changeset 76110:d6f2673064e7
2007-02-24 Chris Moore <dooglus@gmail.com>
(pgg-*-encrypt-region):
Check pgg-encrypt-for-me if no other recipients.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sat, 24 Feb 2007 00:07:19 +0000 |
| parents | 578d1182b478 |
| children | 7dfde5932872 |
| files | lisp/pgg-gpg.el lisp/pgg-pgp.el lisp/pgg-pgp5.el |
| diffstat | 3 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pgg-gpg.el Fri Feb 23 23:26:27 2007 +0000 +++ b/lisp/pgg-gpg.el Sat Feb 24 00:07:19 2007 +0000 @@ -224,7 +224,7 @@ (list "--batch" "--armor" "--always-trust" "--encrypt") (if pgg-text-mode (list "--textmode")) (if sign (list "--sign" "--local-user" pgg-gpg-user-id)) - (if recipients + (if (or recipients pgg-encrypt-for-me) (apply #'nconc (mapcar (lambda (rcpt) (list pgg-gpg-recipient-argument rcpt))
--- a/lisp/pgg-pgp.el Fri Feb 23 23:26:27 2007 +0000 +++ b/lisp/pgg-pgp.el Sat Feb 24 00:07:19 2007 +0000 @@ -143,7 +143,7 @@ (args (concat "+encrypttoself=off +verbose=1 +batchmode +language=us -fate " - (if recipients + (if (or recipients pgg-encrypt-for-me) (mapconcat 'shell-quote-argument (append recipients (if pgg-encrypt-for-me
--- a/lisp/pgg-pgp5.el Fri Feb 23 23:26:27 2007 +0000 +++ b/lisp/pgg-pgp5.el Sat Feb 24 00:07:19 2007 +0000 @@ -155,7 +155,7 @@ (args (append `("+NoBatchInvalidKeys=off" "-fat" "+batchmode=1" - ,@(if recipients + ,@(if (or recipients pgg-encrypt-for-me) (apply #'append (mapcar (lambda (rcpt) (list "-r"