From d2a39b494736021fc8dafe465815a03eb6372f33 Mon Sep 17 00:00:00 2001
From: Ian Campbell <ian.campbell@citrix.com>
Date: Tue, 21 Jan 2014 15:03:44 +0000
Subject: [PATCH] Refactor code to create a MIME::Parser with our prefer
 settings

---
 Emesinae/MIME.pm    | 11 +++++++++++
 Emesinae/Message.pm |  6 ++----
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/Emesinae/MIME.pm b/Emesinae/MIME.pm
index 6a76659..3be8a16 100644
--- a/Emesinae/MIME.pm
+++ b/Emesinae/MIME.pm
@@ -1,8 +1,19 @@
 package Emesinae::MIME;
 
+use MIME::Parser;
+
 use warnings;
 use strict;
 
+sub getmimeparser ($)
+{
+    my ( $tmp ) = @_;
+    my $p = new MIME::Parser;
+    $p->tmp_to_core(1);
+    $p->output_under($tmp);
+    return $p;
+}
+
 sub getmailbody    # From Debbugs
 {
     my $entity = shift;
diff --git a/Emesinae/Message.pm b/Emesinae/Message.pm
index 1a5cc51..19eb5b1 100644
--- a/Emesinae/Message.pm
+++ b/Emesinae/Message.pm
@@ -4,10 +4,10 @@ use strict;
 use warnings;
 
 use Emesinae::Common;
+use Emesinae::MIME;
 use Mail::Field;
 use Mail::Field::AddrList;
 use Mail::Field::Date;
-use MIME::Parser;
 
 sub lookup_id {
     my $class = shift;
@@ -249,9 +249,7 @@ sub body {
 
 sub get_mime($$) {
     my ( $self, $tmp ) = @_;
-    my $p = new MIME::Parser;
-    $p->tmp_to_core(1);
-    $p->output_under($tmp);
+    my $p = Emesinae::MIME::getmimeparser($tmp);
     return $p->parse_two( $self->_rawpath("hdr"), $self->_rawpath("body") );
 }
 
-- 
2.39.5