Index: lib/generator.tcl
==================================================================
--- lib/generator.tcl
+++ lib/generator.tcl
@@ -612,11 +612,11 @@
     set subj [lindex [split $ecomment \n] 0]
     return "\[$project\] $prefix$subj"
 }
 
 proc ::fx::mailgen::Headers {project location subject epoch} {
-    set date  [clock format $epoch -gmt 1]
+    set date  [clock format $epoch -format {%d %b %Y %H:%M:%S %z}]
 
     upvar 1 lines lines
     + "Subject: $subject"
     + "Date:    $date"
     + "X-Fossil-FX-Note:"