From mboxrd@z Thu Jan  1 00:00:00 1970
From: Leo Famulari <leo@famulari.name>
Subject: Re: [PATCH] gnu: gmime: Remove gpg to gpg2 patch.
Date: Mon, 25 Jul 2016 11:21:10 -0400
Message-ID: <20160725152110.GB20931@jasmine>
References: <878twqj5w8.fsf@we.make.ritual.n0.is>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:33780)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <leo@famulari.name>) id 1bRhh6-0001mO-7u
	for guix-devel@gnu.org; Mon, 25 Jul 2016 11:21:25 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <leo@famulari.name>) id 1bRhh3-0004Rm-0j
	for guix-devel@gnu.org; Mon, 25 Jul 2016 11:21:24 -0400
Received: from out5-smtp.messagingengine.com ([66.111.4.29]:40327)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <leo@famulari.name>) id 1bRhh1-0004QS-QY
	for guix-devel@gnu.org; Mon, 25 Jul 2016 11:21:20 -0400
Content-Disposition: inline
In-Reply-To: <878twqj5w8.fsf@we.make.ritual.n0.is>
List-Id: "Development of GNU Guix and the GNU System distribution."
	<guix-devel.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guix-devel/>
List-Post: <mailto:guix-devel@gnu.org>
List-Help: <mailto:guix-devel-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=subscribe>
Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
Sender: "Guix-devel" <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
To: ng0 <ng0@we.make.ritual.n0.is>
Cc: guix-devel@gnu.org

On Mon, Jul 25, 2016 at 11:47:51AM +0000, ng0 wrote:
>              (with-fluids ((%default-port-encoding #f))
>                (substitute* (find-files "tests" "\\.c$")
>                  (("(system *\\(\")(/[^ ]*)" all pre prog-path)
>                   (let* ((base (basename prog-path))
> -                        (prog (which (if (string=? base "gpg") "gpg2" base))))
> +                        (prog (which base)))
>                     (string-append pre
>                                    (or prog (error "not found: " base))))))))))))

I can confirm this fixes the build failure. But, I don't fully
understand the code that was changed. Can somebody double-check it?