From 496c86f6276fcd053eae37179028303a08f19877 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 18 Aug 1992 22:13:27 +0000 Subject: [PATCH] Set mail-default-reply-to so that it prompts for a reply address the first time mail is sent. --- v7/src/6001/make.scm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/v7/src/6001/make.scm b/v7/src/6001/make.scm index f9203e611..ff277b7cf 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.7 1992/08/18 22:05:40 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/make.scm,v 15.8 1992/08/18 22:13:27 cph Exp $ Copyright (c) 1991-92 Massachusetts Institute of Technology @@ -60,6 +60,13 @@ MIT in each case. |# (set-variable-value! edwin-variable$evaluate-in-inferior-repl true) (set-variable-value! edwin-variable$repl-error-decision true) (set-variable-value! version-control true) - (set-variable-value! trim-versions-without-asking true)) + (set-variable-value! trim-versions-without-asking true) + (set-variable-value! + mail-default-reply-to + (lambda () + (let ((reply-to + (prompt-for-string "Please enter an email address for replies"))) + (set-variable-value! mail-default-reply-to reply-to) + reply-to)))) (ge '(student)) \ No newline at end of file -- 2.25.1