Mercurial > emacs
comparison lisp/pgg-pgp5.el @ 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 | e3694f1cb928 |
| children | 9355f9b7bbff |
comparison
equal
deleted
inserted
replaced
| 76109:578d1182b478 | 76110:d6f2673064e7 |
|---|---|
| 153 pgg-pgp5-user-id) | 153 pgg-pgp5-user-id) |
| 154 pgg-pgp5-user-id)))) | 154 pgg-pgp5-user-id)))) |
| 155 (args | 155 (args |
| 156 (append | 156 (append |
| 157 `("+NoBatchInvalidKeys=off" "-fat" "+batchmode=1" | 157 `("+NoBatchInvalidKeys=off" "-fat" "+batchmode=1" |
| 158 ,@(if recipients | 158 ,@(if (or recipients pgg-encrypt-for-me) |
| 159 (apply #'append | 159 (apply #'append |
| 160 (mapcar (lambda (rcpt) | 160 (mapcar (lambda (rcpt) |
| 161 (list "-r" | 161 (list "-r" |
| 162 (concat "\"" rcpt "\""))) | 162 (concat "\"" rcpt "\""))) |
| 163 (append recipients | 163 (append recipients |