(pgg-gpg-encrypt-region): Use it. Tiny patch from Lloyd Zusman
<ljz@asfast.com>.
+2003-12-07 Simon Josefsson <jas@extundo.com>
+
+ * pgg-gpg.el (pgg-gpg-recipient-arg): Add.
+ (pgg-gpg-encrypt-region): Use it. Tiny patch from Lloyd Zusman
+ <ljz@asfast.com>.
+
2003-12-07 Jesper Harder <harder@ifa.au.dk>
* spam.el (spam-check-spamoracle, spam-spamoracle-learn): Don't
:group 'pgg-gpg
:type '(repeat (string :tag "Argument")))
+(defcustom pgg-gpg-recipient-arg "--recipient"
+ "Recipient option for gpg."
+ :group 'pgg-gpg
+ :type '(choice (const :tag "New `--recipient' option" "--recipient")
+ (const :tag "Old `--remote-user' option" "--remote-user")))
+
(defvar pgg-gpg-user-id nil
"GnuPG ID of your default identity.")
(if recipients
(apply #'nconc
(mapcar (lambda (rcpt)
- (list "--remote-user" rcpt))
+ (list pgg-gpg-recipient-arg rcpt))
(append recipients
(if pgg-encrypt-for-me
(list pgg-gpg-user-id)))))))))