Give better errors in signing failures in Gnus
* lisp/gnus/mml1991.el (mml1991-epg-sign): Give better error messages when signing fails (bug#26298). * lisp/gnus/mml2015.el (mml2015-epg-sign): Ditto.
This commit is contained in:
parent
37f0f114df
commit
ef2059e877
2 changed files with 4 additions and 0 deletions
|
@ -275,6 +275,8 @@ Whether the passphrase is cached at all is controlled by
|
|||
(mm-decode-content-transfer-encoding cte)))
|
||||
(let* ((pair (mml-secure-epg-sign 'OpenPGP 'clear))
|
||||
(signature (car pair)))
|
||||
(unless (stringp signature)
|
||||
(error "Signature failed"))
|
||||
(delete-region (point-min) (point-max))
|
||||
(insert
|
||||
(with-temp-buffer
|
||||
|
|
|
@ -958,6 +958,8 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
|
|||
(let* ((pair (mml-secure-epg-sign 'OpenPGP t))
|
||||
(signature (car pair))
|
||||
(micalg (cdr pair)))
|
||||
(unless (stringp signature)
|
||||
(error "Signature failed"))
|
||||
(goto-char (point-min))
|
||||
(insert (format "Content-Type: multipart/signed; boundary=\"%s\";\n"
|
||||
boundary))
|
||||
|
|
Loading…
Add table
Reference in a new issue