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.

diff --git a/lisp/gnus/mml1991.el b/lisp/gnus/mml1991.el
index 93b1b5049a846b24f0e5291091756648e552a74d..b2056b2fd0d04f0482e688d308a12852d0dbb2d0 100644 (file)
--- a/lisp/gnus/mml1991.el
+++ b/lisp/gnus/mml1991.el
@@ -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

diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el
index 5980ddb38fec006ea2de42d2574b2d64381e95ec..403b5e1af6aa35c4c610b385a978b98a4c43f2ad 100644 (file)
--- a/lisp/gnus/mml2015.el
+++ b/lisp/gnus/mml2015.el
@@ -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))