*** 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 ----
