#!/usr/bin/perl

# Format GnuPG key-list output for use in mutt.
# Then include
# source '~/bin/gpg_get_keys.pl|'
# (or whatever the path where you save this script is)
# in your ~/.muttrc
use strict;
use warnings;

my @gpgList = `gpg --list-keys`;
my %emailAddrs = ();
	foreach (@gpgList) {
		if( /<(.*?@.*?)>/ ) {
			$emailAddrs{$1} = 1;
		}
	}

my $muttString = '^~C "(';

foreach (sort keys %emailAddrs) {
	$muttString .= "$_|";
}

$muttString =~ s/\|$//;

$muttString .= ')"';
$muttString = "send-hook '$muttString' 'set pgp_autoencrypt=yes;set pgp_autosign=yes'";

print $muttString;