mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

2007-02-24 Chris Moore <dooglus@gmail.com>

Browse Source 
(pgg-*-encrypt-region):
Check pgg-encrypt-for-me if no other recipients.
This commit is contained in:
Kim F. Storm 2007-02-24 00:07:19 +00:00
parent e026eb896c
commit bb4c0f16cd
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/pgg-gpg.el
View File

@ -224,7 +224,7 @@ passphrase cache or user."
(list "--batch" "--armor" "--always-trust" "--encrypt") (list "--batch" "--armor" "--always-trust" "--encrypt")
(if pgg-text-mode (list "--textmode")) (if pgg-text-mode (list "--textmode"))
(if sign (list "--sign" "--local-user" pgg-gpg-user-id)) (if sign (list "--sign" "--local-user" pgg-gpg-user-id))
(if recipients (if (or recipients pgg-encrypt-for-me)
(apply #'nconc (apply #'nconc
(mapcar (lambda (rcpt) (mapcar (lambda (rcpt)
(list pgg-gpg-recipient-argument rcpt)) (list pgg-gpg-recipient-argument rcpt))

2
lisp/pgg-pgp.el
View File

@ -143,7 +143,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
(args (args
(concat (concat
"+encrypttoself=off +verbose=1 +batchmode +language=us -fate " "+encrypttoself=off +verbose=1 +batchmode +language=us -fate "
(if recipients (if (or recipients pgg-encrypt-for-me)
(mapconcat 'shell-quote-argument (mapconcat 'shell-quote-argument
(append recipients (append recipients
(if pgg-encrypt-for-me (if pgg-encrypt-for-me

2
lisp/pgg-pgp5.el
View File

@ -155,7 +155,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
(args (args
(append (append
`("+NoBatchInvalidKeys=off" "-fat" "+batchmode=1" `("+NoBatchInvalidKeys=off" "-fat" "+batchmode=1"
,@(if recipients ,@(if (or recipients pgg-encrypt-for-me)
(apply #'append (apply #'append
(mapcar (lambda (rcpt) (mapcar (lambda (rcpt)
(list "-r" (list "-r"