mailed date in network mail headers - (nf)

[utzoo!decvax!harpo!npoiv!npois!houxm!houxa!houxi!houxz!ihnp4!ixn5c!inuxc!pur-ee!uiucdcs!parsec!kolstad]

#N:parsec:42500001:000:928
parsec!kolstad    Feb 12 22:50:00 1983

I was frustrated at receiving network mail that showed only the time our
system received it.  I added the following lines to 
/usr/src/cmd/ucbmail/send.c .
The purpose is to put a "Mailed: <date>" header on outgoing network mail.
It seems to work fine on our system and has been installed one other place.
=================================================
Old "To:" line print out...

> 		fprintf(fo, "To: "), fmt(hp->h_to, fo), gotcha++;
------------------------------------------------------
Its replacement:

< 	{
<    /* put in the mailed at time if anyone on the network RK 2/3/83 */
< 		int t ; /* added RK 2/3/83 */
< 		char *ctime(), *p; /* added RK 2/3/83 */
< 		t = time(0);	/* added RK 2/3/83 */
< 		fprintf(fo, "To: "); fmt(hp->h_to, fo); gotcha++;
< 		for (p=hp->h_to; *p; p++) {
< 			if(*p == '!' || *p == '@' || *p == ':' || *p == '.') {
< 				fprintf(fo, "Mailed: %s", ctime(&t));
< 				break;
< 			}
< 		}
< 	}