From be627c299dab50eaf4f084a0affac7e088464a4f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 28 Apr 2000 16:14:32 +0000
Subject: [PATCH] Define MAKE-ATTACHED-MESSAGE.

---
 v7/src/imail/imail-core.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 17d29884e..7d32af5e3 100644
--- 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 ()
-- 
2.25.1