* pgg-gpg.el (pgg-gpg-encrypt-region): Make signencrypt work.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 041860d..1abb743 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-10-04  Simon Josefsson  <jas@extundo.com>
 
+       * pgg-gpg.el (pgg-gpg-encrypt-region): Make signencrypt work.
+
        * pgg-pgp.el (pgg-pgp-verify-region): Inline
        binary-write-decoded-region from MEL.
 

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index 8c828d2..beea098 100644 (file)
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -129,7 +129,7 @@ If optional argument SIGN is non-nil, do a combined sign and encrypt."
   (let* ((pgg-gpg-user-id (or pgg-gpg-user-id pgg-default-user-id))
         (args
          `("--batch" "--armor" "--always-trust"
-           (if sign "--sign --encrypt" "--encrypt")
+           ,(if sign "--sign --encrypt" "--encrypt")
            ,@(if recipients
                  (apply #'nconc
                         (mapcar (lambda (rcpt)