From 37fba6c89a39c2ec8bcbff63f14b6a4760f44d98 Mon Sep 17 00:00:00 2001
From: Mikhail Teterin <mi@FreeBSD.org>
Date: Tue, 26 Jun 2001 23:50:47 +0000
Subject: [PATCH] Minor cleanup of the patch...

---
 mail/tkrat2/files/patch-charset | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/mail/tkrat2/files/patch-charset b/mail/tkrat2/files/patch-charset
index 66aa2606ce7a..c334132bf666 100644
--- a/mail/tkrat2/files/patch-charset
+++ b/mail/tkrat2/files/patch-charset
@@ -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)