* pgg-gpg.el (pgg-scheme-encrypt-region): Don't quote recipient;

concatenate all arguments destructively.

diff --git a/ChangeLog b/ChangeLog
index 426d773..99e5948 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-02   Daiki Ueno  <ueno@unixuser.org>
+
+       * pgg-gpg.el (pgg-scheme-encrypt-region): Don't quote recipient;
+       concatenate all arguments destructively.
+
 2000-04-13   Daiki Ueno  <ueno@unixuser.org>
 
        * pgg-gpg.el: Fix author's mailing address.

diff --git a/pgg-gpg.el b/pgg-gpg.el
index 154263c..3cf8b0c 100644 (file)
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -138,10 +138,9 @@
         (args
          `("--batch" "--armor" "--always-trust" "--encrypt"
            ,@(if recipients
-                 (apply #'append
+                 (apply #'nconc
                         (mapcar (lambda (rcpt)
-                                  (list "--remote-user"
-                                        (concat "\"" rcpt "\"")))
+                                  (list "--remote-user" rcpt))
                                 (append recipients
                                         (if pgg-encrypt-for-me
                                             (list pgg-gpg-user-id)))))))))