Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/ChangeLog,v
retrieving revision 1.68
diff -u -r1.68 ChangeLog
--- ChangeLog	2001/10/23 03:44:06	1.68
+++ ChangeLog	2001/11/02 05:47:02
@@ -1,3 +1,7 @@
+2001-11-01  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
+
+	* mime: Fixed bugs #477088, #472009.
+
 2001-10-21  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
 
 	* uri: Accepted patch #470211.
Index: modules/mime/ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/ChangeLog,v
retrieving revision 1.14
diff -u -r1.14 ChangeLog
--- modules/mime/ChangeLog	2001/10/17 17:27:26	1.14
+++ modules/mime/ChangeLog	2001/11/02 05:47:02
@@ -1,3 +1,17 @@
+2001-11-01  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
+
+	* smtp.tcl: Fixed bug #472009. Changes in the handling of
+	  script-level transformations cause the system to try to
+	  initialize the read side of the 'smtp::wdata'
+	  transformation. This fails. Added a dummy create/read branch to
+	  the switch. Reported by 'nobody/anonymous', but possibly Andreas
+	  Otto (deduced from the specified example).
+
+	* mime.tcl: Added informaton about 7bit, 8bit, and binary encoding
+	  to the places where it is missing. This fixes SF item
+	  #477088. Bug was reported by Oliver Bienert
+	  <obienert@users.sourceforge.net>.
+
 2001-10-16  Andreas Kupries <andreas_kupries@users.sourceforge.net>
 
 	* mime.n:
Index: modules/mime/mime.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.tcl,v
retrieving revision 1.16
diff -u -r1.16 mime.tcl
--- modules/mime/mime.tcl	2001/10/17 17:27:26	1.16
+++ modules/mime/mime.tcl	2001/11/02 05:47:02
@@ -318,7 +318,7 @@
 
             -encoding {
                 switch -- [set state(encoding) [string tolower $value]] {
-                    7bit - 8bit - quoted-printable - base64 {
+                    7bit - 8bit - binary - quoted-printable - base64 {
                     }
 
                     default {
@@ -1309,7 +1309,8 @@
                             set chunk [$state(encoding) -mode decode \
                                                         -- $chunk]
                         }
-			"" {
+			7bit - 8bit - binary - "" {
+			    # Bugfix for [#477088]
 			    # Go ahead, leave chunk alone
 			}
 			default {
@@ -1375,6 +1376,8 @@
                 }
 
                 default {
+		    # Not a bugfix for [#477088], but clarification
+		    # This handles no-encoding, 7bit, 8bit, and binary.
                     set fragment $state(string)
                 }
             }
@@ -1560,7 +1563,8 @@
                 quoted-printable {
                     set converter $encoding
                 }
-		"" {
+		7bit - 8bit - binary - "" {
+		    # Bugfix for [#477088]
 		    # Go ahead
 		}
 		default {
@@ -1798,7 +1802,8 @@
                 quoted-printable {
                     set converter $encoding
                 }
-		"" {
+		7bit - 8bit - binary - "" {
+		    # Bugfix for [#477088]
 		    # Go ahead
 		}
 		default {
Index: modules/mime/smtp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/smtp.tcl,v
retrieving revision 1.14
diff -u -r1.14 smtp.tcl
--- modules/mime/smtp.tcl	2001/10/17 17:27:26	1.14
+++ modules/mime/smtp.tcl	2001/11/02 05:47:02
@@ -950,6 +950,8 @@
     upvar 0 $token state
 
     switch -- $command {
+	create/read
+	    -
         create/write
             -
         clear/write
