Fix typo in DEFINE-MIME-MEDIA-PARSER for the case of replacing the

parser for a specific type/subtype pair: set the cdr of SUB-LEVEL, not
the cdr of TOP-LEVEL.

diff --git a/v7/src/imail/imail-mime.scm b/v7/src/imail/imail-mime.scm
index e307dc2a3d1f84dca8fb9165a32929ffc846286b..5841a6a618227c4cfc00d0337fc3254b1c820292 100644 (file)
--- a/v7/src/imail/imail-mime.scm
+++ b/v7/src/imail/imail-mime.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-mime.scm,v 1.8 2007/09/10 17:18:24 riastradh Exp $
+$Id: imail-mime.scm,v 1.9 2007/09/10 17:19:32 riastradh Exp $
 
 Copyright 2005 Taylor Campbell
 
@@ -153,7 +153,7 @@ USA.
                                       (cdr sub-level)
                                       (error-irritant/noise " with")
                                       parser)
-                                (set-cdr! top-level parser)))
+                                (set-cdr! sub-level parser)))
                           (else
                            (set-cdr! (cdr top-level)
                                      (cons (cons subtype parser)