* epa-file.el (epa-file-insert-file-contents): Set progress-callback.

(epa-file-write-region): Ditto.

diff --git a/ChangeLog b/ChangeLog
index 2b55423..2446d43 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-09-27  Daiki Ueno  <ueno@unixuser.org>
 
+       * epa-file.el (epa-file-insert-file-contents): Set progress-callback.
+       (epa-file-write-region): Ditto.
+
        * epa.el (epa-decrypt-file): Set callbacks.
        (epa-sign-file): Ditto.
        (epa-encrypt-file): Ditto.

diff --git a/epa-file.el b/epa-file.el
index 6f58c8c..80b1dbb 100644 (file)
--- a/epa-file.el
+++ b/epa-file.el
@@ -100,6 +100,8 @@
      context
      (cons #'epa-file-passphrase-callback-function
           file))
+    (epg-context-set-progress-callback context
+                                      #'epa-progress-callback-function)
     (unwind-protect
        (progn
          (if replace
@@ -144,6 +146,8 @@
      context
      (cons #'epa-file-passphrase-callback-function
           file))
+    (epg-context-set-progress-callback context
+                                      #'epa-progress-callback-function)
     (condition-case error
        (setq string
              (epg-encrypt-string