* pgg-gpg.el (pgg-scheme-insert-key): Don't quote user id.

diff --git a/ChangeLog b/ChangeLog
index 0e8a1f0..79b22e4 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-06-05  Shugo Maeda <shugo@ruby-lang.org>
+
+       * pgg-gpg.el (pgg-scheme-insert-key): Don't quote user id.
+
 2000-05-25  Tanaka Akira      <akr@m17n.org>
 
         * README.en: Update for CVS via SSH.

diff --git a/pgg-gpg.el b/pgg-gpg.el
index b475016..831e042 100644 (file)
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -200,7 +200,7 @@
 (luna-define-method pgg-scheme-insert-key ((scheme pgg-scheme-gpg))
   (let* ((pgg-gpg-user-id (or pgg-gpg-user-id pgg-default-user-id))
         (args (list "--batch" "--export" "--armor"
-                    (concat "\"" pgg-gpg-user-id "\""))))
+                    pgg-gpg-user-id)))
     (pgg-gpg-process-region (point)(point) nil pgg-gpg-program args)
     (insert-buffer-substring pgg-output-buffer)))