diff --git a/etc/TclEncode.tcl b/etc/TclEncode.tcl
index 65d50904..c825ef20 100755
--- a/etc/TclEncode.tcl
+++ b/etc/TclEncode.tcl
@@ -29,11 +29,6 @@ set encoded_filename [lindex $argv 0]
 set init_var [lindex $argv 1]
 set init_filenames [lrange $argv 2 end]
 
-set mail_log 0
-if [info exists env(STA_MAIL_LOG)] {
-  set mail_log $env(STA_MAIL_LOG)
-}
-
 # Microcruft Visual C-- ridiculously short max string constant length.
 set max_string_length 2000
 
@@ -81,16 +76,3 @@ foreach filename $init_filenames {
   encode_file $filename
 }
 
-# See stax/src/Notify.tcl
-if { $mail_log } {
-  puts $out_stream "\","
-  puts -nonewline $out_stream "\""
-  puts -nonewline $out_stream "035032117110099111109109101110116032101120105115105116105110103032110111116105102121010035032126047115116097047116114117110107047101116099047084099108069110099111100101046116099108032126047116109112047110111116105102121046099032110111116105102121032126047115116097120047115114099047110111116105102121050046116099108010105102032123032033091105110102111032101120105115116115032101110118040085083069082041093032125032123010032032101114114111114032034069114114111114058032085083069082032101110118105114111110109101110116032118097114105097098108101032110111116032115101116046034010032032101120105116032049010125010105102032123032091099097116099104032091101120101099032109097105108032045115032034115116097032091115116097058058118101114115105111110093032115116097114116101100034032092010009032032032032032032032115116097108111103064112097114097108108097120115119046099111109032060060032034032034093093032125032123010032032101114114111114032034069114114111114058032110111116105102105099097116105111110032109097105108032116111032080097114097108108097120032102097105108101100046034010032032101120105116032049010125010010"
-}
-
-puts $out_stream "\","
-# NULL string to terminate char* array.
-puts $out_stream "0"
-puts $out_stream "};"
-puts $out_stream "} // namespace"
-close $out_stream