Delete specialize next/previous message steps.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index ee502f1ad983ef39801497a911dd68caa7ccfb3f..2b1a8c2bf416dc76ec389dd0adae1a215cdd9a0d 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.16 2000/01/20 17:16:40 cph Exp $
+;;; $Id: imail-core.scm,v 1.17 2000/01/20 17:44:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -434,12 +434,6 @@
                 (if (predicate message)
                     message
                     (loop index)))))))))
-
-(define (previous-deleted-message message)
-  (previous-message message message-deleted?))
-
-(define (next-deleted-message message)
-  (next-message message message-deleted?))
 \f
 ;;;; Message flags