Add configurable confirmation for performing EXPUNGE.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 29c37672640c889c24d5f7b4e6e6f4aef3c0dd7f..f801bbbd4a112a78caaf3690c9cb96f8fc8ca7f6 100644 (file)
--- 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.94 2000/05/23 03:55:50 cph Exp $
+;;; $Id: imail-top.scm,v 1.95 2000/05/23 03:57:44 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -928,6 +928,7 @@ With prefix argument N, undeletes backward N messages,
 (define (imail-expunge-pop-up-messages folder)
   (pop-up-temporary-buffer " *imail-message*" '(READ-ONLY SHRINK-WINDOW)
     (lambda (buffer window)
+      window
       (local-set-variable! truncate-partial-width-windows #f buffer)
       (let ((mark (mark-left-inserting-copy (buffer-point buffer)))
            (n (folder-length folder)))

diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index 2dabc02d1a0f780d24c0df93eabd4ddab4083c06..5b9e848cf166747cb4bf15d17a4f7c658b1f6fae 100644 (file)
--- a/v7/src/imail/todo.txt
+++ b/v7/src/imail/todo.txt
@@ -1,5 +1,5 @@
 IMAIL To-Do List
-$Id: todo.txt,v 1.41 2000/05/23 03:27:02 cph Exp $
+$Id: todo.txt,v 1.42 2000/05/23 03:55:57 cph Exp $
 
 Bug fixes
 ---------
@@ -43,8 +43,6 @@ New features
 
 * Optionally wrap long lines for presentation.
 
-* Add configurable confirmation for performing EXPUNGE.
-
 * Add command to rename folders.  Add command to append all of the
   messages from one folder to another.