From 3880bbbbf33aba5ab8b31347042ae4b281d0ffc0 Mon Sep 17 00:00:00 2001
From: mbr <mbr@FreeBSD.org>
Date: Thu, 2 Sep 2004 22:26:06 +0000
Subject: Correct "7_bit", "7-bit", and "7 bit" to "7bit"; likewise for "8bit".

Taken from MIME-Tools 6.002
---
 mail/p5-MIME-Tools/files/patch-7or8bit.diff | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 mail/p5-MIME-Tools/files/patch-7or8bit.diff

diff --git a/mail/p5-MIME-Tools/files/patch-7or8bit.diff b/mail/p5-MIME-Tools/files/patch-7or8bit.diff
new file mode 100644
index 000000000000..5e61d272e03c
--- /dev/null
+++ b/mail/p5-MIME-Tools/files/patch-7or8bit.diff
@@ -0,0 +1,20 @@
+--- lib/MIME/Head.pm.orig	Sat Nov  4 20:54:46 2000
++++ lib/MIME/Head.pm	Wed Aug 25 11:12:25 2004
+@@ -685,11 +685,16 @@
+     This is the default value -- that is, "Content-Transfer-Encoding: 7BIT" 
+     is assumed if the Content-Transfer-Encoding header field is not present.
+ 
++I do one other form of fixup: "7_bit", "7-bit", and "7 bit" are
++corrected to "7bit"; likewise for "8bit".
++
+ =cut
+ 
+ sub mime_encoding {
+     my $self = shift;
+-    lc($self->mime_attr('content-transfer-encoding') || '7bit');
++    my $enc = lc($self->mime_attr('content-transfer-encoding') || '7bit');
++    $enc =~ s{^([78])[ _-]bit\Z}{$1bit};
++    $enc;
+ }
+ 
+ #------------------------------
-- 
cgit