&muttrc_get: Fix alternates.

[PerlMail.git] / PerlMail / Lib.pm

diff --git a/PerlMail/Lib.pm b/PerlMail/Lib.pm
index 200e4db..344d989 100644 (file)
--- 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) {