From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/74109 Path: news.gmane.org!not-for-mail From: Daniel Dehennin Newsgroups: gmane.emacs.gnus.general Subject: Re: mml2015-epg-sign does not use From header. Date: Tue, 16 Nov 2010 00:23:38 +0100 Message-ID: <87lj4uuq6d.fsf@hati.baby-gnu.org> References: <87pqu6uqr7.fsf@hati.baby-gnu.org> <87vd3ymb8d.fsf@hati.baby-gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" X-Trace: dough.gmane.org 1289863442 10165 80.91.229.12 (15 Nov 2010 23:24:02 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 15 Nov 2010 23:24:02 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M22474@lists.math.uh.edu Tue Nov 16 00:23:58 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PI8Oz-00042e-Dh for ding-account@gmane.org; Tue, 16 Nov 2010 00:23:57 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1PI8Ot-0006TK-G2; Mon, 15 Nov 2010 17:23:51 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1PI8Os-0006T6-3f for ding@lists.math.uh.edu; Mon, 15 Nov 2010 17:23:50 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1PI8On-0000cv-9D for ding@lists.math.uh.edu; Mon, 15 Nov 2010 17:23:49 -0600 Original-Received: from zion.baby-gnu.org ([82.233.222.74]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1PI8Ol-00048Q-00 for ; Tue, 16 Nov 2010 00:23:43 +0100 Original-Received: from hati.asgardr.info ([192.168.1.2] helo=hati.baby-gnu.org) by zion.baby-gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1PI8Oh-0007Lk-8q for ding@gnus.org; Tue, 16 Nov 2010 00:23:39 +0100 Organisation: Dark Church of Emacs In-Reply-To: <87vd3ymb8d.fsf@hati.baby-gnu.org> (Daniel Dehennin's message of "Tue, 16 Nov 2010 00:13:38 +0100") User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:74109 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Daniel Dehennin writes: > @@ -950,8 +951,8 @@ Whether the passphrase is cached at all is controlled= by > (epa-select-keys context "\ > Select keys for signing. > If no one is selected, default secret key is used. " > - mml2015-signers t) > - (if mml2015-signers > + (append mml2015-signers (list sender)) t) > + (if (or sender mml2015-signers) > (delq nil > (mapcar > (lambda (signer) > @@ -965,7 +966,7 @@ If no one is selected, default secret key is used. " > signer))) > (error "No secret key for %s" signer)) > signer-key) > - mml2015-signers))))))) > + (append mml2015-signers (list sender))))))))) > signature micalg) > (epg-context-set-armor context t) > (epg-context-set-textmode context t) > --=20 > 1.7.2.3 I just see that the (append mml2015-signers (list sender)) can be rewritten as (cons sender mml2015-signers), I thought about ordering at first but it's just useless. The same apply for the other patch. =2D-- lisp/mml2015.el | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/mml2015.el b/lisp/mml2015.el index 7697f8a..5a515fa 100644 =2D-- a/lisp/mml2015.el +++ b/lisp/mml2015.el @@ -951,7 +951,7 @@ Whether the passphrase is cached at all is controlled by (epa-select-keys context "\ Select keys for signing. If no one is selected, default secret key is used. " =2D (append mml2015-signers (list sender)) t) + (cons sender mml2015-signers) t) (if (or sender mml2015-signers) (delq nil (mapcar @@ -966,7 +966,7 @@ If no one is selected, default secret key is used. " signer))) (error "No secret key for %s" signer)) signer-key) =2D (append mml2015-signers (list sender))))))))) + (cons sender mml2015-signers)))))))) signature micalg) (epg-context-set-armor context t) (epg-context-set-textmode context t) @@ -1029,7 +1029,7 @@ If no one is selected, default secret key is used. " (when mml2015-encrypt-to-self (unless (or sender mml2015-signers) (error "Message sender and mml2015-signers not set")) =2D (setq recipients (nconc recipients (append mml2015-signers (list sender= ))))) + (setq recipients (nconc recipients (cons sender mml2015-signers)))) (if (eq mm-encrypt-option 'guided) (setq recipients (epa-select-keys context "\ @@ -1062,7 +1062,7 @@ If no one is selected, symmetric encryption will be p= erformed. " (epa-select-keys context "\ Select keys for signing. If no one is selected, default secret key is used. " =2D (append mml2015-signers (list sender)) t) + (cons mml2015-signers) t) (if (or sender mml2015-signers) (delq nil (mapcar @@ -1077,7 +1077,7 @@ If no one is selected, default secret key is used. " signer))) (error "No secret key for %s" signer)) signer-key) =2D (append mml2015-signers (list sender))))))))) + (cons mml2015-signers)))))))) (epg-context-set-signers context signers)) (epg-context-set-armor context t) (epg-context-set-textmode context t) =2D-=20 1.7.2.3 =2D-=20 Daniel Dehennin R=C3=A9cup=C3=A9rer ma clef GPG: gpg --keyserver pgp.mit.edu --recv-keys 0x6A2540D1 --=-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v2.0.14 (GNU/Linux) iEYEAREKAAYFAkzhwPsACgkQb97L6l6P4FtZVACcCc1QZ84IhdOtF4Qs57QinowJ APMAn1t2pSjW5WFJvLum0/4/SIPONg6Q =LjHq -----END PGP SIGNATURE----- --=-=-=--