From 9b150ba0ddfbf588675590a61946596bde41b14e Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 25 Nov 2006 23:02:29 +0000 Subject: [PATCH] (epa-decrypt-file): Display output file name on completion. (epa-sign-file): Ditto. (epa-encrypt-file): Ditto. --- ChangeLog | 3 +++ epa.el | 9 ++++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5902a9d..b2a49c1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,9 @@ 2006-11-26 Daiki Ueno * 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 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) -- 1.7.10.4