Attachment "mime.patch" to
ticket [553784ffff]
added by
dgp
2002-05-08 23:48:00.
Index: mime.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.tcl,v
retrieving revision 1.21
diff -u -r1.21 mime.tcl
--- mime.tcl 27 Feb 2002 21:33:51 -0000 1.21
+++ mime.tcl 8 May 2002 16:47:11 -0000
@@ -3502,7 +3502,8 @@
error "malformed word-encoded expression '$encoded'"
}
- if {![info exists reversemap($charset)]} {
+ set enc [reversemapencoding $charset]
+ if {[string equal "" $enc]} {
error "unknown charset '$charset'"
}
@@ -3533,7 +3534,7 @@
}
}
- return [list $reversemap($charset) $method $result]
+ return [list $enc $method $result]
}
# mime::field_decode --
