(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 (file)
--- 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 (file)
--- 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