Re: Sample multi-signature email [jeff covey <jeff.covey@pobox.com>] keymaps missing from console-common

[Simon Josefsson <simon@josefsson.org>]

Roland Mas <lolando@debian.org> writes:

> Here comes one mail I got from a mailing-list.  It contains a
> forwarded message, which in turn contains another one.  All three are
> signed.  I see three buttons, but none of them show any details when
> clicked.

Switch to gpg.el or try attached patch.  It relies on mailcrypt/gpg
internals to work so is less than perfect.  (Maybe we could send a
patch to mailcrypt people to clean up the hardcoded buffer names..)

--- mml2015.el.~6.30.~	Sat Mar 24 11:58:22 2001
+++ mml2015.el	Thu May 24 19:49:08 2001
@@ -175,6 +175,7 @@
 	      (replace-match "-----BEGIN PGP SIGNATURE-----" t t))
 	  (if (re-search-forward "^-----END PGP [^-]+-----\r?$" nil t)
 	      (replace-match "-----END PGP SIGNATURE-----" t t)))
+	(let ((mc-gpg-debug-buffer (get-buffer-create " *gnus gpg debug*")))
 	(unless (condition-case err
 		    (funcall mml2015-verify-function)
 		  (error
@@ -185,9 +186,22 @@
 		   (mm-set-handle-multipart-parameter
 		    mm-security-handle 'gnus-details "Quit.")
 		   nil))
+	    (if (get-buffer " *mailcrypt stderr temp")
+		(mm-set-handle-multipart-parameter
+		 mm-security-handle 'gnus-details
+		 (with-current-buffer " *mailcrypt stderr temp"
+		   (buffer-string))))
 	  (mm-set-handle-multipart-parameter
 	   mm-security-handle 'gnus-info "Failed")
-	  (throw 'error handle)))
+	    (if (get-buffer " *mailcrypt stdout temp")
+		(kill-buffer " *mailcrypt stdout temp"))
+	    (if (get-buffer " *mailcrypt stderr temp")
+		(kill-buffer " *mailcrypt stderr temp"))
+	    (if (get-buffer " *mailcrypt status temp")
+		(kill-buffer " *mailcrypt status temp"))
+	    (if (get-buffer mc-gpg-debug-buffer)
+		(kill-buffer mc-gpg-debug-buffer))
+	    (throw 'error handle))))
       (mm-set-handle-multipart-parameter
        mm-security-handle 'gnus-info "OK")
       handle)))