Rename DETACH-MESSAGE to DETACH-MESSAGE!.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 2bdc4b49c585c15009776ec10a5d9f2de58f4a7b..cf7e2c3bb74742f1ba0b4e64d845034ac736c4fb 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.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 ad6816c69ff83aa064b6448a8c82b6152fc7b072..7609cbc4fe64cf3684027947f30710f7fec917e5 100644 (file)
--- 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 aebed779d0ee2beaae4693a27934b656cc027b69..741ef7f6d1309b4f71f10ed79723a162326ed125 100644 (file)
--- 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)