From: ueno <ueno>
Date: Sat, 25 Nov 2006 23:02:29 +0000 (+0000)
Subject: (epa-decrypt-file): Display output file name on completion.
X-Git-Tag: epg-0_0_8~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9b150ba0ddfbf588675590a61946596bde41b14e;p=elisp%2Fepg.git

(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
--- 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
--- 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)