mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-23 10:34:07 +00:00
2007-02-24 Chris Moore <dooglus@gmail.com>
(pgg-*-encrypt-region): Check pgg-encrypt-for-me if no other recipients.
This commit is contained in:
parent
e026eb896c
commit
bb4c0f16cd
@ -224,7 +224,7 @@ passphrase cache or user."
|
||||
(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))
|
||||
|
@ -143,7 +143,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
|
||||
(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
|
||||
|
@ -155,7 +155,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
|
||||
(args
|
||||
(append
|
||||
`("+NoBatchInvalidKeys=off" "-fat" "+batchmode=1"
|
||||
,@(if recipients
|
||||
,@(if (or recipients pgg-encrypt-for-me)
|
||||
(apply #'append
|
||||
(mapcar (lambda (rcpt)
|
||||
(list "-r"
|
||||
|
Loading…
Reference in New Issue
Block a user