*** _mime.tcl	Wed Oct 17 10:27:26 2001
--- mime.tcl	Thu Apr  4 17:29:05 2002
***************
*** 1560,1566 ****
                  quoted-printable {
                      set converter $encoding
                  }
! 		"" {
  		    # Go ahead
  		}
  		default {
--- 1560,1566 ----
                  quoted-printable {
                      set converter $encoding
                  }
! 		7bit - 8bit - "" {
  		    # Go ahead
  		}
  		default {
*** _smtp.tcl	Wed Oct 17 10:27:26 2001
--- smtp.tcl	Thu Apr  4 17:24:35 2002
***************
*** 1012,1017 ****
--- 1012,1023 ----
              incr state(size) [string length $result]
              return $result
          }
+ 
+         create/read
+             - 
+         delete/read {
+         }
+ 
  	default {
  	    error "Unknown command \"$command\""
  	}
