Define ATTACH-MESSAGE!.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 080a0deceab48d15c9363289ce5ec628b637561a..2bdc4b49c585c15009776ec10a5d9f2de58f4a7b 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.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))