* pgg-gpg.el (pgg-gpg-encrypt-region): Makes PGG respect the

setting of the default user ID.  From Raymond Scholz
<ray-2002@zonix.de>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6dcee41..6dd85f6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-11-02  Simon Josefsson  <jas@extundo.com>
+
+       * pgg-gpg.el (pgg-gpg-encrypt-region): Makes PGG respect the
+       setting of the default user ID.  From Raymond Scholz
+       <ray-2002@zonix.de>.
+
 2002-11-01  Jesper Harder  <harder@ifa.au.dk>
 
        * mm-bodies.el (mm-body-encoding): Don't return 8bit for 7bit

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index bc88fd0..a9f6494 100644 (file)
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -137,7 +137,7 @@ If optional argument SIGN is non-nil, do a combined sign and encrypt."
         (args
          (append
           (list "--batch" "--armor" "--always-trust" "--encrypt")
-          (if sign '("--sign"))
+          (if sign (list "--sign" "--local-user" pgg-gpg-user-id))
           (if recipients
               (apply #'nconc
                      (mapcar (lambda (rcpt)