readtty
return readtty(pr, cp);
extract(readtty("To: ", detract(hp->h_to, 0)), GTO);
hp->h_subject = readtty("Subject: ", hp->h_subject);
extract(readtty("Cc: ", detract(hp->h_cc, 0)), GCC);
extract(readtty("Bcc: ", detract(hp->h_bcc, 0)), GBCC);
shextract(readtty("Smopts: ", detract(hp->h_smopts, 0)),