From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 28 Apr 2000 16:14:32 +0000 (+0000)
Subject: Define MAKE-ATTACHED-MESSAGE.
X-Git-Tag: 20090517-FFI~3971
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=be627c299dab50eaf4f084a0affac7e088464a4f;p=mit-scheme.git

Define MAKE-ATTACHED-MESSAGE.
---

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 ()