Attachment "mime.diff" to
ticket [792796ffff]
added by
ingemarh
2003-08-22 05:22:40.
*** mime.tcl Thu Aug 21 23:42:04 2003
--- mime-org.tcl Mon Jul 21 20:10:58 2003
***************
*** 684,687 ****
set moreP 1
- set msgLineCount 0
- incr state(lines.current)
while {$moreP} {
--- 684,685 ----
***************
*** 700,709 ****
if { $state(lines.current) >= $state(lines.count) } {
- # If no message lines are found, only a header has been initialized
- # Don't raise an error
- if {$msgLineCount == 0} {
- return
- }
error "end-of-string encountered while parsing $state(content)"
} else {
- incr msgLineCount
set line [lindex $state(lines) $state(lines.current)]
--- 698,701 ----
