From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 2 Jun 2000 17:25:18 +0000 (+0000)
Subject: Fix bug: MIME disposition wasn't being converted to canonical form.
X-Git-Tag: 20090517-FFI~3627
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=37df157300cde0d0891d3f9f5da86d9b567173f7;p=mit-scheme.git

Fix bug: MIME disposition wasn't being converted to canonical form.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 417745181..29cc695b3 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.101 2000/06/02 02:23:19 cph Exp $
+;;; $Id: imail-imap.scm,v 1.102 2000/06/02 17:25:18 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -880,9 +880,10 @@
 (define (parse-mime-body:extensions tail)
   (if (pair? tail)
       (if (pair? (cdr tail))
-	  (if (pair? (cddr tail))
-	      (list (car tail) (cadr tail) (caddr tail))
-	      (list (car tail) (cadr tail) #f))
+	  (let ((disposition (parse-mime-disposition (cadr tail))))
+	    (if (pair? (cddr tail))
+		(list (car tail) disposition (caddr tail))
+		(list (car tail) disposition #f)))
 	  (list (car tail) #f #f))
       (list #f #f #f)))