1 files changed, 46 insertions, 0 deletions

diff --git a/devel/tcllib/files/patch-mime-tests b/devel/tcllib/files/patch-mime-tests
new file mode 100644
index 000000000000..85ccaa39b176
--- /dev/null
+++ b/devel/tcllib/files/patch-mime-tests
@@ -0,0 +1,46 @@
+--- modules/mime/mime.test	2006-01-30 20:16:45.000000000 -0800
++++ modules/mime/mime.test	2006-10-06 19:54:36.000000000 -0700
+@@ -7,7 +7,7 @@
+ # Copyright (c) 2000 by Ajuba Solutions
+ # All rights reserved.
+ #
+-# RCS: @(#) $Id: mime.test,v 1.25 2006/01/31 04:16:31 andreas_kupries Exp $
++# RCS: @(#) $Id: mime.test,v 1.26 2006/10/07 02:54:36 andreas_kupries Exp $
+ 
+ # -------------------------------------------------------------------------
+ 
+@@ -75,14 +75,12 @@
+ Content-Type: text/plain\r
+ \r
+ jack and jill\r
+-\r
+ --bndry\r
+ MIME-Version: 1.0\r
+ Content-ID: \[^\n]+\r
+ Content-Type: text/plain\r
+ \r
+ james\r
+-\r
+ --bndry--\r
+ " $msg] [regexp "boundary=\"bndry\"" $msg] [regexp "myparam=\"foo\"" $msg]
+ } {1 1 1}
+@@ -146,8 +144,7 @@
+ } "msg1 {MIME-Version: 2.0\r
+ Content-Type: text/plain\r
+ \r
+-msg1\r
+-}"
++msg1}"
+ 
+ test mime-3.5 {Try to parse a MIME message with no newline between headers and data} {
+     set msg2 {MIME-Version: 1.0
+@@ -172,8 +169,7 @@
+ } "foo {MIME-Version: 1.0\r
+ Content-Type: text/plain\r
+ \r
+-foo\r
+-}"
++foo}"
+ 
+ test mime-3.7 {Test mime with a bad email [SF Bug 631314 ]} {
+     catch {