From 96a0bff5705d2496a76b4f3f0a61970e55135492 Mon Sep 17 00:00:00 2001
From: lace <>
Date: Fri, 16 Jul 2010 06:27:11 +0000
Subject: [PATCH] &muttrc_get: Fix alternates.

---
 PerlMail/Lib.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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) {
-- 
1.8.3.1