Changes to gnats/contrib/tkgnats/tkpr_library.tcl

[Michael Richardson]

Index: gnats/contrib/tkgnats/tkpr_library.tcl
diff -c gnats/contrib/tkgnats/tkpr_library.tcl:1.10 
gnats/contrib/tkgnats/tkpr_library.tcl:1.11
*** gnats/contrib/tkgnats/tkpr_library.tcl:1.10 Mon Mar 31 21:48:28 2003
--- gnats/contrib/tkgnats/tkpr_library.tcl      Tue Apr  1 23:52:47 2003
***************
*** 1253,1259 ****
          ${p}._${l}.$e config -state $state
          return
      }
!     error "no such window for $l"
  }
  
  proc textget {l {p ""} {e text}} {
--- 1253,1259 ----
          ${p}._${l}.$e config -state $state
          return
      }
!     #error "no such window for $l"
  }
  
  proc textget {l {p ""} {e text}} {
***************
*** 1375,1380 ****
--- 1375,1381 ----
          -relief sunken -borderwidth 2 -background 
$TkGnats(EditFieldBackground)]
      set_focus_style $ew
      $ew insert end  $t
+ 
      bind $ew <3> "clipboard_post $ew %X %Y"
      if {[check_suppressed_field [string trimleft $l >]] == 2} {
          $ew configure -state disabled -background 
$TkGnats(ReadOnlyBackground) -highlightcolor grey85
***************
*** 1714,1764 ****
          }
      }
  
-     #
-     # Do a little post processing on the fields before we leave
-     #
-     if {![info exists fields(X-GNATS-Notify)]} {
-         lappend fldtags X-GNATS-Notify
-         if {[info exists fields(Reply-To)]} {
-             # Copy Reply-To to X-GNATS-Notify
-             set fields(X-GNATS-Notify) [fix_email_addresses [string trim 
$fields(Reply-To)]]
-             # Remove Reply-To from _prefix_, fldtags and field.
-             set   lines   [split $fields(_prefix_) \n]
-             set   idx     [lsearch -regexp $lines "^Reply-To:"]
-             set   lines   [lreplace $lines $idx [expr $idx + 
$fields(_prefix_len_Reply-To) - 1]]
-             set   fields(_prefix_)  [join $lines \n]
-             set   idx     [lsearch  $fldtags "Reply-To"]
-             set   fldtags [lreplace $fldtags $idx $idx]
-             unset fields(Reply-To)
-             unset fields(_prefix_len_Reply-To)
-         } {
-             set fields(X-GNATS-Notify) "\n"
-         }
-         set fields(_prefix_len_X-GNATS-Notify) 1
-         set fields(_prefix_) "[string trim 
$fields(_prefix_)]\nX-GNATS-Notify: $fields(X-GNATS-Notify)\n"
-     } {
-         set fields(X-GNATS-Notify) [fix_email_addresses [string trim 
$fields(X-GNATS-Notify)]]
-     }
-     if {![info exists fields(Reply-To)]} {
-         lappend fldtags Reply-To
-         if {[info exists fields(Sender)]} {
-             set fields(Reply-To) $fields(Sender)
-         } {
-             if {[info exists fields(From)]} {
-                 set fields(Reply-To) $fields(From)
-             } {
-                 set fields(Reply-To) "_unknown_"
-             }
-         }
-         set fields(Reply-To) [fix_email_addresses [string trim 
$fields(Reply-To)]]
-         set fields(_prefix_len_Reply-To) 1
-         set lines   [split $fields(_prefix_) \n]
-         set idx     [lsearch -regexp $lines "^To:"]
-         set lines   [linsert $lines $idx "Reply-To: $fields(Reply-To)"]
-         set fields(_prefix_)  [join $lines \n]
-     } {
-         set fields(Reply-To) [fix_email_addresses [string trim 
$fields(Reply-To)]]
-     }
      return $fldtags
  }
  
--- 1715,1720 ----
***************
*** 1963,1973 ****
      }
  }
  
! proc flush_singletext {lst} {
      global frm
      #set frm($tag) [string trim [textget $tag] "\t\n "]
      foreach tag $lst {
!         if {[catch {string trim [textget $tag] "\t\n "} frm($tag)]} {
              set frm($tag) ""
          }
      }
--- 1919,1929 ----
      }
  }
  
! proc flush_singletext {lst {p ""}} {
      global frm
      #set frm($tag) [string trim [textget $tag] "\t\n "]
      foreach tag $lst {
!         if {[catch {string trim [textget $tag $p] "\t\n "} frm($tag)]} {
              set frm($tag) ""
          }
      }