*** seditQP.tcl	Thu Feb 26 07:39:12 1998
--- seditQP.tcl.ORIG	Mon Mar 11 19:48:38 1996
***************
*** 168,174 ****
  	set newline $key
  	set line $value
      }
-     set hithit 0
      while {[string length $line] > 0} {
  	if [regexp -indices {^([^][\(\)<>@,;:"/\?\.= 	]*)([][\(\)<>@,;:"/\?\.= 	]*)} $line match word special] {
  	    set x [expr [lindex $special 1]+1]
--- 168,173 ----
***************
*** 189,204 ****
  		}
  	    }
  	    if {! $hit} {
- 		set hithit 0
  		append newline $word $special
  	    } else {
  		append newline =?$sedit(charset)?Q?
- 		if {$hithit} {
- 		    append newline _
- 		}
  		foreach char [split $word {}] {
  		    scan $char %c code
! 		    if {$code > 127 || $char == "_" || $char == "=" || $char == {?}} {
  			append newline [format =%X $code]
  		    } else {
  			append newline $char
--- 188,199 ----
  		}
  	    }
  	    if {! $hit} {
  		append newline $word $special
  	    } else {
  		append newline =?$sedit(charset)?Q?
  		foreach char [split $word {}] {
  		    scan $char %c code
! 		    if {$code > 127} {
  			append newline [format =%X $code]
  		    } else {
  			append newline $char
***************
*** 205,211 ****
  		    }
  		}
  		append newline ?= $special
- 		set hithit 1
  	    }
  	} else {
  	    Exmh_Debug Fail <$line>
--- 200,205 ----