summaryrefslogtreecommitdiff
path: root/mcon/U
diff options
context:
space:
mode:
Diffstat (limited to 'mcon/U')
-rw-r--r--mcon/U/cf_email.U11
1 files changed, 8 insertions, 3 deletions
diff --git a/mcon/U/cf_email.U b/mcon/U/cf_email.U
index caad32e..65c8329 100644
--- a/mcon/U/cf_email.U
+++ b/mcon/U/cf_email.U
@@ -19,7 +19,8 @@
?S: Electronic mail address of the person who ran Configure. This can be
?S: used by units that require the user's e-mail, like MailList.U.
?S:.
-?T:cont
+?T:cont maildomain
+?LINT:extern MAILDOMAIN
: determine the e-mail address of the user who is running us
$cat <<EOM
@@ -32,9 +33,13 @@ your organization...
EOM
cont=x
while test "$cont"; do
+ case "$MAILDOMAIN" in
+ '') maildomain="$myhostname$mydomain";;
+ *) maildomain="$MAILDOMAIN";;
+ esac
case "$cf_email" in
- '') dflt="$cf_by@$myhostname$mydomain";;
- *) dflt="$cf_email";;
+ '') dflt="$cf_by@$maildomain";;
+ *) dflt="$cf_email";;
esac
rp='What is your e-mail address?'
. ./myread