Eliminate INSERT-MESSAGE, which isn't supported by IMAP and isn't

needed.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index a6791c1121823f234ef525f5eae7e325d0c4f6bb..cfbdeecca020e063bcf7cfc65230a91a0a3df640 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.28 2000/04/14 01:45:34 cph Exp $
+;;; $Id: imail-core.scm,v 1.29 2000/04/18 21:20:00 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -278,18 +278,6 @@
 
 (define-generic %get-message (folder index))
 \f
-;; Insert a copy of MESSAGE in FOLDER at INDEX; pre-existing messages
-;; with indices of INDEX or higher have their indices incremented.
-;; Unspecified result.
-(define (insert-message folder index message)
-  (guarantee-index index 'INSERT-MESSAGE)
-  (if (not (<= index (folder-length folder)))
-      (error:bad-range-argument index 'INSERT-MESSAGE))
-  (guarantee-message message 'INSERT-MESSAGE)
-  (%insert-message folder index message))
-
-(define-generic %insert-message (folder index message))
-
 ;;; Insert a copy of MESSAGE in FOLDER at the end of the existing
 ;;; messages.  Unspecified result.
 (define (append-message folder message)

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index c3ba404030171c09c6b5aba6d3b41a12c2d10fae..243101d2975f9dc7befd02b0c19c466517819540 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.9 2000/02/07 22:37:21 cph Exp $
+;;; $Id: imail-file.scm,v 1.10 2000/04/18 21:20:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -84,34 +84,6 @@
 (define-method %get-message ((folder <file-folder>) index)
   (list-ref (file-folder-messages folder) index))
 
-(define-method %insert-message ((folder <file-folder>) index message)
-  (let ((message (attach-message message folder)))
-    (set-message-index! message index)
-    (without-interrupts
-     (lambda ()
-       (let ((messages (file-folder-messages folder)))
-        (if (fix:= 0 index)
-            (begin
-              (do ((messages messages (cdr messages))
-                   (index 1 (fix:+ index 1)))
-                  ((not (pair? messages)))
-                (set-message-index! (car messages) index)
-                (message-modified! (car messages)))
-              (set-file-folder-messages! folder (cons message messages)))
-            (let loop ((index* 1) (prev messages) (this (cdr messages)))
-              (if (not (pair? this))
-                  (error:bad-range-argument index 'INSERT-MESSAGE))
-              (if (fix:= index index*)
-                  (begin
-                    (do ((messages this (cdr messages))
-                         (index (fix:+ index 1) (fix:+ index 1)))
-                        ((not (pair? messages)))
-                      (set-message-index! (car messages) index)
-                      (message-modified! (car messages)))
-                    (set-cdr! prev (cons message this)))
-                  (loop (fix:+ index* 1) this (cdr this))))))
-       (message-modified! message)))))
-\f
 (define-method %append-message ((folder <file-folder>) message)
   (let ((message (attach-message message folder)))
     (without-interrupts