From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/63955 Path: news.gmane.org!not-for-mail From: Sascha Wilde Newsgroups: gmane.emacs.devel,gmane.emacs.gnus.general Subject: Re: Patch: Show signature state in encrypted messages using pgg Date: Fri, 10 Nov 2006 23:31:43 +0100 Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1163197944 17129 80.91.229.2 (10 Nov 2006 22:32:24 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 10 Nov 2006 22:32:24 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Nov 10 23:32:23 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Gieus-0002fj-HT for ged-emacs-devel@m.gmane.org; Fri, 10 Nov 2006 23:32:08 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Gieur-0003Aw-Tr for ged-emacs-devel@m.gmane.org; Fri, 10 Nov 2006 17:32:05 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Gieud-00038Y-9P for emacs-devel@gnu.org; Fri, 10 Nov 2006 17:31:51 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Gieuc-00037V-1L for emacs-devel@gnu.org; Fri, 10 Nov 2006 17:31:50 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Gieub-00037M-Sq for emacs-devel@gnu.org; Fri, 10 Nov 2006 17:31:49 -0500 Original-Received: from [62.141.58.119] (helo=km1136.keymachine.de) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1Gieub-0005iy-DR for emacs-devel@gnu.org; Fri, 10 Nov 2006 17:31:49 -0500 Original-Received: from kenny.sha-bang.de (xdslcu219.osnanet.de [89.166.148.219]) (authenticated bits=0) by km1136.keymachine.de (8.12.11.20060308/8.12.10) with ESMTP id kAAMVekV016453; Fri, 10 Nov 2006 23:31:41 +0100 Original-Received: from wilde by kenny.sha-bang.de with local (Kenny MUA v.0409034.42) ID 1GieuV-0000cw-Pc; Fri, 10 Nov 2006 23:31:43 +0100 Original-To: ding In-Reply-To: (Sascha Wilde's message of "Fri\, 10 Nov 2006 23\:30\:22 +0100") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.90 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:62052 gmane.emacs.gnus.general:63955 Archived-At: --=-=-= Sascha Wilde wrote: > The attached patch extends the message a bit, so that it shows the > signature verification result in addition. With it a encrypted but > unsigned mail shows: > [[[PGP Encrypted Part:OK, Signer: From unknown user]] Oops, forgot the actual patch, here it is: --=-=-= Content-Type: text/x-patch Content-Disposition: attachment diff -r 69703d5e058e -r 9970d5c0861b lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Wed Nov 08 10:14:19 2006 +0100 +++ b/lisp/gnus/ChangeLog Fri Nov 10 23:14:13 2006 +0100 @@ -1,3 +1,8 @@ 2006-11-03 Juanma Barranquero + + * mml2015.el (mml2015-pgg-decrypt, mml2015-pgg-clear-decrypt): + Show info on signature for decrypted parts. + 2006-11-03 Juanma Barranquero * gnus-diary.el (gnus-diary-delay-format-function): diff -r 69703d5e058e -r 9970d5c0861b lisp/gnus/mml2015.el --- a/lisp/gnus/mml2015.el Wed Nov 08 10:14:19 2006 +0100 +++ b/lisp/gnus/mml2015.el Fri Nov 10 23:14:13 2006 +0100 @@ -682,8 +682,10 @@ (replace-match "\n" t t)) (setq handles (mm-dissect-buffer t)) (mm-destroy-parts handle) - (mm-set-handle-multipart-parameter - mm-security-handle 'gnus-info "OK") + (let ((sig (with-current-buffer pgg-errors-buffer + (mml2015-gpg-extract-signature-details)))) + (mm-set-handle-multipart-parameter + mm-security-handle 'gnus-info (concat "OK, Signer: " sig))) (mm-set-handle-multipart-parameter mm-security-handle 'gnus-details (concat decrypt-status @@ -713,8 +715,10 @@ (goto-char (point-min)) (while (search-forward "\r\n" nil t) (replace-match "\n" t t)) - (mm-set-handle-multipart-parameter - mm-security-handle 'gnus-info "OK")) + (let ((sig (with-current-buffer pgg-errors-buffer + (mml2015-gpg-extract-signature-details)))) + (mm-set-handle-multipart-parameter + mm-security-handle 'gnus-info (concat "OK, Signer: " sig)))) (mm-set-handle-multipart-parameter mm-security-handle 'gnus-info "Failed")))) --=-=-= -- Sascha Wilde "Gimme about 10 seconds to think for a minute..." --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --=-=-=--