(epa-decrypt-file): Display output file name on completion.

(epa-sign-file): Ditto.
(epa-encrypt-file): Ditto.

diff --git a/ChangeLog b/ChangeLog
index 5902a9d..b2a49c1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,9 @@
 2006-11-26  Daiki Ueno  <ueno@unixuser.org>
 
        * epa.el (epa-sign-file): Query signature type at a time.
+       (epa-decrypt-file): Display output file name on completion.
+       (epa-sign-file): Ditto.
+       (epa-encrypt-file): Ditto.
 
 2006-11-25  Daiki Ueno  <ueno@unixuser.org>
 

diff --git a/epa.el b/epa.el
index d105cb7..2044980 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -584,7 +584,8 @@ If SECRET is non-nil, list secret keys instead of public keys."
                                       #'epa-progress-callback-function)
     (message "Decrypting %s..." (file-name-nondirectory file))
     (epg-decrypt-file context file plain)
-    (message "Decrypting %s...done" (file-name-nondirectory file))
+    (message "Decrypting %s...wrote %s" (file-name-nondirectory file)
+            (file-name-nondirectory plain))
     (if (epg-context-result-for context 'verify)
        (epa-display-info (epg-verify-result-to-string
                           (epg-context-result-for context 'verify))))))
@@ -651,7 +652,8 @@ d - Create a detached signature
                                       #'epa-progress-callback-function)
     (message "Signing %s..." (file-name-nondirectory file))
     (epg-sign-file context file signature mode)
-    (message "Signing %s...done" (file-name-nondirectory file))))
+    (message "Signing %s...wrote %s" (file-name-nondirectory file)
+            (file-name-nondirectory signature))))
 
 ;;;###autoload
 (defun epa-encrypt-file (file recipients)
@@ -670,7 +672,8 @@ If no one is selected, symmetric encryption will be performed.  ")))
                                       #'epa-progress-callback-function)
     (message "Encrypting %s..." (file-name-nondirectory file))
     (epg-encrypt-file context file recipients cipher)
-    (message "Encrypting %s...done" (file-name-nondirectory file))))
+    (message "Encrypting %s...wrote %s" (file-name-nondirectory file)
+            (file-name-nondirectory cipher))))
 
 ;;;###autoload
 (defun epa-decrypt-region (start end)