# HG changeset patch
# User Thomas Arendsen Hein <thomas@intevation.de>
# Date 2006-05-17 12:46:12
# Node ID 936b615eb44e9272198230973207e51aeeedf76b
# Parent  6e8e3dd7976e820267e3d5b1ebbbb0eda4b094e6

Fix hg view if author's name contains unmatched quotes. (issue248)
This was caused by the often seen Tcl list vs. string programming error.


diff --git a/contrib/hgk b/contrib/hgk
--- a/contrib/hgk
+++ b/contrib/hgk
@@ -196,6 +196,7 @@ proc parsecommit {id contents listed old
     }
     foreach line [split $contents "\n"] {
 	if {$inhdr} {
+	    set line [split $line]
 	    if {$line == {}} {
 		set inhdr 0
 	    } else {
@@ -203,11 +204,11 @@ proc parsecommit {id contents listed old
 		if {$tag == "author"} {
 		    set x [expr {[llength $line] - 2}]
 		    set audate [lindex $line $x]
-		    set auname [lrange $line 1 [expr {$x - 1}]]
+		    set auname [join [lrange $line 1 [expr {$x - 1}]]]
 		} elseif {$tag == "committer"} {
 		    set x [expr {[llength $line] - 2}]
 		    set comdate [lindex $line $x]
-		    set comname [lrange $line 1 [expr {$x - 1}]]
+		    set comname [join [lrange $line 1 [expr {$x - 1}]]]
 		}
 	    }
 	} else {