From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Aug 1992 23:53:54 +0000 (+0000)
Subject: In MAIL-DEFAULT-REPLY-TO, must use 'INSERTED-DEFAULT because
X-Git-Tag: 20090517-FFI~9085
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7652eb7b02b01c7d29053af51da8bf9c3d2c654f;p=mit-scheme.git

In MAIL-DEFAULT-REPLY-TO, must use 'INSERTED-DEFAULT because
otherwise it is impossible to return null string.
---

diff --git a/v7/src/6001/make.scm b/v7/src/6001/make.scm
index 15de23dce..1c5162708 100644
--- a/v7/src/6001/make.scm
+++ b/v7/src/6001/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/make.scm,v 15.11 1992/08/19 17:24:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/make.scm,v 15.12 1992/08/21 23:53:54 cph Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -67,7 +67,8 @@ MIT in each case. |#
      (lambda ()
        (let ((reply-to
 	      (prompt-for-string "Please enter an email address for replies"
-				 default-reply-to)))
+				 default-reply-to
+				 'INSERTED-DEFAULT)))
 	 (if (string-null? reply-to)
 	     false
 	     (begin