From: Chris Hanson Date: Fri, 21 Jul 2000 19:22:15 +0000 (+0000) Subject: Fix bug: allow user to specify no confirmation. X-Git-Tag: 20090517-FFI~3325 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d33469ba029d5b24f2a26e3cc36be55285b80d89;p=mit-scheme.git Fix bug: allow user to specify no confirmation. --- 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 ()