Overview
| Artifact ID: | 3d692b0b685ec88d2cb9d87ed2773ff51336de3f |
|---|---|
| Ticket: | 620852ffffffffffffffffffffffffffffffffff |
| Date: | 2002-10-10 05:13:43 |
| User: | mrose |
| Artifact Attached: | 07176d8257ef3348f4ccba3e00aa7972e418263a |
| Filename: | diffs.txt |
| Description: | suggested diff to mime.tcl |
Content:
--- _mime.tcl Wed Oct 9 14:56:43 2002
+++ mime.tcl Wed Oct 9 15:11:41 2002
@@ -1619,7 +1619,6 @@
puts $channel ""
-puts stdout "channel=$channel converter=$converter size=$size closeP=$closeP"
while {($size != 0) && (![eof $fd])} {
if {$size < 0 || $size > 32766} {
set X [read $fd 32766]
@@ -1630,7 +1629,7 @@
set size [expr {$size - [string length $X]}]
}
if {[string compare $converter ""]} {
- puts $channel [$converter -mode encode -- $X]
+ puts $channel [string trimright [$converter -mode encode -- $X]]
} else {
puts $channel $X
}
@@ -1684,7 +1683,7 @@
puts $channel ""
if {[string compare $converter ""]} {
- puts $channel [$converter -mode encode -- $state(string)]
+ puts $channel [string trimright [$converter -mode encode -- $state(string)]]
} else {
puts $channel $state(string)
}
@@ -1868,10 +1867,11 @@
set size [expr {$size - [string length $X]}]
}
if {[string compare $converter ""]} {
- append result "[$converter -mode encode -- $X]\n"
+ append result [string trimright [$converter -mode encode -- $X]]
} else {
- append result "$X\n"
+ append result $X
}
+ append result "\n"
}
if {$closeP} {
@@ -1916,10 +1916,11 @@
append result "\n"
if {[string compare $converter ""]} {
- append result "[$converter -mode encode -- $state(string)]\n"
+ append result [string trimright [$converter -mode encode -- $state(string)]]
} else {
- append result "$state(string)\n"
+ append result $state(string)
}
+ append result "\n"
}
default {
error "Unknown value \"$state(value)\""