49 static void		fmt(register char *str, register FILE *fo);
652 puthead(struct header *hp, FILE *fo, int w, long clen)  in puthead()  argument
658 		fprintf(fo, "To: "), fmt(hp->h_to, fo), gotcha++;  in puthead()
661 			fprintf(fo, "Subject: %s\n", hp->h_subject), gotcha++;  in puthead()
664 				fprintf(fo, "Subject: %s\n", sflag), gotcha++;  in puthead()
666 		fprintf(fo, "Cc: "), fmt(hp->h_cc, fo), gotcha++;  in puthead()
668 		fprintf(fo, "Bcc: "), fmt(hp->h_bcc, fo), gotcha++;  in puthead()
671 			fprintf(fo, "Return-Receipt-To: %s\n",  in puthead()
674 		fprintf(fo, "Default-Options: %s\n", hp->h_defopt), gotcha++;  in puthead()
677 			fprintf(fo, "Subject: %s\n", hp->h_subject), gotcha++;  in puthead()
680 				fprintf(fo, "Subject: %s\n", sflag), gotcha++;  in puthead()
684 			fprintf(fo, "%s\n", *p);  in puthead()
689 		fprintf(fo, "Content-Length: %ld\n", clen), gotcha++;  in puthead()
692 		putc('\n', fo);  in puthead()
700 fmt(register char *str, register FILE *fo)  in fmt()  argument
711 				fputs(",\n    ", fo);  in fmt()
714 				fputs(", ", fo);  in fmt()
718 		fputs(name, fo);  in fmt()
721 	putc('\n', fo);  in fmt()
730 	register FILE *fo;  in savemail()  local
741 	if ((fo = fopen(name, "a")) == NULL) {  in savemail()
749 	fprintf(fo, "From %s %s", n, ctime(&now));  in savemail()
750 	puthead(hp, fo, GMASK|GCLEN, fsize(fi) - textpos);  in savemail()
755 			putc('>', fo);  in savemail()
756 		fputs(line, fo);  in savemail()
760 		putc(c, fo);  in savemail()
762 	putc('\n', fo);  in savemail()
763 	fflush(fo);  in savemail()
764 	if (fferror(fo))  in savemail()
766 	fclose(fo);  in savemail()