From eb42042c8fb4370f66049d2906d12994f9f2838a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Jun 2000 19:29:35 +0000
Subject: [PATCH] Store MIME multipart components in a list rather than a
 vector.

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

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index aca834309..bed90d16a 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.97 2000/06/01 18:46:59 cph Exp $
+;;; $Id: imail-imap.scm,v 1.98 2000/06/01 19:29:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -845,9 +845,8 @@
 	(let ((extensions (parse-mime-body:extensions (cdr tail))))
 	  (make-mime-body-multipart (intern (car tail))
 				    (parse-mime-parameters (car extensions))
-				    (list->vector
-				     (map parse-mime-body
-					  (sublist body 0 index)))
+				    (map parse-mime-body
+					 (sublist body 0 index))
 				    (cadr extensions)
 				    (caddr extensions)))
 	(loop (cdr tail) (fix:+ index 1)))))
-- 
2.25.1