Patch for sorting
"Adam Hess" <[email protected]> Wed, 21 Jan 2004 21:16:36 -0500
| Newsgroups | gmane.mail.neomail.general |
|---|---|
| Message-ID | <[email protected]> |
Hey guys, Well I was unable to figure out how to get neo-mail to sort mailboxes by the order the message was received (i.e. the order in the mail spool). So.. I wrote a quick patch for neomail.pl, neomail-prefs.pl, and lang/en. Enable order-received sorting in the user-prefs. Enjoy! -Adam
neomail.pl.patch
(application/octet-stream, 1.3 KB)
1789c1789
< $db_content_type, $db_status, $db_messagesize, $db_message_attr);
---
> $db_content_type, $db_status, $db_messagesize, $db_received, $db_message_attr);
1802c1802
< $header{'messagesize'} ) = split(/@@@/, $db_message_attr);
---
> $header{'messagesize'}, $header{'received'} ) = split(/@@@/, $db_message_attr);
1835a1836,1839
> } elsif ( $sort eq 'received' ) {
> @message = sort by_received @message;
> } elsif ( $sort eq 'received_rev' ) {
> @message = reverse(sort by_received @message);
1895a1900,1905
>
> sub by_received {
> ${$a}{received} <=> ${$b}{received}
> or
> ${$a}{message_id} cmp ${$b}{message_id};
> }
2841c2851
< my ($db_from, $db_to, $db_date, $db_subject);
---
> my ($db_received, $db_from, $db_to, $db_date, $db_subject);
2852a2863
> $db_received = $messagenumber;
2890c2901
< $db_date, $db_subject, $db_content_type, $db_status, $db_messagesize);
---
> $db_date, $db_subject, $db_content_type, $db_status, $db_messagesize, $db_received);
2943a2955
> $db_received = $messagenumber;
2972c2984
< $db_date, $db_subject, $db_content_type, $db_status, $db_messagesize);
---
> $db_date, $db_subject, $db_content_type, $db_status, $db_messagesize, $db_received);
neomail-prefs.pl.patch
(application/octet-stream, 223 B)
231c231,232 < 'size','size_rev','subject','subject_rev'], --- > 'size','size_rev','subject','subject_rev', > 'received','received_rev'],
en.patch
(application/octet-stream, 214 B)
22c22,24 < subject_rev => 'Subject (Reverse alphabetical)' --- > subject_rev => 'Subject (Reverse alphabetical)', > received => 'Received (Oldest first)', > received_rev => 'Received (Newest first)'