* epg.el (epg-progress-callback-function): Removed.

diff --git a/ChangeLog b/ChangeLog
index 29d3bcb..8787a39 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-27  Daiki Ueno  <ueno@unixuser.org>
+
+       * epg.el (epg-progress-callback-function): Removed.
+
 2006-09-24  Daiki Ueno  <ueno@unixuser.org>
 
        * epa.el (epa-passphrase-callback-function): Moved from epg.el.

diff --git a/epg.el b/epg.el
index b405df8..5a22737 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -1308,14 +1308,6 @@ This function is for internal use only."
 
 (make-obsolete 'epg-passphrase-callback-function "Don't use")
 
-(defun epg-progress-callback-function (context what char current total
-                                              handback)
-  (message "%s: %d%% (%d/%d)" what
-          (if (> total 0) (floor (* (/ current (float total)) 100)) 0)
-          current total))
-
-(make-obsolete 'epg-progress-callback-function "Don't use")
-
 (defun epg--list-keys-1 (context name mode)
   (let ((args (append (if epg-gpg-home-directory
                          (list "--homedir" epg-gpg-home-directory))