From: ueno <ueno>
Date: Mon, 11 Sep 2006 03:55:26 +0000 (+0000)
Subject: (epg--start): Specify --enable-progress-filter in
X-Git-Tag: epg-0_0_6~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=62b17db4ee729066028fe0bb17fe46580d45f95e;p=elisp%2Fepg.git

(epg--start): Specify --enable-progress-filter in
imitation of GPGME.
(epg-progress-callback-function): Remove a couple of %%'s.
---

diff --git a/ChangeLog b/ChangeLog
index 2118027..48e1111 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2006-09-11  Daiki Ueno  <ueno@unixuser.org>
+
+	* epg.el (epg--start): Specify --enable-progress-filter in
+	imitation of GPGME.
+	(epg-progress-callback-function): Remove a couple of %%'s.
+
 2006-09-05  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* epg-config.el (epg-configuration): Fixed the last change;
diff --git a/epg.el b/epg.el
index 29f78f8..1f16e70 100644
--- a/epg.el
+++ b/epg.el
@@ -787,7 +787,8 @@ This function is for internal use only."
 	       epg-gpg-program)))
   (let* ((args (append (list "--no-tty"
 			     "--status-fd" "1"
-			     "--yes")
+			     "--yes"
+			     "--enable-progress-filter")
 		       (if epg-gpg-home-directory
 			   (list "--homedir" epg-gpg-home-directory))
 		       (unless (eq (epg-context-protocol context) 'CMS)
@@ -1304,7 +1305,7 @@ This function is for internal use only."
 
 (defun epg-progress-callback-function (context what char current total
 					       handback)
-  (message "%s: %d%%/%d%%" what current total))
+  (message "%s: %d/%d" what current total))
 
 (defun epg--list-keys-1 (context name mode)
   (let ((args (append (if epg-gpg-home-directory