From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 May 2000 21:12:14 +0000 (+0000)
Subject: M-x imail-expunge should not use the navigator abstraction.
X-Git-Tag: 20090517-FFI~3781
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a8433eee9a8354d25a14a9bda9e79a7a4c3cb2b6;p=mit-scheme.git

M-x imail-expunge should not use the navigator abstraction.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 49dfbdbe5..2f8a849e7 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.74 2000/05/19 20:57:56 cph Exp $
+;;; $Id: imail-top.scm,v 1.75 2000/05/19 21:12:14 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -775,10 +775,10 @@ With prefix argument N, undeletes backward N messages,
 	  (message
 	   (let ((message (selected-message)))
 	     (if (message-deleted? message)
-		 (or (navigator/next-message message message-undeleted?)
-		     (navigator/previous-message message message-undeleted?)
-		     (navigator/next-message message)
-		     (navigator/previous-message message))
+		 (or (next-message message message-undeleted?)
+		     (previous-message message message-undeleted?)
+		     (next-message message)
+		     (previous-message message))
 		 message))))
       (expunge-deleted-messages folder)
       (select-message folder message))))