From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 30 May 2000 18:32:56 +0000 (+0000)
Subject: Fix typo in DECODE-QP-HEX-OCTET.
X-Git-Tag: 20090517-FFI~3660
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=edbb8235f94afda045d78e5504038cf03994c1b9;p=mit-scheme.git

Fix typo in DECODE-QP-HEX-OCTET.
---

diff --git a/v7/src/imail/mime-codec.scm b/v7/src/imail/mime-codec.scm
index 6713be418..386352e8c 100644
--- a/v7/src/imail/mime-codec.scm
+++ b/v7/src/imail/mime-codec.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: mime-codec.scm,v 1.2 2000/05/27 00:11:06 cph Exp $
+;;; $Id: mime-codec.scm,v 1.3 2000/05/30 18:32:56 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -76,7 +76,7 @@
        (let ((d1 (char->digit (string-ref string (fix:+ start 1)) 16))
 	     (d2 (char->digit (string-ref string (fix:+ start 2)) 16)))
 	 (and d1 d2
-	      (integer->char (fix:+ (fix:* 4 d1) d2))))))
+	      (integer->char (fix:+ (fix:* 16 d1) d2))))))
 
 (define char-set:qp-encoded
   (char-set-invert