From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 May 2000 03:57:44 +0000 (+0000)
Subject: Add configurable confirmation for performing EXPUNGE.
X-Git-Tag: 20090517-FFI~3718
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b1e29d2852b1a532063409e047adcfd536dc970;p=mit-scheme.git

Add configurable confirmation for performing EXPUNGE.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 29c376726..f801bbbd4 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.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 2dabc02d1..5b9e848cf 100644
--- 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.