1 files changed, 13 insertions(+), 11 deletions(-)

M ntalk.tcl

@@ 740,10 740,12 @@ set sendqueue {}
 
 proc incoming {sok} {
 	global next
-	while {[gets $sok line] != -1} {
-		eval $next [list $line]
-	}
-	if {[eof $sok]} { neterr }
+	if [catch {
+		while {[gets $sok line] != -1} {
+			eval $next [list $line]
+		}
+		if {[eof $sok]} { neterr }
+	}] { neterr }
 }
 
 proc sendl {line} {


@@ 978,16 980,16 @@ bind .foot.input <Return> [concat [bind .foot.input <Return>] ";" {
 		user { setuser $line }
 
 		last { last $line }
-		send { send $line}
+		send { send $line }
 
-		motd  { send "MOTD $line" }
-		me    { send "${user} $line" }
-		my    { send "${user}'s $line" }
-		think { send "${user} . o ( $line )" }
-		<=    { send "${user} <= $line" }
+		motd { send "MOTD $line" }
+		me   { send "${user} $line" }
+		my   { send "${user}'s $line" }
+		idea { send "${user} . o ( $line )" }
+		<=   { send "${user} <= $line" }
 
 		eval { .foot.input insert 0 [eval $line] }
-		exec { .foot.input insert 0 [exec sh -c $line]}
+		exec { .foot.input insert 0 [exec sh -c $line] }
 		calc { .foot.input insert 0 [expr $line] }
 		
 		n64k { .foot.input insert 0 [n64k_date] }