From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Jun 2000 20:52:23 +0000 (+0000)
Subject: Fix bug: MIME requires that quoted-printable encodings use upper-case
X-Git-Tag: 20090517-FFI~3568
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3ca1b88f65d211dac638006c85ccf8338e3f44e8;p=mit-scheme.git

Fix bug: MIME requires that quoted-printable encodings use upper-case
characters for hex digits.
---

diff --git a/v7/src/runtime/mime-codec.scm b/v7/src/runtime/mime-codec.scm
index 718f1fd19..2783810b9 100644
--- a/v7/src/runtime/mime-codec.scm
+++ b/v7/src/runtime/mime-codec.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: mime-codec.scm,v 14.1 2000/06/08 16:29:41 cph Exp $
+;;; $Id: mime-codec.scm,v 14.2 2000/06/08 20:52:23 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -342,8 +342,8 @@
     (vector-8b-set! char-table code value)
     (vector-8b-set! digit-table value code))
   (do-range (char->integer #\0) (char->integer #\9) 0)
-  (do-range (char->integer #\A) (char->integer #\F) 10)
   (do-range (char->integer #\a) (char->integer #\f) 10)
+  (do-range (char->integer #\A) (char->integer #\F) 10)
   (set! hex-char-table char-table)
   (set! hex-digit-table digit-table)
   unspecific)