File MHonArc-2.6.19-fix-perl.patch of Package MHonArc

-- mhonarc-2.6.19.orig/lib/mhamain.pl
+++ mhonarc-2.6.19/lib/mhamain.pl
@@ -1562,7 +1562,7 @@
 ##
 sub defineIndex2MsgId {
     no warnings qw(deprecated);
-    if (!defined(%Index2MsgId)) {
+    unless (%Index2MsgId) {
 	foreach (keys %MsgId) {
 	    $Index2MsgId{$MsgId{$_}} = $_;
 	}
--- mhonarc-2.6.19.orig/lib/mhmimetypes.pl
+++ mhonarc-2.6.19/lib/mhmimetypes.pl
@@ -48,6 +48,7 @@
     'application/ms-powerpoint',	'ppt:MS-Powerpoint presentation',
     'application/ms-project',		'mpp:MS-Project file',
     'application/msword',		'doc:MS-Word document',
+    'application/vnd.openxmlformats-officedocument.wordprocessingml.document',		'docx:MS-Word 2007 document',
     'application/octet-stream', 	'bin:Binary data',
     'application/oda', 			'oda:ODA file',
     'application/pdf', 			'pdf:Adobe PDF document',
@@ -71,7 +72,9 @@
     'application/vnd.lotus-wordpro',    'lwp,sam:Lotus WordPro',
     'application/vnd.mif', 		'mif:Frame MIF document',
     'application/vnd.ms-excel',         'xls:MS-Excel spreadsheet',
+    'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet',		'xlsx:MS-Excel 2007 spreadsheet',
     'application/vnd.ms-powerpoint',    'ppt:MS-Powerpoint presentation',
+    'application/vnd.openxmlformats-officedocument.presentationml.presentation',    'pptx:MS-Powerpoint 2007 presentation',
     'application/vnd.ms-project',	'mpp:MS-Project file',
     'application/vnd.stardivision.calc', 'sdc:StarCalc spreadsheet',
     'application/vnd.stardivision.chart', 'sds:StarChart document',
--- mhonarc-2.6.19.orig/lib/mhopt.pl
+++ mhonarc-2.6.19/lib/mhopt.pl
@@ -865,7 +865,7 @@
 sub update_data_2_1_to_later {
     no warnings qw(deprecated);
     # we can preserve filter arguments
-    if (defined(%main::MIMEFiltersArgs)) {
+    if (%main::MIMEFiltersArgs) {
 	warn qq/         preserving MIMEARGS...\n/;
 	%readmail::MIMEFiltersArgs = %main::MIMEFiltersArgs;
 	$IsDefault{'MIMEARGS'} = 0;