From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nikita Karetnikov <nikita@karetnikov.org>
Subject: Re: New =?utf-8?Q?=E2=80=9Cguix_refresh=E2=80=9D?= command
Date: Fri, 24 May 2013 14:19:59 +0400
Message-ID: <87fvxc4r3k.fsf@karetnikov.org>
References: <87ehdzlg89.fsf@gnu.org> <87d2t2ehnp.fsf@karetnikov.org>
	<87d2t24ejj.fsf@gnu.org> <87bo8jfziy.fsf@karetnikov.org>
	<87obcjt1x5.fsf@gnu.org> <87fvxu30pi.fsf@karetnikov.org>
	<877gj5su70.fsf@gnu.org> <87obchmx23.fsf@karetnikov.org>
Mime-Version: 1.0
Content-Type: multipart/signed; boundary="==-=-=";
	micalg=pgp-sha1; protocol="application/pgp-signature"
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:59181)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <nikita@karetnikov.org>) id 1Ufp3R-0006f2-DD
	for bug-guix@gnu.org; Fri, 24 May 2013 06:17:03 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <nikita@karetnikov.org>) id 1Ufp3K-0003fH-Qw
	for bug-guix@gnu.org; Fri, 24 May 2013 06:16:57 -0400
In-Reply-To: <87obchmx23.fsf@karetnikov.org> (Nikita Karetnikov's message of
	"Sat, 11 May 2013 18:05:24 +0400")
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-guix>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
To: Ludovic =?utf-8?Q?Court=C3=A8s?= <ludo@gnu.org>
Cc: bug-guix@gnu.org

--==-=-=
Content-Type: multipart/mixed; boundary="=-=-="

--=-=-=

>> And I still think that 'guix refresh' must ask before importing a key.

> Patches welcome.  :-)

What do you think?


--=-=-=
Content-Type: text/x-diff
Content-Disposition: attachment; filename=gnupg.diff
Content-Transfer-Encoding: quoted-printable

diff --git a/guix/gnupg.scm b/guix/gnupg.scm
index c17a495..ba5160a 100644
=2D-- a/guix/gnupg.scm
+++ b/guix/gnupg.scm
@@ -143,7 +143,9 @@ missing key."
        status))
=20
 (define (gnupg-receive-keys key-id server)
=2D  (system* (%gpg-command) "--keyserver" server "--recv-keys" key-id))
+  (system* (%gpg-command)
+           "--keyserver" server
+           "--search-keys" (string-append "0x" key-id)))
=20
 (define* (gnupg-verify* sig file #:optional (server (%openpgp-key-server)))
   "Like `gnupg-verify', but try downloading the public key if it's missing.

--=-=-=--

--==-=-=
Content-Type: application/pgp-signature

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)

iQIcBAEBAgAGBQJRnz7SAAoJEM+IQzI9IQ38IZIP/0jPjuzD0oxHMJS3qdhcJ3Cr
U0sbHTEvZ+bIPqmi9lNOEwOiEO14Gv9hxO9RlTR0n03+kX5e6PVXwIkGSgUa7P72
9Z48uxwur7xlZIY70Du5MgZ4p9uImmcGm1qrGk1oZz8q7IedE+TVJ0B8Xpq3Cl+P
5awUEfFteIZijEvl7/Dkudl9CfzWSwILu0FR2/UZeoiwugc3b8OmjTZLTckPRGA4
6nSGnLi9Yuw+knjhEXCLEv0APt1KfxdzAWW5ADo1J2qLZP1p51mM2qwEtMp4hBbs
fbJhssWMyVO6XvUskxu91EYNZfJHV1jlD+glHjfhOfdf9DIiCkN/8sptNhFKGgR0
rY+Lq3zp8MaMb4oxzM0tciBTiw0tdJmOVK/N+8ktg2Ncd8vqeGvh4G9PWFRXnMjZ
9IF93XvwhNx/xhEh7nrepc11WruvX9uibCAvCc4oyZOhXWLJImveGJZmb/+Y27iO
uH530Fvt+/fc8RPUaur3ugxOWCHOyu3IgBrGk3kJBhgK0DnUYy8S66TtVrP/mo1v
jRBLFbAgEgjPoKCggujRHCaTI4wtZ8FQd+IHyYkID2wJaooZM6OXzgFKYQFnyrpm
LMtUEIa0xedKgsGuBsZDMQmectid32Bc0HZ3ZsXVjfMxcwYSpxyFMbWttEyfdidQ
0I8PpifgKDQkdOGO61Ct
=Ezzc
-----END PGP SIGNATURE-----
--==-=-=--