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

(pgg-*-encrypt-region):
Check pgg-encrypt-for-me if no other recipients.

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index a2cd14e..014357a 100644 (file)
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -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))

diff --git a/lisp/pgg-pgp.el b/lisp/pgg-pgp.el
index 1e1bd6d..9bc494a 100644 (file)
--- a/lisp/pgg-pgp.el
+++ b/lisp/pgg-pgp.el
@@ -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

diff --git a/lisp/pgg-pgp5.el b/lisp/pgg-pgp5.el
index b438843..7525ee3 100644 (file)
--- a/lisp/pgg-pgp5.el
+++ b/lisp/pgg-pgp5.el
@@ -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"