Minor cleanup of the patch...

This commit is contained in:
Mikhail Teterin 2001-06-26 23:50:47 +00:00
parent 2c5010999b
commit 37fba6c89a
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=44482

View file

@ -15,11 +15,15 @@ version comes out.
--- tkrat/compose.tcl Tue Feb 13 00:59:37 2001
+++ tkrat/compose.tcl Tue Jun 26 14:29:18 2001
@@ -49,4 +48,6 @@
@@ -49,4 +49,10 @@
}
set handler [$msg reply $to]
+ global $handler
+ array set $handler [list charset [[$msg body] parameter charset]]
+ set charset [[$msg body] parameter charset]
+ if {"" == $charset} {
+ set charset auto ;# or US-ASCII?
+ }
+ array set $handler [list charset $charset]
return [DoCompose $handler \
[expr {($option(reply_bottom)) ? "1" : "-1"}] \
@@ -377,6 +378,4 @@
@ -48,7 +52,7 @@ version comes out.
+ ConfigureEncoding $fh [SaneCharset $charset]
set mh(data) [read $fh]
close $fh
@@ -1024,4 +1017,32 @@
@@ -1024,4 +1017,31 @@
}
+# Cache the known charsets for subsequent SaneCharset invocations:
@ -56,7 +60,6 @@ version comes out.
+
+proc SaneCharset args {
+ global charsetMapping KnownCharsets
+ puts "SaneCharset: going through ``$args''"
+ foreach charset $args {
+ if {[info exists charsetMapping($charset)]} {
+ set charset $charsetMapping($charset)