From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 May 2000 18:51:48 +0000 (+0000)
Subject: Rename DETACH-MESSAGE to DETACH-MESSAGE!.
X-Git-Tag: 20090517-FFI~3912
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ba0c35db9069e3dffbcbd2c9ccd5b25a74aa0c8e;p=mit-scheme.git

Rename DETACH-MESSAGE to DETACH-MESSAGE!.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 2bdc4b49c..cf7e2c3bb 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.44 2000/05/08 18:50:38 cph Exp $
+;;; $Id: imail-core.scm,v 1.45 2000/05/08 18:51:48 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -392,7 +392,7 @@
   (guarantee-folder folder 'ATTACH-MESSAGE)
   (set-message-folder! message folder))
 
-(define (detach-message message)
+(define (detach-message! message)
   (set-message-folder! message #f)
   (set-message-index! message #f))
 
diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index ad6816c69..7609cbc4f 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-file.scm,v 1.17 2000/05/04 17:40:03 cph Exp $
+;;; $Id: imail-file.scm,v 1.18 2000/05/08 18:51:43 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -83,7 +83,7 @@
        (if (not (eq? 'UNKNOWN messages))
 	   (begin
 	     (set-file-folder-messages! folder 'UNKNOWN)
-	     (for-each detach-message messages)))))))
+	     (for-each detach-message! messages)))))))
 
 (define-method folder-presentation-name ((folder <file-folder>))
   (url-body (folder-url folder)))
@@ -128,7 +128,7 @@
        (cond ((not (pair? messages))
 	      (set-file-folder-messages! folder (reverse! messages*)))
 	     ((message-deleted? (car messages))
-	      (detach-message (car messages))
+	      (detach-message! (car messages))
 	      (folder-modified! folder)
 	      (loop (cdr messages) index messages*))
 	     (else
diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index aebed779d..741ef7f6d 100644
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.22 2000/05/03 19:29:42 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.23 2000/05/08 18:51:36 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -84,7 +84,7 @@
        (lambda ()
 	 (let ((messages (%file-folder-messages folder)))
 	   (if (not (eq? 'UNKNOWN messages))
-	       (for-each detach-message messages)))
+	       (for-each detach-message! messages)))
 	 (set-file-folder-messages! folder '())))
       (call-with-binary-input-file pathname
 	(lambda (port)