Add formal param

diff --git a/mailboxes/folders-lib.pl b/mailboxes/folders-lib.pl
index 4c23a04..e04b1d7 100755 (executable)
--- a/mailboxes/folders-lib.pl
+++ b/mailboxes/folders-lib.pl
@@ -2923,7 +2923,8 @@ foreach my $folder (@$folders) {
 # Returns a short text preview of a message body
 sub mail_preview
 {
-local ($textbody, $htmlbody, $body) = &find_body($_[0], 0);
+local ($mail) = @_;
+local ($textbody, $htmlbody, $body) = &find_body($mail, 0);
 local $data = $body->{'data'};
 $data =~ s/\r?\n/ /g;
 $data = substr($data, 0, 100);