From 8bd972586f8705d18041304bbeb34f6e9fe4acf7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 Oct 2004 16:32:24 +0000
Subject: [PATCH] Reflect change to ADD-BUFFER-MIME-ATTACHMENT!.

---
 v7/src/imail/imail-top.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 3a038dcee..70f64b17c 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-top.scm,v 1.289 2004/03/24 21:16:55 cph Exp $
+$Id: imail-top.scm,v 1.290 2004/10/29 16:32:24 cph Exp $
 
 Copyright 1999,2000,2001,2002,2003,2004 Massachusetts Institute of Technology
 
@@ -1207,7 +1207,9 @@ With negative argument, forward the message with all headers;
 	 (if (ref-variable imail-forward-using-mime mail-buffer)
 	     (add-buffer-mime-attachment!
 	      mail-buffer
-	      'MESSAGE 'RFC822 '() '(INLINE)
+	      (make-mime-type 'MESSAGE 'RFC822)
+	      '()
+	      '(INLINE)
 	      (map header-field->mail-header
 		   (let ((headers (message-header-fields message)))
 		     (if raw?
-- 
2.25.1