diff options
Diffstat (limited to 'lisp/epa-file.el')
| -rw-r--r-- | lisp/epa-file.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/epa-file.el b/lisp/epa-file.el index aa9915d8cfa..bef67ba4f69 100644 --- a/lisp/epa-file.el +++ b/lisp/epa-file.el @@ -35,7 +35,7 @@ way." :type 'boolean :group 'epa-file) -(defcustom epa-file-select-keys 'silent +(defcustom epa-file-select-keys nil "Control whether or not to pop up the key selection dialog. If t, always asks user to select recipients. @@ -137,8 +137,10 @@ encryption is used." context (cons #'epa-file-passphrase-callback-function local-file)) - (epg-context-set-progress-callback context - #'epa-progress-callback-function) + (epg-context-set-progress-callback + context + (cons #'epa-progress-callback-function + (format "Decrypting %s" file))) (unwind-protect (progn (if replace @@ -211,8 +213,10 @@ encryption is used." context (cons #'epa-file-passphrase-callback-function file)) - (epg-context-set-progress-callback context - #'epa-progress-callback-function) + (epg-context-set-progress-callback + context + (cons #'epa-progress-callback-function + (format "Encrypting %s" file))) (epg-context-set-armor context epa-armor) (condition-case error (setq string |