diff options
Diffstat (limited to 'lisp/epa-file.el')
| -rw-r--r-- | lisp/epa-file.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/epa-file.el b/lisp/epa-file.el index 20d34f82223..6f3bb188190 100644 --- a/lisp/epa-file.el +++ b/lisp/epa-file.el @@ -162,6 +162,11 @@ encryption is used." (add-hook 'find-file-not-found-functions 'epa-file--find-file-not-found-function nil t)) + (if (epg-context-error-output context) + (epa-display-info + (concat (format "Error while executing \"%s\":\n\n" + epg-gpg-program) + (epg-context-error-output context)))) (signal 'file-error (cons "Opening input file" (cdr error))))) (set-buffer buf) ;In case timer/filter changed/killed it (bug#16029)! @@ -257,6 +262,11 @@ If no one is selected, symmetric encryption will be performed. " (error (if (setq entry (assoc file epa-file-passphrase-alist)) (setcdr entry nil)) + (if (epg-context-error-output context) + (epa-display-info + (concat (format "Error while executing \"%s\":\n\n" + epg-gpg-program) + (epg-context-error-output context)))) (signal 'file-error (cons "Opening output file" (cdr error))))) (epa-file-run-real-handler #'write-region |