Home | History | Annotate | Line # | Download | only in mail
      1 /*	$NetBSD: send.c,v 1.40 2025/07/09 16:59:54 rillig Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1980, 1993
      5  *	The Regents of the University of California.  All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  * 3. Neither the name of the University nor the names of its contributors
     16  *    may be used to endorse or promote products derived from this software
     17  *    without specific prior written permission.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29  * SUCH DAMAGE.
     30  */
     31 
     32 #include <sys/cdefs.h>
     33 #ifndef lint
     34 #if 0
     35 static char sccsid[] = "@(#)send.c	8.1 (Berkeley) 6/6/93";
     36 #else
     37 __RCSID("$NetBSD: send.c,v 1.40 2025/07/09 16:59:54 rillig Exp $");
     38 #endif
     39 #endif /* not lint */
     40 
     41 #include <assert.h>
     42 
     43 #include "rcv.h"
     44 #include "extern.h"
     45 #ifdef MIME_SUPPORT
     46 #include "mime.h"
     47 #endif
     48 #include "sig.h"
     49 
     50 /*
     51  * Mail -- a mail program
     52  *
     53  * Mail to others.
     54  */
     55 
     56 /*
     57  * compare twwo name structures.  Support for get_smopts.
     58  */
     59 static int
     60 namecmp(struct name *np1, struct name *np2)
     61 {
     62 	for (/*EMPTY*/; np1 && np2; np1 = np1->n_flink, np2 = np2->n_flink) {
     63 		if (strcmp(np1->n_name, np2->n_name) != 0)
     64 			return 1;
     65 	}
     66 	return np1 || np2;
     67 }
     68 
     69 /*
     70  * Get the sendmail options from the smopts list.
     71  */
     72 static struct name *
     73 get_smopts(struct name *to)
     74 {
     75 	struct smopts_s *sp;
     76 	struct name *smargs, *np;
     77 	smargs = NULL;
     78 	for (np = to; np; np = np->n_flink) {
     79 		if ((sp = findsmopts(np->n_name, 0)) == NULL)
     80 			continue;
     81 		if (smargs == NULL)
     82 			smargs = sp->s_smopts;
     83 		else if (namecmp(smargs, sp->s_smopts) != 0)
     84 			return NULL;
     85 	}
     86 	if (smargs &&
     87 	    smargs->n_flink == NULL &&
     88 	    (smargs->n_name == NULL || smargs->n_name[0] == '\0'))
     89 		return NULL;
     90 	return smargs;
     91 }
     92 
     93 /*
     94  * Output a reasonable looking status field.
     95  */
     96 static void
     97 statusput(struct message *mp, FILE *obuf, const char *prefix)
     98 {
     99 	char statout[3];
    100 	char *cp = statout;
    101 
    102 	if (mp->m_flag & MREAD)
    103 		*cp++ = 'R';
    104 	if ((mp->m_flag & MNEW) == 0)
    105 		*cp++ = 'O';
    106 	*cp = 0;
    107 	if (statout[0])
    108 		(void)fprintf(obuf, "%sStatus: %s\n",
    109 			prefix == NULL ? "" : prefix, statout);
    110 }
    111 
    112 /*
    113  * Send message described by the passed pointer to the
    114  * passed output buffer.  Return -1 on error.
    115  * Adjust the status: field if need be.
    116  * If doign is given, suppress ignored header fields.
    117  * prefix is a string to prepend to each output line.
    118  */
    119 PUBLIC int
    120 sendmessage(struct message *mp, FILE *obuf, struct ignoretab *doign,
    121     const char *prefix, struct mime_info *mip)
    122 {
    123 	off_t len;
    124 	FILE *ibuf;
    125 	char line[LINESIZE];
    126 	int isheadflag, infld, ignoring, dostat, firstline;
    127 	char *cp;
    128 	size_t prefixlen;
    129 	size_t linelen;
    130 	int rval;
    131 
    132 	ignoring = 0;
    133 	prefixlen = 0;
    134 	rval = -1;
    135 
    136 	/*
    137 	 * Compute the prefix string, without trailing whitespace
    138 	 */
    139 	if (prefix != NULL) {
    140 		const char *dp, *dp2 = NULL;
    141 		for (dp = prefix; *dp; dp++)
    142 			if (!is_WSP(*dp))
    143 				dp2 = dp;
    144 		prefixlen = dp2 == 0 ? 0 : dp2 - prefix + 1;
    145 	}
    146 	ibuf = setinput(mp);
    147 	len = mp->m_size;
    148 	isheadflag = 1;
    149 	dostat = doign == 0 || !isign("status", doign);
    150 	infld = 0;
    151 	firstline = 1;
    152 
    153 	sig_check();
    154 	/*
    155 	 * Process headers first
    156 	 */
    157 #ifdef MIME_SUPPORT
    158 	if (mip)
    159 		obuf = mime_decode_header(mip);
    160 #endif
    161 	while (len > 0 && isheadflag) {
    162 		sig_check();
    163 		if (fgets(line, (int)sizeof(line), ibuf) == NULL)
    164 			break;
    165 		len -= linelen = strlen(line);
    166 		if (firstline) {
    167 			/*
    168 			 * First line is the From line, so no headers
    169 			 * there to worry about
    170 			 */
    171 			firstline = 0;
    172 			ignoring = doign == ignoreall || doign == bouncetab;
    173 #ifdef MIME_SUPPORT
    174 			/* XXX - ignore multipart boundary lines! */
    175 			if (line[0] == '-' && line[1] == '-')
    176 				ignoring = 1;
    177 #endif
    178 		} else if (line[0] == '\n') {
    179 			/*
    180 			 * If line is blank, we've reached end of
    181 			 * headers, so force out status: field
    182 			 * and note that we are no longer in header
    183 			 * fields
    184 			 */
    185 			if (dostat) {
    186 				statusput(mp, obuf, prefix);
    187 				dostat = 0;
    188 			}
    189 			isheadflag = 0;
    190 			ignoring = doign == ignoreall;
    191 		} else if (infld && is_WSP(line[0])) {
    192 			/*
    193 			 * If this line is a continuation (via space or tab)
    194 			 * of a previous header field, just echo it
    195 			 * (unless the field should be ignored).
    196 			 * In other words, nothing to do.
    197 			 */
    198 		} else {
    199 			/*
    200 			 * Pick up the header field if we have one.
    201 			 */
    202 			char *save_cp;
    203 			for (cp = line; *cp && *cp != ':' && !is_WSP(*cp); cp++)
    204 				continue;
    205 			save_cp = cp;
    206 			cp = skip_WSP(cp);
    207 			if (*cp++ != ':') {
    208 				/*
    209 				 * Not a header line, force out status:
    210 				 * This happens in uucp style mail where
    211 				 * there are no headers at all.
    212 				 */
    213 				if (dostat) {
    214 					statusput(mp, obuf, prefix);
    215 					dostat = 0;
    216 				}
    217 				if (doign != ignoreall)
    218 					/* add blank line */
    219 					(void)putc('\n', obuf);
    220 				isheadflag = 0;
    221 				ignoring = 0;
    222 			} else {
    223 				/*
    224 				 * If it is an ignored field and
    225 				 * we care about such things, skip it.
    226 				 */
    227 				int save_c;
    228 				save_c = *save_cp;
    229 				*save_cp = 0;	/* temporarily null terminate */
    230 				if (doign && isign(line, doign))
    231 					ignoring = 1;
    232 				else if ((line[0] == 's' || line[0] == 'S') &&
    233 					 strcasecmp(line, "status") == 0) {
    234 					/*
    235 					 * If the field is "status," go compute
    236 					 * and print the real Status: field
    237 					 */
    238 					if (dostat) {
    239 						statusput(mp, obuf, prefix);
    240 						dostat = 0;
    241 					}
    242 					ignoring = 1;
    243 				} else {
    244 					ignoring = 0;
    245 				}
    246 				infld = 1;
    247 				*save_cp = save_c;	/* restore the line */
    248 			}
    249 		}
    250 		if (!ignoring) {
    251 			/*
    252 			 * Strip trailing whitespace from prefix
    253 			 * if line is blank.
    254 			 */
    255 			if (prefix != NULL) {
    256 				if (linelen > 1)
    257 					(void)fputs(prefix, obuf);
    258 				else
    259 					(void)fwrite(prefix, sizeof(*prefix),
    260 							prefixlen, obuf);
    261 			}
    262 			(void)fwrite(line, sizeof(*line), linelen, obuf);
    263 			if (ferror(obuf))
    264 				goto out;
    265 		}
    266 	}
    267 	sig_check();
    268 
    269 	/*
    270 	 * Copy out message body
    271 	 */
    272 #ifdef MIME_SUPPORT
    273 	if (mip) {
    274 		obuf = mime_decode_body(mip);
    275 		sig_check();
    276 		if (obuf == NULL) { /* XXX - early out */
    277 			rval = 0;
    278 			goto out;
    279 		}
    280 	}
    281 #endif
    282 	if (doign == ignoreall)
    283 		len--;		/* skip final blank line */
    284 
    285 	linelen = 0;		/* needed for in case len == 0 */
    286 	if (prefix != NULL) {
    287 		while (len > 0) {
    288 			sig_check();
    289 			if (fgets(line, (int)sizeof(line), ibuf) == NULL) {
    290 				linelen = 0;
    291 				break;
    292 			}
    293 			len -= linelen = strlen(line);
    294 			/*
    295 			 * Strip trailing whitespace from prefix
    296 			 * if line is blank.
    297 			 */
    298 			if (linelen > 1)
    299 				(void)fputs(prefix, obuf);
    300 			else
    301 				(void)fwrite(prefix, sizeof(*prefix),
    302 						prefixlen, obuf);
    303 			(void)fwrite(line, sizeof(*line), linelen, obuf);
    304 			if (ferror(obuf))
    305 				goto out;
    306 		}
    307 	}
    308 	else {
    309 		while (len > 0) {
    310 			sig_check();
    311 			linelen = (size_t)len < sizeof(line) ? (size_t)len : sizeof(line);
    312 			if ((linelen = fread(line, sizeof(*line), linelen, ibuf)) == 0) {
    313 				break;
    314 			}
    315 			len -= linelen;
    316 			if (fwrite(line, sizeof(*line), linelen, obuf) != linelen)
    317 				goto out;
    318 		}
    319 	}
    320 	sig_check();
    321 	if (doign == ignoreall && linelen > 0 && line[linelen - 1] != '\n') {
    322 		int c;
    323 
    324 		/* no final blank line */
    325 		if ((c = getc(ibuf)) != EOF && putc(c, obuf) == EOF)
    326 			goto out;
    327 	}
    328 	rval = 0;
    329  out:
    330 	sig_check();
    331 	return rval;
    332 }
    333 
    334 /*
    335  * Fix the header by glopping all of the expanded names from
    336  * the distribution list into the appropriate fields.
    337  */
    338 static void
    339 fixhead(struct header *hp, struct name *tolist)
    340 {
    341 	struct name *np;
    342 
    343 	hp->h_to = NULL;
    344 	hp->h_cc = NULL;
    345 	hp->h_bcc = NULL;
    346 	for (np = tolist; np != NULL; np = np->n_flink) {
    347 		if (np->n_type & GDEL)
    348 			continue;	/* Don't copy deleted addresses to the header */
    349 		if ((np->n_type & GMASK) == GTO)
    350 			hp->h_to =
    351 				cat(hp->h_to, nalloc(np->n_name, np->n_type));
    352 		else if ((np->n_type & GMASK) == GCC)
    353 			hp->h_cc =
    354 				cat(hp->h_cc, nalloc(np->n_name, np->n_type));
    355 		else if ((np->n_type & GMASK) == GBCC)
    356 			hp->h_bcc =
    357 				cat(hp->h_bcc, nalloc(np->n_name, np->n_type));
    358 	}
    359 }
    360 
    361 /*
    362  * Format the given header line to not exceed 72 characters.
    363  */
    364 static void
    365 fmt(const char *str, struct name *np, FILE *fo, size_t comma)
    366 {
    367 	size_t col;
    368 	size_t len;
    369 
    370 	comma = comma ? 1 : 0;
    371 	col = strlen(str);
    372 	if (col)
    373 		(void)fputs(str, fo);
    374 	for (/*EMPTY*/; np != NULL; np = np->n_flink) {
    375 		if (np->n_flink == NULL)
    376 			comma = 0;
    377 		len = strlen(np->n_name);
    378 		col++;		/* for the space */
    379 		if (col + len + comma > 72 && col > 4) {
    380 			(void)fputs("\n    ", fo);
    381 			col = 4;
    382 		} else
    383 			(void)putc(' ', fo);
    384 		(void)fputs(np->n_name, fo);
    385 		if (comma)
    386 			(void)putc(',', fo);
    387 		col += len + comma;
    388 	}
    389 	(void)putc('\n', fo);
    390 }
    391 
    392 /*
    393  * Formatting for extra_header lines: try to wrap them before 72
    394  * characters.
    395  *
    396  * XXX - should this allow for quoting?
    397  */
    398 static void
    399 fmt2(const char *str, FILE *fo)
    400 {
    401 	const char *p;
    402 	size_t col;
    403 
    404 	col = 0;
    405 	p = strchr(str, ':');
    406 	assert(p != NULL);	/* this is a coding error */
    407 
    408 	while (str <= p) {	/* output the header name */
    409 		(void)putc(*str, fo);
    410 		str++;
    411 		col++;
    412 	}
    413 	assert(is_WSP(*str));	/* this is a coding error */
    414 
    415 	(void)putc(' ', fo);	/* output a single space after the ':' */
    416 	str = skip_WSP(str);
    417 
    418 	while (*str != '\0') {
    419 		if (p <= str) {
    420 			p = strpbrk(str, " \t");
    421 			if (p == NULL)
    422 				p = str + strlen(str);
    423 			if (col + (p - str) > 72 && col > 4) {
    424 				(void)fputs("\n    ", fo);
    425 				col = 4;
    426 				str = skip_WSP(str);
    427 				continue;
    428 			}
    429 		}
    430 		(void)putc(*str, fo);
    431 		str++;
    432 		col++;
    433 	}
    434 	(void)putc('\n', fo);
    435 }
    436 
    437 /*
    438  * Dump the to, subject, cc header on the
    439  * passed file buffer.
    440  */
    441 PUBLIC int
    442 puthead(struct header *hp, FILE *fo, int w)
    443 {
    444 	struct name *np;
    445 	int gotcha;
    446 
    447 	gotcha = 0;
    448 	if (hp->h_to != NULL && w & GTO)
    449 		fmt("To:", hp->h_to, fo, w & GCOMMA), gotcha++;
    450 	if (hp->h_subject != NULL && w & GSUBJECT)
    451 		(void)fprintf(fo, "Subject: %s\n", hp->h_subject), gotcha++;
    452 	if (hp->h_cc != NULL && w & GCC)
    453 		fmt("Cc:", hp->h_cc, fo, w & GCOMMA), gotcha++;
    454 	if (hp->h_bcc != NULL && w & GBCC)
    455 		fmt("Bcc:", hp->h_bcc, fo, w & GCOMMA), gotcha++;
    456 	if (hp->h_in_reply_to != NULL && w & GMISC)
    457 		(void)fprintf(fo, "In-Reply-To: %s\n", hp->h_in_reply_to), gotcha++;
    458 	if (hp->h_references != NULL && w & GMISC)
    459 		fmt("References:", hp->h_references, fo, w & GCOMMA), gotcha++;
    460 	if (hp->h_extra != NULL && w & GMISC) {
    461 		for (np = hp->h_extra; np != NULL; np = np->n_flink)
    462 			fmt2(np->n_name, fo);
    463 		gotcha++;
    464 	}
    465 	if (hp->h_smopts != NULL && w & GSMOPTS)
    466 		(void)fprintf(fo, "(sendmail options: %s)\n", detract(hp->h_smopts, GSMOPTS)), gotcha++;
    467 #ifdef MIME_SUPPORT
    468 	if (w & GMIME && (hp->h_attach || value(ENAME_MIME_ENCODE_MSG)))
    469 		mime_putheader(fo, hp), gotcha++;
    470 #endif
    471 	if (gotcha && w & GNL)
    472 		(void)putc('\n', fo);
    473 	return 0;
    474 }
    475 
    476 /*
    477  * Prepend a header in front of the collected stuff
    478  * and return the new file.
    479  */
    480 static FILE *
    481 infix(struct header *hp, FILE *fi)
    482 {
    483 	FILE *nfo, *nfi;
    484 	int c, fd;
    485 	char tempname[PATHSIZE];
    486 
    487 	(void)snprintf(tempname, sizeof(tempname),
    488 	    "%s/mail.RsXXXXXXXXXX", tmpdir);
    489 	if ((fd = mkstemp(tempname)) == -1 ||
    490 	    (nfo = Fdopen(fd, "wef")) == NULL) {
    491 		if (fd != -1)
    492 			(void)close(fd);
    493 		warn("%s", tempname);
    494 		return fi;
    495 	}
    496 	if ((nfi = Fopen(tempname, "ref")) == NULL) {
    497 		warn("%s", tempname);
    498 		(void)Fclose(nfo);
    499 		(void)rm(tempname);
    500 		return fi;
    501 	}
    502 	(void)rm(tempname);
    503 	(void)puthead(hp, nfo,
    504 	    GTO | GSUBJECT | GCC | GBCC | GMISC | GNL | GCOMMA
    505 #ifdef MIME_SUPPORT
    506 	    | GMIME
    507 #endif
    508 		);
    509 
    510 	c = getc(fi);
    511 	while (c != EOF) {
    512 		(void)putc(c, nfo);
    513 		c = getc(fi);
    514 	}
    515 	if (ferror(fi)) {
    516 		warn("read");
    517 		rewind(fi);
    518 		return fi;
    519 	}
    520 	(void)fflush(nfo);
    521 	if (ferror(nfo)) {
    522 		warn("%s", tempname);
    523 		(void)Fclose(nfo);
    524 		(void)Fclose(nfi);
    525 		rewind(fi);
    526 		return fi;
    527 	}
    528 	(void)Fclose(nfo);
    529 	(void)Fclose(fi);
    530 	rewind(nfi);
    531 	return nfi;
    532 }
    533 
    534 /*
    535  * Save the outgoing mail on the passed file.
    536  *
    537  * Take care not to save a valid headline or the mbox file will be
    538  * broken.  Prefix valid headlines with '>'.
    539  *
    540  * Note: most servers prefix any line starting with "From " in the
    541  * body of the message.  We are more restrictive to avoid header/body
    542  * issues.
    543  */
    544 /*ARGSUSED*/
    545 static int
    546 savemail(const char name[], FILE *fi)
    547 {
    548 	FILE *fo;
    549 	time_t now;
    550 	mode_t m;
    551 	char *line;
    552 	size_t linelen;
    553 	int afterblank;
    554 
    555 	m = umask(077);
    556 	fo = Fopen(name, "aef");
    557 	(void)umask(m);
    558 	if (fo == NULL) {
    559 		warn("%s", name);
    560 		return -1;
    561 	}
    562 	(void)time(&now);
    563 	(void)fprintf(fo, "From %s %s", myname, ctime(&now));
    564 	afterblank = 0;
    565 	while ((line = fgetln(fi, &linelen)) != NULL) {
    566 		char c, *cp;
    567 		cp = line + linelen - 1;
    568 		if (afterblank &&
    569 		    linelen > sizeof("From . Aaa Aaa O0 00:00 0000") &&
    570 		    line[0] == 'F' &&
    571 		    line[1] == 'r' &&
    572 		    line[2] == 'o' &&
    573 		    line[3] == 'm' &&
    574 		    line[4] == ' ' &&
    575 		    *cp == '\n') {
    576 			c = *cp;
    577 			*cp = '\0';
    578 			if (ishead(line))
    579 				(void)fputc('>', fo);
    580 			*cp = c;
    581 		}
    582 		(void)fwrite(line, 1, linelen, fo);
    583 		afterblank = linelen == 1 && line[0] == '\n';
    584 	}
    585 	(void)putc('\n', fo);
    586 	(void)fflush(fo);
    587 	if (ferror(fo))
    588 		warn("%s", name);
    589 	(void)Fclose(fo);
    590 	rewind(fi);
    591 	return 0;
    592 }
    593 
    594 /*
    595  * Mail a message that is already prepared in a file.
    596  */
    597 PUBLIC void
    598 mail2(FILE *mtf, const char **namelist)
    599 {
    600 	int pid;
    601 	const char *cp;
    602 
    603 	if (debug) {
    604 		const char **t;
    605 
    606 		(void)printf("Sendmail arguments:");
    607 		for (t = namelist; *t != NULL; t++)
    608 			(void)printf(" \"%s\"", *t);
    609 		(void)printf("\n");
    610 		return;
    611 	}
    612 	if ((cp = value(ENAME_RECORD)) != NULL)
    613 		(void)savemail(expand(cp), mtf);
    614 	/*
    615 	 * Fork, set up the temporary mail file as standard
    616 	 * input for "mail", and exec with the user list we generated
    617 	 * far above.
    618 	 */
    619 	pid = fork();
    620 	switch (pid) {
    621 	case -1:
    622 		warn("fork");
    623 		savedeadletter(mtf);
    624 		return;
    625 	case 0:
    626 	{
    627 		sigset_t nset;
    628 		(void)sigemptyset(&nset);
    629 		(void)sigaddset(&nset, SIGHUP);
    630 		(void)sigaddset(&nset, SIGINT);
    631 		(void)sigaddset(&nset, SIGQUIT);
    632 		(void)sigaddset(&nset, SIGTSTP);
    633 		(void)sigaddset(&nset, SIGTTIN);
    634 		(void)sigaddset(&nset, SIGTTOU);
    635 		prepare_child(&nset, fileno(mtf), -1);
    636 		if ((cp = value(ENAME_SENDMAIL)) != NULL)
    637 			cp = expand(cp);
    638 		else
    639 			cp = _PATH_SENDMAIL;
    640 		(void)execv(cp, (char *const *)__UNCONST(namelist));
    641 		warn("%s", cp);
    642 		_exit(1);
    643 	}
    644 	default:
    645 		if (value(ENAME_VERBOSE) != NULL)
    646 			(void)wait_child(pid);
    647 		else
    648 			free_child(pid);
    649 		break;
    650 	}
    651 }
    652 
    653 static struct name *
    654 ncopy(struct name *np)
    655 {
    656 	struct name *rv;
    657 	struct name *lp;
    658 	struct name *tp;
    659 
    660 	lp = NULL; /* XXX gcc -Wuninitialized sh3 */
    661 	rv = NULL;
    662 	for (/*EMPTY*/; np; np = np->n_flink) {
    663 		tp = nalloc(np->n_name, np->n_type);
    664 		if (rv == NULL)
    665 			rv = tp;
    666 		else {
    667 			lp->n_flink = tp;
    668 			tp->n_blink = lp;
    669 		}
    670 		lp = tp;
    671 	}
    672 	return rv;
    673 }
    674 
    675 /*
    676  * Mail a message on standard input to the people indicated
    677  * in the passed header.  (Internal interface).
    678  */
    679 PUBLIC void
    680 mail1(struct header *hp, int printheaders)
    681 {
    682 	const char **namelist;
    683 	struct name *to;
    684 	FILE *mtf;
    685 
    686 	/*
    687 	 * Collect user's mail from standard input.
    688 	 * Get the result as mtf.
    689 	 */
    690 	if ((mtf = collect(hp, printheaders)) == NULL)
    691 		return;
    692 
    693 	/*
    694 	 * Grab any extra header lines.  Do this after collect() so
    695 	 * that we can add header lines while collecting.
    696 	 */
    697 	hp->h_extra = ncopy(extra_headers);
    698 
    699 	if (value(ENAME_INTERACTIVE) != NULL) {
    700 		if (value(ENAME_ASKCC) != NULL || value(ENAME_ASKBCC) != NULL) {
    701 			if (value(ENAME_ASKCC) != NULL)
    702 				(void)grabh(hp, GCC);
    703 			if (value(ENAME_ASKBCC) != NULL)
    704 				(void)grabh(hp, GBCC);
    705 		} else {
    706 			(void)printf("EOT\n");
    707 			(void)fflush(stdout);
    708 		}
    709 	}
    710 	if (fsize(mtf) == 0) {
    711 		if (value(ENAME_DONTSENDEMPTY) != NULL)
    712 			goto out;
    713 		if (hp->h_subject == NULL)
    714 			(void)printf("No message, no subject; hope that's ok\n");
    715 		else
    716 			(void)printf("Null message body; hope that's ok\n");
    717 	}
    718 	/*
    719 	 * Now, take the user names from the combined
    720 	 * to and cc lists and do all the alias
    721 	 * processing.
    722 	 */
    723 	senderr = 0;
    724 	to = usermap(cat(hp->h_bcc, cat(hp->h_to, hp->h_cc)));
    725 	if (to == NULL) {
    726 		(void)printf("No recipients specified\n");
    727 		senderr++;
    728 	}
    729 #ifdef MIME_SUPPORT
    730 	/*
    731 	 * If there are attachments, repackage the mail as a
    732 	 * multi-part MIME message.
    733 	 */
    734 	if (hp->h_attach || value(ENAME_MIME_ENCODE_MSG))
    735 		mtf = mime_encode(mtf, hp);
    736 #endif
    737 	/*
    738 	 * Look through the recipient list for names with /'s
    739 	 * in them which we write to as files directly.
    740 	 */
    741 	to = outof(to, mtf, hp);
    742 	if (senderr)
    743 		savedeadletter(mtf);
    744 	to = elide(to);
    745 	if (count(to) == 0)
    746 		goto out;
    747 	fixhead(hp, to);
    748 	if ((mtf = infix(hp, mtf)) == NULL) {
    749 		(void)fprintf(stderr, ". . . message lost, sorry.\n");
    750 		return;
    751 	}
    752 	if (hp->h_smopts == NULL) {
    753 		hp->h_smopts = get_smopts(to);
    754 		if (hp->h_smopts != NULL &&
    755 		    hp->h_smopts->n_name[0] != '\0' &&
    756 		    value(ENAME_SMOPTS_VERIFY) != NULL)
    757 			if (grabh(hp, GSMOPTS)) {
    758 				(void)printf("mail aborted!\n");
    759 				savedeadletter(mtf);
    760 				goto out;
    761 			}
    762 	}
    763 	namelist = unpack(hp->h_smopts, to);
    764 	mail2(mtf, namelist);
    765  out:
    766 	(void)Fclose(mtf);
    767 }
    768 
    769 /*
    770  * Interface between the argument list and the mail1 routine
    771  * which does all the dirty work.
    772  */
    773 PUBLIC int
    774 mail(struct name *to, struct name *cc, struct name *bcc,
    775      struct name *smopts, char *subject, struct attachment *attach)
    776 {
    777 	struct header head;
    778 
    779 	/* ensure that all header fields are initially NULL */
    780 	(void)memset(&head, 0, sizeof(head));
    781 
    782 	head.h_to = to;
    783 	head.h_subject = subject;
    784 	head.h_cc = cc;
    785 	head.h_bcc = bcc;
    786 	head.h_smopts = smopts;
    787 #ifdef MIME_SUPPORT
    788 	head.h_attach = attach;
    789 #endif
    790 	mail1(&head, 0);
    791 	return 0;
    792 }
    793 
    794 /*
    795  * Send mail to a bunch of user names.  The interface is through
    796  * the mail1 routine above.
    797  */
    798 PUBLIC int
    799 sendmail(void *v)
    800 {
    801 	char *str = v;
    802 	struct header head;
    803 
    804 	/* ensure that all header fields are initially NULL */
    805 	(void)memset(&head, 0, sizeof(head));
    806 
    807 	head.h_to = extract(str, GTO);
    808 
    809 	mail1(&head, 0);
    810 	return 0;
    811 }
    812