This is not perfect as we reach into the @msgs array to grep the first
subject line. A sender with multiple messages may very well have
different subject lines. Also we needed to make a copy of @msgs.
Apparently a reference into the @msgs array messes up the later pop
operation.
foreach my $sender (ReturnSenders $userid, $type, $next, $lines, $date) {
my @msgs = ReturnMessages $userid, $sender;
foreach my $sender (ReturnSenders $userid, $type, $next, $lines, $date) {
my @msgs = ReturnMessages $userid, $sender;
-width => '100%',
-bgcolor => '#d4d0c8'};
print
-width => '100%',
-bgcolor => '#d4d0c8'};
print
- td {-class => 'tablelabel',
- -valign => 'middle',
- -width => '40'}, 'Sender:',
- td {-class => 'sender',
- -valign => 'middle'},
- a {-href => "mailto:$sender"}, $sender;
+ td {-class => 'tablelabel',
+ -valign => 'middle',
+ -width => '40'}, 'Sender:',
+ td {-class => 'sender',
+ -valign => 'middle'},
+ a {-href => "mailto:$sender?subject=$msgs2[0][0]"}, $sender;