From fd710382cefde961d2d9827e2f415e0de5904588 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 May 2000 18:50:38 +0000
Subject: [PATCH] Define ATTACH-MESSAGE!.

---
 v7/src/imail/imail-core.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 080a0dece..2bdc4b49c 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.43 2000/05/08 15:30:45 cph Exp $
+;;; $Id: imail-core.scm,v 1.44 2000/05/08 18:50:38 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -376,19 +376,22 @@
 
 (define (make-attached-message folder headers body)
   (let ((message (make-detached-message headers body)))
-    (set-message-folder! message folder)
+    (attach-message! message folder)
     message))
 
 (define (attach-message message folder)
-  (guarantee-folder folder 'ATTACH-MESSAGE)
   (let ((message
 	 (make-message (map copy-header-field (message-header-fields message))
 		       (message-body message)
 		       (list-copy (message-flags message))
 		       (alist-copy (message-properties message)))))
-    (set-message-folder! message folder)
+    (attach-message! message folder)
     message))
 
+(define (attach-message! message folder)
+  (guarantee-folder folder 'ATTACH-MESSAGE)
+  (set-message-folder! message folder))
+
 (define (detach-message message)
   (set-message-folder! message #f)
   (set-message-index! message #f))
-- 
2.25.1