From 1c06c55dc08745ea8314755059295ba9719254f9 Mon Sep 17 00:00:00 2001 From: "Taylor R. Campbell" Date: Mon, 10 Sep 2007 17:19:32 +0000 Subject: [PATCH] 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. --- v7/src/imail/imail-mime.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/imail/imail-mime.scm b/v7/src/imail/imail-mime.scm index e307dc2a3..5841a6a61 100644 --- 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) -- 2.25.1