From 37df157300cde0d0891d3f9f5da86d9b567173f7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 2 Jun 2000 17:25:18 +0000
Subject: [PATCH] Fix bug: MIME disposition wasn't being converted to canonical
 form.

---
 v7/src/imail/imail-imap.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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)))
 
-- 
2.25.1