1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00

Fix error when loading a new, non-existent foo.gpg file

* lisp/epa-file.el (epa-file-insert-file-contents): Propagate the
correct error upwards (bug introduced by fixing bug#3829, and
messing up where the `when' form ended).
Reported by "Herbert J. Skuhra" <herbert@gojira.at>.
This commit is contained in:
Lars Ingebrigtsen 2020-08-24 20:50:08 +02:00
parent 9c04760f16
commit 0980e1f537

View File

@ -175,9 +175,9 @@ encryption is used."
(setq-local epa-file-error error)
(add-hook 'find-file-not-found-functions
'epa-file--find-file-not-found-function
nil t)
nil t)))
(signal (if exists 'file-error 'file-missing)
(cons "Opening input file" (cdr error))))))))
(cons "Opening input file" (cdr error))))))
(set-buffer buf) ;In case timer/filter changed/killed it (bug#16029)!
(setq-local epa-file-encrypt-to
(mapcar #'car (epg-context-result-for