--- a/ma Thu Dec 15 16:08:16 2011 +0100
+++ b/ma Tue Apr 14 14:47:51 2015 +0200
@@ -81,6 +81,9 @@
my $Module = shift if @ARGV && $ARGV[0] !~ /^-/;
$Module ||= "UNKNOWN";
+# see http://article.gmane.org/gmane.mail.imap.cyrus/36348 or
+# https://lists.andrew.cmu.edu/pipermail/info-cyrus/2012-February/035910.html
+$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ m{^(Please report to rjlov at /usr/share/perl5/Mail/IMAPTalk\.pm line|Warning only: IMAPTalk not using unicode_folders at /usr/share/perl5/Mail/IMAPTalk\.pm line )} };
$SIG{__DIE__} = sub { die "\n" . ME . ": ", @_ };
MAIN: {