X-Git-Url: https://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=PerlMail%2FLib.pm;fp=PerlMail%2FLib.pm;h=344d989aa967aacd22f7c4921888f043f696da1f;hp=200e4dbd172cbd2f5c3e497c49c77c145f9f165d;hb=96a0bff5705d2496a76b4f3f0a61970e55135492;hpb=d270dc779e33822c84d5d43c22d1f4493284628d;ds=sidebyside 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) {