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

[Simon Josefsson <simon@josefsson.org>]

Roland Mas <mas@echo.fr> 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.
> 
> And I just saw that forwarding emails seems to break the signatures in
> them.  Dunno why.

Signatures are calculated on MIME headers as well the content -- this
makes it difficult to use a signed MIME blob out of context while
preserving the validity of the signature.  I think this was bad
design, but it's too late to fix now.

But wait, you wanted details when the signature was good?  Ah, my
previous patch only fixed details upon failures.  Try the following,
it should provide details both on success and failures.

--- mml2015.el.~6.30.~	Sat Mar 24 11:58:22 2001
+++ mml2015.el	Thu May 24 20:07:07 2001
@@ -175,8 +175,23 @@
 	      (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
+		      (prog1
 		    (funcall mml2015-verify-function)
+			(if (get-buffer " *mailcrypt stderr temp")
+			    (mm-set-handle-multipart-parameter
+			     mm-security-handle 'gnus-details
+			     (with-current-buffer " *mailcrypt stderr temp"
+			       (buffer-string))))
+			(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)))
 		  (error
 		   (mm-set-handle-multipart-parameter
 		    mm-security-handle 'gnus-details (cadr err))
@@ -187,7 +202,7 @@
 		   nil))
 	  (mm-set-handle-multipart-parameter
 	   mm-security-handle 'gnus-info "Failed")
-	  (throw 'error handle)))
+	    (throw 'error handle))))
       (mm-set-handle-multipart-parameter
        mm-security-handle 'gnus-info "OK")
       handle)))