From bb4c0f16cd632ec078eb8d47de597f2868da758f Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Sat, 24 Feb 2007 00:07:19 +0000
Subject: [PATCH] 2007-02-24  Chris Moore <dooglus@gmail.com>
 (pgg-*-encrypt-region): Check pgg-encrypt-for-me if no other recipients.

---
 lisp/pgg-gpg.el  | 2 +-
 lisp/pgg-pgp.el  | 2 +-
 lisp/pgg-pgp5.el | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index a2cd14eaae3..014357aa4e6 100644
--- 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 1e1bd6d0fd1..9bc494a5ef7 100644
--- 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 b438843e73b..7525ee3d981 100644
--- 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"