diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-02 11:32:35 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-02 11:32:35 +0200 |
commit | 929e7e141c5780e51173fda7d7fc5b73411e4465 (patch) | |
tree | 79f0235efd0988bc4ab238c9d4afbe886068c3bb /lisp/epg.el | |
parent | 6f94c2405f4c82b63da19de89549aff1fad7e594 (diff) | |
download | emacs-929e7e141c5780e51173fda7d7fc5b73411e4465.tar.gz |
Signal an error in the user clicks "cancel" when signing in epg
* lisp/epg.el (epg-sign-string): If the user clicks "cancel" on
the pinentry, then we don't have an error from gpg(sm), but
instead nothing (bug#39058). Signal an error in that case.
Diffstat (limited to 'lisp/epg.el')
-rw-r--r-- | lisp/epg.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/epg.el b/lisp/epg.el index 222fd913e17..5b90bc290ab 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -1683,7 +1683,8 @@ Otherwise, it makes a cleartext signature." (if (epg-context-result-for context 'error) (let ((errors (epg-context-result-for context 'error))) (signal 'epg-error - (list "Sign failed" (epg-errors-to-string errors)))))) + (list "Sign failed" (epg-errors-to-string errors)))) + (signal 'epg-error '("Signing failed (unknown reason)")))) (epg-read-output context)) (epg-delete-output-file context) (if input-file |