From 62b17db4ee729066028fe0bb17fe46580d45f95e Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 11 Sep 2006 03:55:26 +0000 Subject: [PATCH] (epg--start): Specify --enable-progress-filter in imitation of GPGME. (epg-progress-callback-function): Remove a couple of %%'s. --- ChangeLog | 6 ++++++ epg.el | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2118027..48e1111 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-09-11 Daiki Ueno + + * 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 * 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 -- 1.7.10.4