Fix harmless typo.

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index df916cdf4db096d4960af057b58d2a49707d6eb8..2eefc391feae47829608bc8d3db42c278cf48602 100644 (file)
--- a/v7/src/imail/imail-summary.scm
+++ b/v7/src/imail/imail-summary.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-summary.scm,v 1.20 2000/06/15 02:38:05 cph Exp $
+;;; $Id: imail-summary.scm,v 1.21 2000/06/15 19:13:23 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -406,9 +406,8 @@ with some additions to make navigation more natural.
   (make-event-distributor))
 
 (define (imail-summary-revert-buffer buffer dont-use-auto-save? dont-confirm?)
-  dont-use-auto-save? dont-confirm?
-  (if (or dont-confirm?
-         (prompt-for-yes-or-no? "Revert summary buffer"))
+  dont-use-auto-save?
+  (if (or dont-confirm? (prompt-for-yes-or-no? "Revert summary buffer"))
       (rebuild-imail-summary-buffer buffer)))
 \f
 (define-key 'imail-summary #\space     'imail-summary-select-message)