Define MAKE-ATTACHED-MESSAGE.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 17d29884e16c64fde02b4d099f8c2f99ba767660..7d32af5e3df4a53304bceaa08feccac4e31b20bc 100644 (file)
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.31 2000/04/27 02:16:37 cph Exp $
+;;; $Id: imail-core.scm,v 1.32 2000/04/28 16:14:32 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -406,6 +406,11 @@
   (set-message-folder! message #f)
   (set-message-index! message #f))
 
+(define (make-attached-message folder headers body)
+  (let ((message (make-detached-message headers body)))
+    (set-message-folder! message folder)
+    message))
+
 (define (message-modified! message)
   (without-interrupts
    (lambda ()