* epg.el (epg-progress-callback-function): Show the percentage.

diff --git a/ChangeLog b/ChangeLog
index da3f9bc..0ed7094 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-15  Daiki Ueno  <ueno@unixuser.org>
+
+       * epg.el (epg-progress-callback-function): Show the percentage.
+
 2006-09-15  Juliusz Chroboczek <Juliusz.Chroboczek@pps.jussieu.fr>
 
        * pgg-epg.el (mml2015-gpg-extract-signature-details): Fixed a typo.

diff --git a/epg.el b/epg.el
index 06a10ed..82ce61e 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -1305,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/%d)" what (/ current 1.0 total) current total))
 
 (defun epg--list-keys-1 (context name mode)
   (let ((args (append (if epg-gpg-home-directory