From: lace <>
Date: Fri, 16 Jul 2010 06:27:11 +0000 (+0000)
Subject: &muttrc_get: Fix alternates.
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=96a0bff5705d2496a76b4f3f0a61970e55135492

&muttrc_get: Fix alternates.
---

diff --git a/PerlMail/Lib.pm b/PerlMail/Lib.pm
index 200e4db..344d989 100644
--- a/PerlMail/Lib.pm
+++ b/PerlMail/Lib.pm
@@ -101,7 +101,7 @@ sub muttrc_get
 {
 my(@headers)=@_;
 
-	my @r=map({ (ref $_ ? $_ : qr/^\s*set\s+\Q$_\E\s*=\s*(.*?)\s*$/si); } @headers);
+	my @r=map({ (ref $_ ? $_ : ($_ eq "alternates" ? qr/^\s*\Q$_\E\s+(.*?)\s*$/si : qr/^\s*set\s+\Q$_\E\s*=\s*(.*?)\s*$/si)); } @headers);
 	my %r=map(($_=>undef()),@r);
 	for (muttrc()) {
 		for my $ritem (@r) {