From d33469ba029d5b24f2a26e3cc36be55285b80d89 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Jul 2000 19:22:15 +0000
Subject: [PATCH] Fix bug: allow user to specify no confirmation.

---
 v7/src/imail/imail-top.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index ef655ed5c..5b1488f49 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.210 2000/07/11 20:34:59 cph Exp $
+;;; $Id: imail-top.scm,v 1.211 2000/07/21 19:22:15 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -681,9 +681,11 @@ With prefix argument N, undeletes backward N messages,
 					   " marked for deletion")))
 		       (let ((do-prompt
 			      (lambda ()
-				(if (memq 'BRIEF confirmation)
-				    (prompt-for-confirmation? prompt)
-				    (prompt-for-yes-or-no? prompt)))))
+				(cond ((memq 'BRIEF confirmation)
+				       (prompt-for-confirmation? prompt))
+				      ((memq 'VERBOSE confirmation)
+				       (prompt-for-yes-or-no? prompt))
+				      (else #t)))))
 			 (if (memq 'SHOW-MESSAGES confirmation)
 			     (cleanup-pop-up-buffers
 			      (lambda ()
-- 
2.25.1