Name	Size	Mode	Actions
folders.cgi	1534	0755	editdlrm
mail-lib.pl	24873	0644	editdlrm
mail.min.css	34979	0644	editdlrm
mail.min.css.gz	6226	0644	editdlrm
mail.min.js	74469	0644	editdlrm
mail.min.js.gz	18754	0644	editdlrm
mail.src.js	206322	0644	editdlrm
message.cgi	990	0755	editdlrm
messages.cgi	12120	0755	editdlrm
search.cgi	6515	0755	editdlrm

#!/usr/bin/perl # # Authentic Theme (https://github.com/authentic-theme/authentic-theme) # Copyright Ilia Rostovtsev # Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE) # use strict; my %email; our (%in); do($ENV{'THEME_ROOT'} . "/extensions/mail/mail-lib.pl"); my @folders = mailbox::list_folders_sorted(); my ($folder) = grep {$_->{'index'} == $in{'folder'}} @folders; my @messages = sort {$a <=> $b} split(/\0/, $in{'d'}); # Mark message as read if ($in{'mark'} eq 'read') { foreach my $message (@messages) { message_mark_read($message, $folder); } } # Mark message as unread if ($in{'mark'} eq 'unread') { foreach my $message (@messages) { message_mark_unread($message, $folder); } } # Mark message as starred (special) if ($in{'mark'} eq 'starred') { foreach my $message (@messages) { message_mark_starred($message, $folder, $in{'state'}); } } print_json(\%email);