1#!/usr/local/bin/perl 2 3# 4# Authentic Theme (https://github.com/authentic-theme/authentic-theme) 5# Copyright Ilia Rostovtsev <programming@rostovtsev.io> 6# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE) 7# 8use strict; 9 10my %email; 11our (%in); 12 13do("$ENV{'THEME_ROOT'}/extensions/mail/mail-lib.pl"); 14 15my @folders = list_folders_sorted(); 16my ($folder) = grep {$_->{'index'} == $in{'folder'}} @folders; 17my @messages = sort {$a <=> $b} split(/\0/, $in{'d'}); 18 19# Mark message as read 20if ($in{'mark'} eq 'read') { 21 foreach my $message (@messages) { 22 message_mark_read($message, $folder); 23 } 24} 25 26# Mark message as unread 27if ($in{'mark'} eq 'unread') { 28 foreach my $message (@messages) { 29 message_mark_unread($message, $folder); 30 } 31} 32 33# Mark message as starred (special) 34if ($in{'mark'} eq 'starred') { 35 foreach my $message (@messages) { 36 message_mark_starred($message, $folder, $in{'state'}); 37 } 38} 39 40print_json(\%email); 41