# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1429015671 -7200
# Node ID b82a656f784e05a11712853ca9a12c7b38cf0c8e
# Parent  2bb072311ed860ac183d1a7cf2a6f7546147398c
workaround upstream annoyance

diff -r 2bb072311ed8 -r b82a656f784e ma
--- 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: {