From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 21 May 2001 20:48:11 +0000 (+0000)
Subject: Fix bug: missing alternative in conditional was causing prompt to have
X-Git-Tag: 20090517-FFI~2811
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c0f88562d91ca8aee66759c126e7cb85271d3abf;p=mit-scheme.git

Fix bug: missing alternative in conditional was causing prompt to have
random default value.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 5ab3b2850..f9bc2b94a 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.241 2001/05/18 01:01:47 cph Exp $
+;;; $Id: imail-top.scm,v 1.242 2001/05/21 20:48:11 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -953,16 +953,16 @@ With prefix argument, prompt even when point is on an attachment."
 			 (predicate (car i.m))))))))
 	  (if (pair? alist)
 	      (if (or (pair? (cdr alist)) always-prompt?)
-		  (prompt-for-alist-value prompt
-					  alist
-					  (and info
-					       (let loop ((alist alist))
-						 (if (pair? alist)
-						     (if (eq? (cadar alist)
-							      info)
-							 (caar alist)
-							 (loop (cdr alist))))))
-					  #f)
+		  (prompt-for-alist-value
+		   prompt
+		   alist
+		   (and info
+			(let loop ((alist alist))
+			  (and (pair? alist)
+			       (if (eq? (cadar alist) info)
+				   (caar alist)
+				   (loop (cdr alist))))))
+		   #f)
 		  (cdar alist))
 	      (editor-error "This message has no attachments."))))))