From a8433eee9a8354d25a14a9bda9e79a7a4c3cb2b6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 19 May 2000 21:12:14 +0000 Subject: [PATCH] M-x imail-expunge should not use the navigator abstraction. --- v7/src/imail/imail-top.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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)))) -- 2.25.1