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

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

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))

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

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"