From: ueno <ueno>
Date: Mon, 5 Jun 2000 10:01:22 +0000 (+0000)
Subject: * pgg-gpg.el (pgg-scheme-insert-key): Don't quote user id.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c7e24b923cbdb2315bdaab2028c1539d7b7a21a5;p=elisp%2Fsemi.git

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

diff --git a/ChangeLog b/ChangeLog
index 0e8a1f0..79b22e4 100644
--- 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
--- 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)))