From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 19:13:23 +0000 (+0000)
Subject: Fix harmless typo.
X-Git-Tag: 20090517-FFI~3518
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1c428bb3572afdbc98010c5592da8c2f26eed8c8;p=mit-scheme.git

Fix harmless typo.
---

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index df916cdf4..2eefc391f 100644
--- 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)))
 
 (define-key 'imail-summary #\space	'imail-summary-select-message)