From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp11.migadu.com ([2001:41d0:403:478a::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms9.migadu.com with LMTPS id ABBCOri+tWSbpQAASxT56A (envelope-from ) for ; Tue, 18 Jul 2023 00:20:41 +0200 Received: from aspmx1.migadu.com ([2001:41d0:403:478a::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp11.migadu.com with LMTPS id 6AkaOri+tWTqbQEA9RJhRA (envelope-from ) for ; Tue, 18 Jul 2023 00:20:40 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id B286953455 for ; Tue, 18 Jul 2023 00:20:40 +0200 (CEST) Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=systemreboot.net header.s=default header.b=Heh1KSft; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=systemreboot.net (policy=none) ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1689632440; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding:resent-cc: resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=Ou4IyKPVaciCMGK+XlhN/X0j7I6dOSl1KI/tfKO/+ds=; b=DbvGNARikmzbfavJM6FmGmBGFgQJQsjdiudtbYBNh6PoyXGkdXXC/64oobSriOSykbSpC2 zpR7kiUZHT27nKGyhNkxHLHKjvgoQdtgovadrH3OimK7Z4t2Qzkj/WU6GjQCkAQ/kO8J/f cZgmWNvJhyOsv7LBFNDdrxxbxGf3f7RjrtEJWHEUgEERwG4JTiVwZ+1zaiKf5RBuTRvNwQ ytVqLNZyQjRXfrLSm1VA1Y8D0gZHkMwHviKA0/7R7hqFRR419i9l2QhRZQ3NqZ530M2TDm /ncGRKZ0/JkULMoHz1HYGRQvl9nlxUSpYCP0/pKafAVQJqFGr1PBBRYAOQkkpw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=systemreboot.net header.s=default header.b=Heh1KSft; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=systemreboot.net (policy=none) ARC-Seal: i=1; s=key1; d=yhetil.org; t=1689632440; a=rsa-sha256; cv=none; b=RpWiUTNqwzGanOh2ZmKmFzgsY4xx3DdDEo1n8gBytPbiyT/5r4mlOriNuWdeIzEEp+sHKZ lDeyDGlc24ZKswuZqTJl0yBaCSxrxIzcnHYPUrK/2GyCPTnLkr5F/7gwEnY84JzATOUQSf BFn7SPX/5hX/QSQGQGFi9gcq58YjtAEDkBRpgUwX4CGLnB9NC0M9+TqgMbUXtehV22YOIr 0d5vtXVnCbO1M+8LzC5VwIv+xONVtsetsZXp+cNw4tl54eyHh+Jo8JaKZJOsLLRqijmvIc hcyLo31WojeFR9HFuFLC3faPiZtQ5mzXuHjzCSAbXe23no+hw7xyliHItiJcSA== Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qLWZa-00024m-CT; Mon, 17 Jul 2023 18:20:06 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qLWZY-00024M-JL for guix-patches@gnu.org; Mon, 17 Jul 2023 18:20:04 -0400 Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1qLWZY-00050Z-Ao for guix-patches@gnu.org; Mon, 17 Jul 2023 18:20:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1qLWZX-0002QD-Dn; Mon, 17 Jul 2023 18:20:03 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#63802] [PATCH 3/3] client: Use mumi git-send-email-headers subcommand. Resent-From: Arun Isaac Original-Sender: "Debbugs-submit" Resent-CC: arunisaac@systemreboot.net, maxim.cournoyer@gmail.com, guix-patches@gnu.org Resent-Date: Mon, 17 Jul 2023 22:20:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 63802 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 63802@debbugs.gnu.org Cc: Arun Isaac , Arun Isaac , Maxim Cournoyer X-Debbugs-Original-Xcc: Arun Isaac , Maxim Cournoyer Received: via spool by 63802-submit@debbugs.gnu.org id=B63802.16896323829262 (code B ref 63802); Mon, 17 Jul 2023 22:20:03 +0000 Received: (at 63802) by debbugs.gnu.org; 17 Jul 2023 22:19:42 +0000 Received: from localhost ([127.0.0.1]:51090 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qLWZB-0002PI-4o for submit@debbugs.gnu.org; Mon, 17 Jul 2023 18:19:42 -0400 Received: from mugam.systemreboot.net ([139.59.75.54]:51468) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qLWZ6-0002Op-O6 for 63802@debbugs.gnu.org; Mon, 17 Jul 2023 18:19:37 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=systemreboot.net; s=default; h=Content-Transfer-Encoding:MIME-Version: References:In-Reply-To:Message-Id:Date:Subject:Cc:To:From:Sender:Reply-To: Content-Type:Content-ID:Content-Description:Resent-Date:Resent-From: Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help: List-Unsubscribe:List-Subscribe:List-Post:List-Owner:List-Archive; bh=Ou4IyKPVaciCMGK+XlhN/X0j7I6dOSl1KI/tfKO/+ds=; b=Heh1KSftPD8UlvOvOVCzq1Pd9a BwF+l1jmFmiEqiy4OCzbtFO4ealTpiwrhBtH+or5PGv39hPWmp8Kqzf8N6fSepyc/oxYEd9fFRui5 meypCnZ8x2M69nvEEp5bpQDtZF3EqnDVArPaxBG0MBJagGADgVn/iDXj9QMFsO8VgoeZGS9fiiEMN 3ltvayLvGgOUeEABxyKaaLqj82cHix9Qvz3gp2Q/xfO9p+reiaJxn6/9lB7B2VgeQrfAryF/EPABB SANNDPg+F8NqCpvnZ6W2t4UQJTzYD18N6ZLzvYX3fUfwbhe1XpT0f8X/HO2cjUAXxi5K1oIMR3eBh LYtNsjLw==; Received: from [192.168.2.1] (port=50314 helo=localhost.localdomain) by systemreboot.net with esmtpsa (TLS1.3) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.96) (envelope-from ) id 1qLWZ3-001Gpv-2X; Mon, 17 Jul 2023 23:19:34 +0100 From: Arun Isaac Date: Mon, 17 Jul 2023 23:19:21 +0100 Message-Id: <20230717221921.28889-3-arunisaac@systemreboot.net> X-Mailer: git-send-email 2.40.1 In-Reply-To: <20230717221921.28889-1-arunisaac@systemreboot.net> References: <20230717221921.28889-1-arunisaac@systemreboot.net> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: guix-patches-bounces+larch=yhetil.org@gnu.org X-Migadu-Flow: FLOW_IN X-Migadu-Country: US X-Spam-Score: 5.85 X-Migadu-Queue-Id: B286953455 X-Migadu-Spam-Score: 5.85 X-Migadu-Scanner: mx0.migadu.com X-TUID: A/oYhp/Y7yf5 * mumi/client.scm (send-email): Accept mumi-command argument and use it to construct --header-cmd. * scripts/mumi.in: Pass command to send-email. * tests/client.scm ("send patches to new issue", "send patches to existing issue", "send single patch to new issue", "send single patch to existing issue", "send patch to existing issue and Cc other participants"): Adjust tests. --- mumi/client.scm | 10 +++++++--- scripts/mumi.in | 2 +- tests/client.scm | 17 ++++++++++++++--- 3 files changed, 22 insertions(+), 7 deletions(-) diff --git a/mumi/client.scm b/mumi/client.scm index 797ec91..6ac69f9 100644 --- a/mumi/client.scm +++ b/mumi/client.scm @@ -292,8 +292,9 @@ ISSUE-NUMBER." (() (list)) (cc (list (cons 'cc (string-join cc ", ")))))))) -(define (send-email patches) - "Send PATCHES via email." +(define (send-email mumi-command patches) + "Send PATCHES via email. MUMI-COMMAND is the mumi program currently +invoked." (if (current-issue-number) ;; If an issue is current, send patches to that issue's email ;; address. @@ -301,7 +302,10 @@ ISSUE-NUMBER." (git-send-email (string-append (number->string issue-number) "@" (client-config 'debbugs-host)) - patches)) + patches + (list (string-append "--header-cmd=" + mumi-command + " git-send-email-headers")))) (match patches ;; If it's a single patch, send it to the patch email address ;; and be done with it diff --git a/scripts/mumi.in b/scripts/mumi.in index 8fb7cd4..5b98634 100644 --- a/scripts/mumi.in +++ b/scripts/mumi.in @@ -162,7 +162,7 @@ (("new") (client:clear-current-issue!)) (("send-email" . patches) - (client:send-email patches)) + (client:send-email (car (program-arguments)) patches)) (("git-send-email-headers" patch) (client:git-send-email-headers patch)) (("mailer" . rest) diff --git a/tests/client.scm b/tests/client.scm index ced573b..d28bc1a 100644 --- a/tests/client.scm +++ b/tests/client.scm @@ -99,10 +99,13 @@ called with." (const 12345)) client-config-stub) (cut (@@ (mumi client) send-email) + "mumi" (list "foo.patch" "bar.patch" "foobar.patch"))))))) (test-equal "send patches to existing issue" - '(("git" "send-email" "--to=12345@example.com" "foo.patch" "bar.patch" "foobar.patch")) + '(("git" "send-email" "--to=12345@example.com" + "--header-cmd=mumi git-send-email-headers" + "foo.patch" "bar.patch" "foobar.patch")) (map (match-lambda ((command _) command)) (trace-calls (var@@ (mumi client) call-with-input-pipe*) @@ -114,6 +117,7 @@ called with." client-config-stub do-not-poll-server-for-issue-number) (cut (@@ (mumi client) send-email) + "mumi" (list "foo.patch" "bar.patch" "foobar.patch"))))))) (test-equal "send single patch to new issue" @@ -127,10 +131,13 @@ called with." client-config-stub do-not-poll-server-for-issue-number) (cut (@@ (mumi client) send-email) + "mumi" (list "foo.patch"))))))) (test-equal "send single patch to existing issue" - '(("git" "send-email" "--to=12345@example.com" "foo.patch")) + '(("git" "send-email" "--to=12345@example.com" + "--header-cmd=mumi git-send-email-headers" + "foo.patch")) (map (match-lambda ((command _) command)) (trace-calls (var@@ (mumi client) call-with-input-pipe*) @@ -142,10 +149,13 @@ called with." client-config-stub do-not-poll-server-for-issue-number) (cut (@@ (mumi client) send-email) + "mumi" (list "foo.patch"))))))) (test-equal "send patch to existing issue and Cc other participants" - '(("git" "send-email" "--to=12345@example.com" "foo.patch")) + '(("git" "send-email" "--to=12345@example.com" + "--header-cmd=mumi git-send-email-headers" + "foo.patch")) (map (match-lambda ((command _) command)) (trace-calls (var@@ (mumi client) call-with-input-pipe*) @@ -157,6 +167,7 @@ called with." client-config-stub do-not-poll-server-for-issue-number) (cut (@@ (mumi client) send-email) + "mumi" (list "foo.patch"))))))) (test-end "client") -- 2.39.2