From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/36348 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: Re: Sample multi-signature email [jeff covey ] keymaps missing from console-common Date: 24 May 2001 19:55:14 +0200 Message-ID: References: <87bsoilqk0.fsf@cachemir.echo-net.net> <87pucyk76x.fsf@cachemir.echo-net.net> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035171948 8139 80.91.224.250 (21 Oct 2002 03:45:48 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:45:48 +0000 (UTC) Return-Path: Original-Received: (qmail 26611 invoked by alias); 24 May 2001 17:55:19 -0000 Original-Received: (qmail 26606 invoked from network); 24 May 2001 17:55:18 -0000 Original-Received: from dolk.extundo.com (195.42.214.242) by gnus.org with SMTP; 24 May 2001 17:55:18 -0000 Original-Received: from barbar.josefsson.org (slipsten.extundo.com [195.42.214.241]) (authenticated) by dolk.extundo.com (8.11.3/8.11.3) with ESMTP id f4OHtMq05635 for ; Thu, 24 May 2001 19:55:22 +0200 Original-To: ding@gnus.org In-Reply-To: <87pucyk76x.fsf@cachemir.echo-net.net> (Roland Mas's message of "24 May 2001 19:06:30 +0200") Mail-Copies-To: nobody User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.103 Original-Lines: 45 Xref: main.gmane.org gmane.emacs.gnus.general:36348 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:36348 Roland Mas 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)))