From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68435 Path: news.gmane.org!not-for-mail From: Daniel Dehennin Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] mml2015-epg-sign does not use from header. Date: Mon, 13 Apr 2009 22:31:54 +0200 Message-ID: <87zlek5m85.fsf@hati.baby-gnu.org> References: <87wscf3al8.fsf@hati.baby-gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1239654770 13287 80.91.229.12 (13 Apr 2009 20:32:50 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 13 Apr 2009 20:32:50 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M16871@lists.math.uh.edu Mon Apr 13 22:34:10 2009 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.50) id 1LtSr0-00039C-05 for ding-account@gmane.org; Mon, 13 Apr 2009 22:34:06 +0200 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 1LtSp2-00025f-1D; Mon, 13 Apr 2009 15:32:04 -0500 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 1LtSp0-00025B-7s for ding@lists.math.uh.edu; Mon, 13 Apr 2009 15:32:02 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1LtSou-00062q-0r for ding@lists.math.uh.edu; Mon, 13 Apr 2009 15:32:02 -0500 Original-Received: from zion.asgardr.info ([82.233.222.74]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1LtSpJ-00064K-00 for ; Mon, 13 Apr 2009 22:32:21 +0200 Original-Received: from hati.asgardr.info ([192.168.1.2] helo=hati.baby-gnu.org) by zion.asgardr.info with esmtp (Exim 4.69) (envelope-from ) id 1LtSos-00015Z-SM for ding@gnus.org; Mon, 13 Apr 2009 22:31:54 +0200 Original-Received: from dad by hati.baby-gnu.org with local (Exim 4.69) (envelope-from ) id 1LtSos-0005Jc-Rf for ding@gnus.org; Mon, 13 Apr 2009 22:31:54 +0200 Organisation: Dark Church of Emacs User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.0.92 (gnu/linux) X-Spam-Score: -1.6 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68435 Archived-At: --=-=-= ------------------------------------------------------------ revno: 134 committer: Daniel Dehennin branch nick: mml2015 timestamp: Mon 2009-04-13 20:04:07 +0200 message: mml2015-epg-sign does not use from header. * lisp/mml2015.el (mml2015-epg-sign): New variable 'sender' is (message-options-get 'message-sender). Use it in addition to mml2015-signers. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=Gnus-mm2015-134.patch # Bazaar merge directive format 2 (Bazaar 0.90) # revision_id: daniel.dehennin@baby-gnu.org-20090413180407-\ # c8k3bhxwfy83520m # target_branch: ../../gnus.head # testament_sha1: a5b6834d5c550ff0991c0267d2ca24a941e55635 # timestamp: 2009-04-13 20:57:04 +0200 # source_branch: . # base_revision_id: daniel.dehennin@baby-gnu.org-20090412231027-\ # rhtvglq3r87nljez # # Begin patch === modified file 'lisp/mml2015.el' --- lisp/mml2015.el 2009-01-22 07:02:15 +0000 +++ lisp/mml2015.el 2009-04-13 18:04:07 +0000 @@ -1182,6 +1182,7 @@ (let* ((inhibit-redisplay t) (context (epg-make-context)) (boundary (mml-compute-boundary cont)) + (sender (message-options-get 'message-sender)) signer-key (signers (or (message-options-get 'mml2015-epg-signers) @@ -1191,8 +1192,8 @@ (epa-select-keys context "\ Select keys for signing. If no one is selected, default secret key is used. " - mml2015-signers t) - (if mml2015-signers + (cons sender mml2015-signers) t) + (if (or sender mml2015-signers) (delq nil (mapcar (lambda (signer) @@ -1206,7 +1207,7 @@ signer))) (error "No secret key for %s" signer)) signer-key) - mml2015-signers))))))) + (cons sender mml2015-signers)))))))) signature micalg) (epg-context-set-armor context t) (epg-context-set-textmode context t) --=-=-=--