fossil2git

Changes On Branch mistake
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes In Branch mistake Excluding Merge-Ins

This is equivalent to a diff from 29d3afb224 to 3c079f6318

2014-08-29
23:31
Merge latest trunk fixes check-in: c543917cdc user: andreask tags: tkt-b23f9a08af-open
2014-08-06
05:40
Closed-Leaf check-in: 3c079f6318 user: aku tags: mistake
05:30
Updated to trunk check-in: 29d3afb224 user: aku tags: tkt-b23f9a08af-open
05:29
Merge truncation of added/edited/removed lists of files into trunk. check-in: 7aadb9e42f user: aku tags: trunk
2014-06-16
23:01
Get latest trunk changes. check-in: b8d1f12e71 user: aku tags: tkt-b23f9a08af-open

Changes to lib/generator.tcl.

610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
    regsub -all {<([^>]+)>} $ecomment {} ecomment
    # Reduce to first line.
    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]

    upvar 1 lines lines
    + "Subject: $subject"
    + "Date:    $date"
    + "X-Fossil-FX-Note:"
    + "X-Tool-Origin: http://core.tcl.tk/akupries/fx" ; # TODO make this ready
    + "X-Fossil-FX-Project-Name: $project"







|







610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
    regsub -all {<([^>]+)>} $ecomment {} ecomment
    # Reduce to first line.
    set subj [lindex [split $ecomment \n] 0]
    return "\[$project\] $prefix$subj"
}

proc ::fx::mailgen::Headers {project location subject epoch} {
    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:"
    + "X-Tool-Origin: http://core.tcl.tk/akupries/fx" ; # TODO make this ready
    + "X-Fossil-FX-Project-Name: $project"