--- 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: {