50 static void		fmt(register char *str, register FILE *fo);
653 puthead(struct header *hp, FILE *fo, int w, long clen)  in puthead()  argument
659 		fprintf(fo, "To: "), fmt(hp->h_to, fo), gotcha++;  in puthead()
662 			fprintf(fo, "Subject: %s\n", hp->h_subject), gotcha++;  in puthead()
665 				fprintf(fo, "Subject: %s\n", sflag), gotcha++;  in puthead()
667 		fprintf(fo, "Cc: "), fmt(hp->h_cc, fo), gotcha++;  in puthead()
669 		fprintf(fo, "Bcc: "), fmt(hp->h_bcc, fo), gotcha++;  in puthead()
672 			fprintf(fo, "Return-Receipt-To: %s\n",  in puthead()
675 		fprintf(fo, "Default-Options: %s\n", hp->h_defopt), gotcha++;  in puthead()
678 			fprintf(fo, "Subject: %s\n", hp->h_subject), gotcha++;  in puthead()
681 				fprintf(fo, "Subject: %s\n", sflag), gotcha++;  in puthead()
685 			fprintf(fo, "%s\n", *p);  in puthead()
690 		fprintf(fo, "Content-Length: %ld\n", clen), gotcha++;  in puthead()
693 		putc('\n', fo);  in puthead()
701 fmt(register char *str, register FILE *fo)  in fmt()  argument
712 				fputs(",\n    ", fo);  in fmt()
715 				fputs(", ", fo);  in fmt()
719 		fputs(name, fo);  in fmt()
722 	putc('\n', fo);  in fmt()
731 	register FILE *fo;  in savemail()  local
742 	if ((fo = fopen(name, "a")) == NULL) {  in savemail()
750 	fprintf(fo, "From %s %s", n, ctime(&now));  in savemail()
751 	puthead(hp, fo, GMASK|GCLEN, fsize(fi) - textpos);  in savemail()
756 			putc('>', fo);  in savemail()
757 		fputs(line, fo);  in savemail()
761 		putc(c, fo);  in savemail()
763 	putc('\n', fo);  in savemail()
764 	fflush(fo);  in savemail()
765 	if (fferror(fo))  in savemail()
767 	fclose(fo);  in savemail()