Reflect change to ADD-BUFFER-MIME-ATTACHMENT!.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 3a038dcee42943753e5eab286b6ef0670a2e1345..70f64b17ceed85a8fdd45be4e9ee1614fc3c0552 100644 (file)
--- 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?