Index: modules/mime/mime.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.tcl,v
retrieving revision 1.29
diff -u -r1.29 mime.tcl
@@ -3513,9 +3513,11 @@
     }
 
     switch -exact -- $method {
+	b -
 	B {
             set method base64
         }
+	q -
 	Q {
             set method quoted-printable
         }
Index: modules/mime/mime.test
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.test,v
retrieving revision 1.6
diff -u -r1.6 mime.test
--- modules/mime/mime.test	1 May 2003 22:40:16 -0000	1.6
+++ modules/mime/mime.test	5 May 2003 06:07:57 -0000
@@ -210,6 +210,13 @@
     mime::word_decode $enc
 } {iso8859-1 base64 {Test de contrôle effectué}}
 
+test mime-5.5 {Test decode with lowercase quoted-printable method} {
+	mime::word_decode "=?ISO-8859-1?q?Test_lowercase_q?="
+} {iso8859-1 quoted-printable {Test lowercase q}}
+
+test mime-5.6 {Test decode with lowercase base64 method} {
+	mime::word_decode "=?ISO-8859-1?b?VGVzdCBsb3dlcmNhc2UgYg==?="
+} {iso8859-1 base64 {Test lowercase b}}
 
 test mime-6.1 {Test field_decode (from RFC 2047, part 8)} {
     mime::field_decode {=?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>}
