Home | History | Annotate | Line # | Download | only in mail
mime_attach.c revision 1.10.8.1
      1  1.10.8.1       jym /*	$NetBSD: mime_attach.c,v 1.10.8.1 2009/05/13 19:19:56 jym Exp $	*/
      2       1.1  christos 
      3       1.1  christos /*-
      4       1.1  christos  * Copyright (c) 2006 The NetBSD Foundation, Inc.
      5       1.1  christos  * All rights reserved.
      6       1.1  christos  *
      7       1.1  christos  * This code is derived from software contributed to The NetBSD Foundation
      8       1.1  christos  * by Anon Ymous.
      9       1.1  christos  *
     10       1.1  christos  * Redistribution and use in source and binary forms, with or without
     11       1.1  christos  * modification, are permitted provided that the following conditions
     12       1.1  christos  * are met:
     13       1.1  christos  * 1. Redistributions of source code must retain the above copyright
     14       1.1  christos  *    notice, this list of conditions and the following disclaimer.
     15       1.1  christos  * 2. Redistributions in binary form must reproduce the above copyright
     16       1.1  christos  *    notice, this list of conditions and the following disclaimer in the
     17       1.1  christos  *    documentation and/or other materials provided with the distribution.
     18       1.1  christos  *
     19       1.1  christos  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     20       1.1  christos  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     21       1.1  christos  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     22       1.1  christos  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     23       1.1  christos  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     24       1.1  christos  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     25       1.1  christos  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     26       1.1  christos  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     27       1.1  christos  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     28       1.1  christos  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     29       1.1  christos  * POSSIBILITY OF SUCH DAMAGE.
     30       1.1  christos  */
     31       1.1  christos 
     32       1.1  christos #ifdef MIME_SUPPORT
     33       1.1  christos 
     34       1.1  christos #include <sys/cdefs.h>
     35       1.1  christos #ifndef __lint__
     36  1.10.8.1       jym __RCSID("$NetBSD: mime_attach.c,v 1.10.8.1 2009/05/13 19:19:56 jym Exp $");
     37       1.1  christos #endif /* not __lint__ */
     38       1.1  christos 
     39       1.1  christos #include <assert.h>
     40       1.1  christos #include <err.h>
     41       1.1  christos #include <fcntl.h>
     42       1.1  christos #include <libgen.h>
     43       1.1  christos #include <magic.h>
     44       1.1  christos #include <signal.h>
     45       1.1  christos #include <stdio.h>
     46       1.1  christos #include <stdlib.h>
     47       1.1  christos #include <string.h>
     48       1.1  christos #include <unistd.h>
     49       1.1  christos #include <util.h>
     50       1.1  christos 
     51       1.1  christos #include "def.h"
     52       1.1  christos #include "extern.h"
     53       1.1  christos #ifdef USE_EDITLINE
     54       1.1  christos #include "complete.h"
     55       1.1  christos #endif
     56       1.1  christos #ifdef MIME_SUPPORT
     57       1.1  christos #include "mime.h"
     58       1.1  christos #include "mime_codecs.h"
     59       1.1  christos #include "mime_child.h"
     60       1.1  christos #endif
     61       1.1  christos #include "glob.h"
     62  1.10.8.1       jym #include "sig.h"
     63       1.1  christos 
     64       1.1  christos #if 0
     65       1.1  christos /*
     66       1.7  christos  * XXX - This block is for debugging only and eventually should go away.
     67       1.7  christos  */
     68       1.7  christos # define SHOW_ALIST(a,b) show_alist(a,b)
     69       1.7  christos static void
     70       1.7  christos show_alist(struct attachment *alist, struct attachment *ap)
     71       1.7  christos {
     72       1.7  christos 	(void)printf("alist=%p ap=%p\n", alist, ap);
     73       1.7  christos 	for (ap = alist; ap; ap = ap->a_flink) {
     74       1.7  christos 		(void)printf("ap=%p ap->a_flink=%p ap->a_blink=%p ap->a_name=%s\n",
     75       1.7  christos 		    ap, ap->a_flink, ap->a_blink, ap->a_name ? ap->a_name : "<null>");
     76       1.7  christos 	}
     77       1.7  christos }
     78       1.7  christos #else
     79       1.7  christos # define SHOW_ALIST(a,b)
     80       1.7  christos #endif
     81       1.7  christos 
     82       1.7  christos #if 0
     83       1.7  christos #ifndef __lint__ /* Don't lint: the public routines may not be used. */
     84       1.7  christos /*
     85       1.7  christos  * XXX - This block for is debugging only and eventually should go away.
     86       1.1  christos  */
     87       1.1  christos static void
     88       1.1  christos show_name(const char *prefix, struct name *np)
     89       1.1  christos {
     90       1.1  christos 	int i;
     91       1.1  christos 
     92       1.1  christos 	i = 0;
     93       1.5  christos 	for (/*EMPTY*/; np; np = np->n_flink) {
     94       1.1  christos 		(void)printf("%s[%d]: %s\n", prefix, i, np->n_name);
     95       1.1  christos 		i++;
     96       1.1  christos 	}
     97       1.1  christos }
     98       1.1  christos 
     99       1.2  christos static void fput_mime_content(FILE *fp, struct Content *Cp);
    100       1.2  christos 
    101       1.1  christos PUBLIC void
    102       1.1  christos show_attach(const char *prefix, struct attachment *ap)
    103       1.1  christos {
    104       1.1  christos 	int i;
    105       1.1  christos 	i = 1;
    106       1.5  christos 	for (/*EMPTY*/; ap; ap = ap->a_flink) {
    107       1.1  christos 		(void)printf("%s[%d]:\n", prefix, i);
    108       1.1  christos 		fput_mime_content(stdout, &ap->a_Content);
    109       1.1  christos 		i++;
    110       1.1  christos 	}
    111       1.1  christos }
    112       1.1  christos 
    113       1.1  christos PUBLIC void
    114       1.1  christos show_header(struct header *hp)
    115       1.1  christos {
    116       1.1  christos 	show_name("TO", hp->h_to);
    117       1.1  christos 	(void)printf("SUBJECT: %s\n", hp->h_subject);
    118       1.1  christos 	show_name("CC", hp->h_cc);
    119       1.1  christos 	show_name("BCC", hp->h_bcc);
    120       1.1  christos 	show_name("SMOPTS", hp->h_smopts);
    121       1.1  christos 	show_attach("ATTACH", hp->h_attach);
    122       1.1  christos }
    123       1.1  christos #endif	/* __lint__ */
    124       1.1  christos #endif
    125       1.1  christos 
    126       1.1  christos /***************************
    127       1.1  christos  * boundary string routines
    128       1.1  christos  */
    129       1.1  christos static char *
    130       1.1  christos getrandstring(size_t length)
    131       1.1  christos {
    132       1.1  christos 	void *vbin;
    133       1.1  christos 	uint32_t *bin;
    134       1.1  christos 	size_t binlen;
    135       1.1  christos 	size_t i;
    136       1.1  christos 	char *b64;
    137       1.1  christos 
    138       1.1  christos 	/* XXX - check this stuff again!!! */
    139       1.1  christos 
    140       1.1  christos 	binlen = 3 * roundup(length, 4) / 4;	/* bytes of binary to encode base64 */
    141       1.1  christos 	bin = vbin = salloc(roundup(binlen, 4));
    142       1.1  christos 	for (i = 0; i < roundup(binlen, 4) / 4; i++)
    143       1.1  christos 		bin[i] = arc4random();
    144       1.1  christos 
    145       1.1  christos 	b64 = salloc(roundup(length, 4));
    146       1.1  christos 	mime_bintob64(b64, vbin, binlen);
    147       1.1  christos 	b64[length] = '\0';
    148       1.1  christos 
    149       1.1  christos 	return b64;
    150       1.1  christos }
    151       1.1  christos 
    152       1.1  christos /*
    153       1.1  christos  * Generate a boundary for MIME multipart messages.
    154       1.1  christos  */
    155       1.1  christos static char *
    156       1.1  christos make_boundary(void)
    157       1.1  christos {
    158       1.1  christos #define BOUND_LEN 70	/* maximum length is 70 characters: RFC2046 sec 5.1.1 */
    159       1.1  christos 
    160       1.1  christos 	char *bound;
    161       1.1  christos 	time_t	now;
    162       1.1  christos 
    163       1.1  christos 	(void)time(&now);
    164       1.1  christos 	bound = salloc(BOUND_LEN);
    165       1.1  christos 	(void)snprintf(bound, BOUND_LEN, "=_%08lx.%s",
    166       1.1  christos 	    (long)now, getrandstring(BOUND_LEN - 12));
    167       1.1  christos 	return bound;
    168       1.1  christos 
    169       1.1  christos #undef BOUND_LEN
    170       1.1  christos }
    171       1.1  christos 
    172       1.1  christos /***************************
    173       1.1  christos  * Transfer coding routines
    174       1.1  christos  */
    175       1.1  christos /*
    176       1.1  christos  * We determine the recommended transfer encoding type for a file as
    177       1.1  christos  * follows:
    178       1.1  christos  *
    179       1.1  christos  * 1) If there is a NULL byte or a stray CR (not in a CRLF
    180       1.1  christos  *    combination) in the file, play it safe and use base64.
    181       1.1  christos  *
    182       1.1  christos  * 2) If any high bit is set, use quoted-printable if the content type
    183       1.1  christos  *    is "text" and base64 otherwise.
    184       1.1  christos  *
    185       1.1  christos  * 3) Otherwise:
    186       1.1  christos  *    a) use quoted-printable if there are any long lines, control
    187       1.1  christos  *       chars (including CR), end-of-line blank space, or a missing
    188       1.1  christos  *       terminating NL.
    189       1.1  christos  *    b) use 7bit in all remaining case, including an empty file.
    190       1.1  christos  *
    191       1.1  christos  * NOTE: This means that CRLF text (MSDOS) files will be encoded
    192       1.1  christos  * quoted-printable.
    193       1.5  christos  */
    194       1.1  christos /*
    195       1.1  christos  * RFC 821 imposes the following line length limit:
    196       1.1  christos  *  The maximum total length of a text line including the
    197       1.1  christos  *  <CRLF> is 1000 characters (but not counting the leading
    198       1.1  christos  *  dot duplicated for transparency).
    199       1.1  christos  */
    200       1.1  christos #define MIME_UNENCODED_LINE_MAX	(1000 - 2)
    201       1.1  christos static size_t
    202       1.1  christos line_limit(void)
    203       1.1  christos {
    204       1.1  christos 	int limit;
    205       1.1  christos 	const char *cp;
    206       1.1  christos 	limit = -1;
    207       1.1  christos 
    208       1.1  christos 	if ((cp = value(ENAME_MIME_UNENC_LINE_MAX)) != NULL)
    209       1.1  christos 		limit = atoi(cp);
    210       1.1  christos 
    211       1.1  christos 	if (limit < 0 || limit > MIME_UNENCODED_LINE_MAX)
    212       1.1  christos 		limit = MIME_UNENCODED_LINE_MAX;
    213       1.1  christos 
    214       1.1  christos 	return (size_t)limit;
    215       1.1  christos }
    216       1.1  christos 
    217       1.3  christos static inline int
    218       1.3  christos is_text(const char *ctype)
    219       1.1  christos {
    220       1.1  christos 	return ctype &&
    221       1.1  christos 	    strncasecmp(ctype, "text/", sizeof("text/") - 1) == 0;
    222       1.1  christos }
    223       1.1  christos 
    224       1.1  christos static const char *
    225       1.1  christos content_encoding_core(void *fh, const char *ctype)
    226       1.1  christos {
    227       1.1  christos 	int c, lastc;
    228       1.1  christos 	int ctrlchar, endwhite;
    229       1.1  christos 	size_t curlen, maxlen;
    230       1.5  christos 
    231       1.1  christos 	curlen = 0;
    232       1.1  christos 	maxlen = 0;
    233       1.1  christos 	ctrlchar = 0;
    234       1.1  christos 	endwhite = 0;
    235       1.1  christos 	lastc = EOF;
    236       1.1  christos 	while ((c = fgetc(fh)) != EOF) {
    237       1.1  christos 		curlen++;
    238       1.5  christos 
    239       1.1  christos 		if (c == '\0' || (lastc == '\r' && c != '\n'))
    240       1.1  christos 			return MIME_TRANSFER_BASE64;
    241       1.1  christos 
    242       1.1  christos 		if (c > 0x7f) {
    243       1.1  christos 			if (is_text(ctype))
    244       1.1  christos 				return MIME_TRANSFER_QUOTED;
    245       1.1  christos 			else
    246       1.1  christos 				return MIME_TRANSFER_BASE64;
    247       1.1  christos 		}
    248       1.1  christos 		if (c == '\n') {
    249       1.5  christos 			if (is_WSP(lastc))
    250       1.1  christos 				endwhite = 1;
    251       1.1  christos 			if (curlen > maxlen)
    252       1.1  christos 				maxlen = curlen;
    253       1.1  christos 			curlen = 0;
    254       1.1  christos 		}
    255       1.1  christos 		else if ((c < 0x20 && c != '\t') || c == 0x7f)
    256       1.1  christos 			ctrlchar = 1;
    257       1.5  christos 
    258       1.1  christos 		lastc = c;
    259       1.1  christos 	}
    260       1.1  christos 	if (lastc == EOF) /* no characters read */
    261       1.1  christos 		return MIME_TRANSFER_7BIT;
    262       1.1  christos 
    263       1.1  christos 	if (lastc != '\n' || ctrlchar || endwhite || maxlen > line_limit())
    264       1.1  christos 		return MIME_TRANSFER_QUOTED;
    265       1.1  christos 
    266       1.1  christos 	return MIME_TRANSFER_7BIT;
    267       1.1  christos }
    268       1.1  christos 
    269       1.1  christos static const char *
    270       1.1  christos content_encoding_by_name(const char *filename, const char *ctype)
    271       1.1  christos {
    272       1.1  christos 	FILE *fp;
    273       1.1  christos 	const char *enc;
    274       1.8  christos 	fp = Fopen(filename, "r");
    275       1.1  christos 	if (fp == NULL) {
    276       1.1  christos 		warn("content_encoding_by_name: %s", filename);
    277       1.1  christos 		return MIME_TRANSFER_BASE64;	/* safe */
    278       1.1  christos 	}
    279       1.1  christos 	enc = content_encoding_core(fp, ctype);
    280       1.8  christos 	(void)Fclose(fp);
    281       1.1  christos 	return enc;
    282       1.1  christos }
    283       1.1  christos 
    284       1.1  christos static const char *
    285       1.1  christos content_encoding_by_fileno(int fd, const char *ctype)
    286       1.1  christos {
    287       1.1  christos 	FILE *fp;
    288       1.8  christos 	int fd2;
    289       1.1  christos 	const char *encoding;
    290       1.1  christos 	off_t cur_pos;
    291       1.1  christos 
    292       1.1  christos 	cur_pos = lseek(fd, (off_t)0, SEEK_CUR);
    293       1.8  christos 	if ((fd2 = dup(fd)) == -1 ||
    294       1.8  christos 	    (fp = Fdopen(fd2, "r")) == NULL) {
    295       1.1  christos 		warn("content_encoding_by_fileno");
    296       1.8  christos 		if (fd2 != -1)
    297       1.8  christos 			(void)close(fd2);
    298       1.1  christos 		return MIME_TRANSFER_BASE64;
    299       1.1  christos 	}
    300       1.1  christos 	encoding = content_encoding_core(fp, ctype);
    301       1.9  christos 	(void)Fclose(fp);
    302       1.1  christos 	(void)lseek(fd, cur_pos, SEEK_SET);
    303       1.1  christos 	return encoding;
    304       1.1  christos }
    305       1.1  christos 
    306       1.1  christos static const char *
    307       1.7  christos content_encoding(struct attachment *ap, const char *ctype)
    308       1.1  christos {
    309       1.7  christos 	switch (ap->a_type) {
    310       1.1  christos 	case ATTACH_FNAME:
    311       1.7  christos 		return content_encoding_by_name(ap->a_name, ctype);
    312       1.1  christos 	case ATTACH_MSG:
    313       1.7  christos 		return "7bit";
    314       1.1  christos 	case ATTACH_FILENO:
    315       1.7  christos 		return content_encoding_by_fileno(ap->a_fileno, ctype);
    316       1.7  christos 	case ATTACH_INVALID:
    317       1.1  christos 	default:
    318       1.7  christos 		/* This is a coding error! */
    319       1.7  christos 		assert(/* CONSTCOND */ 0);
    320       1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    321       1.7  christos 		/* NOTREACHED */
    322       1.1  christos 	}
    323       1.1  christos }
    324       1.1  christos 
    325       1.1  christos /************************
    326       1.1  christos  * Content type routines
    327       1.1  christos  */
    328       1.1  christos /*
    329       1.1  christos  * We use libmagic(3) to get the content type, except in the case of a
    330       1.4  christos  * 0 or 1 byte file where libmagic gives rather useless results.
    331       1.1  christos  */
    332       1.1  christos static const char *
    333       1.4  christos content_type_by_name(char *filename)
    334       1.1  christos {
    335       1.1  christos 	const char *cp;
    336       1.4  christos 	char *cp2;
    337       1.1  christos 	magic_t magic;
    338       1.1  christos 	struct stat sb;
    339       1.1  christos 
    340  1.10.8.1       jym #ifdef BROKEN_MAGIC
    341       1.1  christos 	/*
    342  1.10.8.1       jym 	 * libmagic(3) produces annoying results on very short files.
    343  1.10.8.1       jym 	 * The common case is MIME encoding an empty message body.
    344  1.10.8.1       jym 	 * XXX - it would be better to fix libmagic(3)!
    345       1.4  christos 	 *
    346       1.4  christos 	 * Note: a 1-byte message body always consists of a newline,
    347       1.4  christos 	 * so size determines all there.  However, 1-byte attachments
    348       1.4  christos 	 * (filename != NULL) could be anything, so check those.
    349       1.1  christos 	 */
    350       1.1  christos 	if ((filename != NULL && stat(filename, &sb) == 0) ||
    351       1.4  christos 	    (filename == NULL && fstat(0, &sb) == 0)) {
    352       1.4  christos 		if (sb.st_size < 2 && S_ISREG(sb.st_mode)) {
    353       1.4  christos 			FILE *fp;
    354       1.4  christos 			int ch;
    355  1.10.8.1       jym 
    356       1.4  christos 			if (sb.st_size == 0 || filename == NULL ||
    357       1.8  christos 			    (fp = Fopen(filename, "r")) == NULL)
    358       1.4  christos 				return "text/plain";
    359       1.4  christos 
    360       1.4  christos 			ch = fgetc(fp);
    361       1.8  christos 			(void)Fclose(fp);
    362       1.4  christos 
    363       1.4  christos 			return isprint(ch) || isspace(ch) ?
    364       1.4  christos 			    "text/plain" : "application/octet-stream";
    365       1.4  christos 		}
    366       1.4  christos 	}
    367  1.10.8.1       jym #endif
    368       1.1  christos 	magic = magic_open(MAGIC_MIME);
    369       1.1  christos 	if (magic == NULL) {
    370  1.10.8.1       jym 		warnx("magic_open: %s", magic_error(magic));
    371       1.1  christos 		return NULL;
    372       1.1  christos 	}
    373       1.1  christos 	if (magic_load(magic, NULL) != 0) {
    374  1.10.8.1       jym 		warnx("magic_load: %s", magic_error(magic));
    375       1.1  christos 		return NULL;
    376       1.1  christos 	}
    377       1.1  christos 	cp = magic_file(magic, filename);
    378       1.1  christos 	if (cp == NULL) {
    379  1.10.8.1       jym 		warnx("magic_load: %s", magic_error(magic));
    380       1.1  christos 		return NULL;
    381       1.1  christos 	}
    382       1.4  christos 	if (filename &&
    383       1.4  christos 	    sasprintf(&cp2, "%s; name=\"%s\"", cp, basename(filename)) != -1)
    384       1.4  christos 		cp = cp2;
    385       1.4  christos 	else
    386       1.4  christos 		cp = savestr(cp);
    387       1.1  christos 	magic_close(magic);
    388       1.1  christos 	return cp;
    389       1.1  christos }
    390       1.1  christos 
    391       1.1  christos static const char *
    392       1.1  christos content_type_by_fileno(int fd)
    393       1.1  christos {
    394       1.1  christos 	const char *cp;
    395       1.1  christos 	off_t cur_pos;
    396       1.1  christos 	int ofd;
    397       1.1  christos 
    398       1.1  christos 	cur_pos = lseek(fd, (off_t)0, SEEK_CUR);
    399       1.1  christos 
    400       1.1  christos 	ofd = dup(0);		/* save stdin */
    401       1.1  christos 	if (dup2(fd, 0) == -1)	/* become stdin */
    402       1.1  christos 		warn("dup2");
    403       1.1  christos 
    404       1.1  christos 	cp = content_type_by_name(NULL);
    405       1.1  christos 
    406       1.1  christos 	if (dup2(ofd, 0) == -1)	/* restore stdin */
    407       1.1  christos 		warn("dup2");
    408       1.1  christos 	(void)close(ofd);	/* close the copy */
    409       1.1  christos 
    410       1.5  christos 	(void)lseek(fd, cur_pos, SEEK_SET);
    411       1.1  christos 	return cp;
    412       1.1  christos }
    413       1.1  christos 
    414       1.1  christos static const char *
    415       1.7  christos content_type(struct attachment *ap)
    416       1.1  christos {
    417       1.7  christos 	switch (ap->a_type) {
    418       1.1  christos 	case ATTACH_FNAME:
    419       1.7  christos 		return content_type_by_name(ap->a_name);
    420       1.1  christos 	case ATTACH_MSG:
    421       1.7  christos 		/*
    422       1.7  christos 		 * Note: the encapusulated message header must include
    423       1.7  christos 		 * at least one of the "Date:", "From:", or "Subject:"
    424       1.7  christos 		 * fields.  See rfc2046 Sec 5.2.1.
    425       1.7  christos 		 * XXX - Should we really test for this?
    426       1.7  christos 		 */
    427       1.1  christos 		return "message/rfc822";
    428       1.1  christos 	case ATTACH_FILENO:
    429       1.7  christos 		return content_type_by_fileno(ap->a_fileno);
    430       1.7  christos 	case ATTACH_INVALID:
    431       1.1  christos 	default:
    432       1.1  christos 		/* This is a coding error! */
    433       1.1  christos 		assert(/* CONSTCOND */ 0);
    434       1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    435       1.7  christos 		/* NOTREACHED */
    436       1.1  christos 	}
    437       1.1  christos }
    438       1.1  christos 
    439       1.1  christos /*************************
    440       1.1  christos  * Other content routines
    441       1.1  christos  */
    442       1.1  christos 
    443       1.1  christos static const char *
    444       1.1  christos content_disposition(struct attachment *ap)
    445       1.1  christos {
    446       1.1  christos 	switch (ap->a_type) {
    447       1.1  christos 	case ATTACH_FNAME: {
    448       1.1  christos 		char *disp;
    449       1.7  christos 		(void)sasprintf(&disp, "attachment; filename=\"%s\"",
    450       1.7  christos 		    basename(ap->a_name));
    451       1.1  christos 		return disp;
    452       1.1  christos 	}
    453       1.1  christos 	case ATTACH_MSG:
    454       1.7  christos 		return NULL;
    455       1.1  christos 	case ATTACH_FILENO:
    456       1.1  christos 		return "inline";
    457       1.5  christos 
    458       1.7  christos 	case ATTACH_INVALID:
    459       1.1  christos 	default:
    460       1.7  christos 		/* This is a coding error! */
    461       1.7  christos 		assert(/* CONSTCOND */ 0);
    462       1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    463       1.7  christos 		/* NOTREACHED */
    464       1.1  christos 	}
    465       1.1  christos }
    466       1.1  christos 
    467       1.5  christos /*ARGSUSED*/
    468       1.1  christos static const char *
    469       1.7  christos content_id(struct attachment *ap __unused)
    470       1.1  christos {
    471       1.1  christos 	/* XXX - to be written. */
    472       1.5  christos 
    473       1.1  christos 	return NULL;
    474       1.1  christos }
    475       1.1  christos 
    476       1.1  christos static const char *
    477       1.1  christos content_description(struct attachment *attach, int attach_num)
    478       1.1  christos {
    479       1.1  christos 	if (attach_num) {
    480       1.1  christos 		char *description;
    481       1.3  christos 		(void)sasprintf(&description, "attachment %d", attach_num);
    482       1.1  christos 		return description;
    483       1.1  christos 	}
    484       1.1  christos 	else
    485       1.1  christos 		return attach->a_Content.C_description;
    486       1.1  christos }
    487       1.1  christos 
    488       1.1  christos /*******************************************
    489       1.1  christos  * Routines to get the MIME content strings.
    490       1.1  christos  */
    491       1.7  christos PUBLIC struct Content
    492       1.1  christos get_mime_content(struct attachment *ap, int i)
    493       1.1  christos {
    494       1.1  christos 	struct Content Cp;
    495       1.1  christos 
    496       1.1  christos 	Cp.C_type	 = content_type(ap);
    497       1.1  christos 	Cp.C_encoding	 = content_encoding(ap, Cp.C_type);
    498       1.1  christos 	Cp.C_disposition = content_disposition(ap);
    499       1.1  christos 	Cp.C_id		 = content_id(ap);
    500       1.1  christos 	Cp.C_description = content_description(ap, i);
    501       1.1  christos 
    502       1.1  christos 	return Cp;
    503       1.1  christos }
    504       1.1  christos 
    505       1.1  christos /******************
    506       1.1  christos  * Output routines
    507       1.1  christos  */
    508       1.1  christos static void
    509       1.1  christos fput_mime_content(FILE *fp, struct Content *Cp)
    510       1.1  christos {
    511       1.1  christos 	(void)fprintf(fp, MIME_HDR_TYPE ": %s\n", Cp->C_type);
    512       1.1  christos 	(void)fprintf(fp, MIME_HDR_ENCODING ": %s\n", Cp->C_encoding);
    513       1.1  christos 	if (Cp->C_disposition)
    514       1.1  christos 		(void)fprintf(fp, MIME_HDR_DISPOSITION ": %s\n",
    515       1.1  christos 		    Cp->C_disposition);
    516       1.1  christos 	if (Cp->C_id)
    517       1.1  christos 		(void)fprintf(fp, MIME_HDR_ID ": %s\n", Cp->C_id);
    518       1.1  christos 	if (Cp->C_description)
    519       1.1  christos 		(void)fprintf(fp, MIME_HDR_DESCRIPTION ": %s\n",
    520       1.1  christos 		    Cp->C_description);
    521       1.1  christos }
    522       1.1  christos 
    523       1.1  christos static void
    524       1.1  christos fput_body(FILE *fi, FILE *fo, struct Content *Cp)
    525       1.1  christos {
    526       1.1  christos 	mime_codec_t enc;
    527       1.1  christos 
    528       1.1  christos 	enc = mime_fio_encoder(Cp->C_encoding);
    529       1.1  christos 	if (enc == NULL)
    530       1.1  christos 		warnx("unknown transfer encoding type: %s\n", Cp->C_encoding);
    531       1.1  christos 	else
    532       1.1  christos 		enc(fi, fo, 0);
    533       1.1  christos }
    534       1.1  christos 
    535       1.1  christos static void
    536       1.1  christos fput_attachment(FILE *fo, struct attachment *ap)
    537       1.1  christos {
    538       1.1  christos 	FILE *fi;
    539       1.1  christos 	struct Content *Cp = &ap->a_Content;
    540       1.1  christos 
    541       1.1  christos 	fput_mime_content(fo, &ap->a_Content);
    542       1.1  christos 	(void)putc('\n', fo);
    543       1.1  christos 
    544       1.1  christos 	switch (ap->a_type) {
    545       1.1  christos 	case ATTACH_FNAME:
    546       1.8  christos 		fi = Fopen(ap->a_name, "r");
    547       1.1  christos 		if (fi == NULL)
    548       1.8  christos 			err(EXIT_FAILURE, "Fopen: %s", ap->a_name);
    549       1.1  christos 		break;
    550       1.1  christos 
    551       1.1  christos 	case ATTACH_FILENO:
    552       1.8  christos 		/*
    553       1.8  christos 		 * XXX - we should really dup(2) here, however we are
    554       1.8  christos 		 * finished with the attachment, so the Fclose() below
    555       1.8  christos 		 * is OK for now.  This will be changed in the future.
    556       1.8  christos 		 */
    557       1.8  christos 		fi = Fdopen(ap->a_fileno, "r");
    558       1.1  christos 		if (fi == NULL)
    559       1.8  christos 			err(EXIT_FAILURE, "Fdopen: %d", ap->a_fileno);
    560       1.1  christos 		break;
    561       1.1  christos 
    562       1.7  christos 	case ATTACH_MSG: {
    563       1.7  christos 		char mailtempname[PATHSIZE];
    564       1.7  christos 		int fd;
    565       1.7  christos 
    566       1.7  christos 		fi = NULL;	/* appease gcc */
    567       1.7  christos 		(void)snprintf(mailtempname, sizeof(mailtempname),
    568       1.7  christos 		    "%s/mail.RsXXXXXXXXXX", tmpdir);
    569       1.7  christos 		if ((fd = mkstemp(mailtempname)) == -1 ||
    570       1.7  christos 		    (fi = Fdopen(fd, "w+")) == NULL) {
    571       1.7  christos 			if (fd != -1)
    572       1.7  christos 				(void)close(fd);
    573       1.7  christos 			err(EXIT_FAILURE, "%s", mailtempname);
    574       1.7  christos 		}
    575       1.7  christos 		(void)rm(mailtempname);
    576       1.7  christos 
    577       1.7  christos 		/*
    578       1.7  christos 		 * This is only used for forwarding, so use the forwardtab[].
    579       1.7  christos 		 *
    580       1.7  christos 		 * XXX - sendmessage really needs a 'flags' argument
    581       1.7  christos 		 * so we don't have to play games.
    582       1.7  christos 		 */
    583       1.7  christos 		ap->a_msg->m_size--;	/* XXX - remove trailing newline */
    584       1.7  christos 		(void)fputc('>', fi);	/* XXX - hide the headerline */
    585       1.7  christos 		if (sendmessage(ap->a_msg, fi, forwardtab, NULL, NULL))
    586       1.7  christos 			(void)fprintf(stderr, ". . . forward failed, sorry.\n");
    587       1.7  christos 		ap->a_msg->m_size++;
    588       1.7  christos 
    589       1.7  christos 		rewind(fi);
    590       1.7  christos 		break;
    591       1.7  christos 	}
    592       1.7  christos 	case ATTACH_INVALID:
    593       1.1  christos 	default:
    594       1.7  christos 		/* This is a coding error! */
    595       1.7  christos 		assert(/* CONSTCOND */ 0);
    596       1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    597       1.1  christos 	}
    598       1.1  christos 
    599       1.1  christos 	fput_body(fi, fo, Cp);
    600       1.8  christos 	(void)Fclose(fi);
    601       1.1  christos }
    602       1.1  christos 
    603       1.1  christos /***********************************
    604       1.1  christos  * Higher level attachment routines.
    605       1.1  christos  */
    606       1.1  christos 
    607       1.1  christos static int
    608       1.1  christos mktemp_file(FILE **nfo, FILE **nfi, const char *hint)
    609       1.1  christos {
    610       1.1  christos 	char tempname[PATHSIZE];
    611       1.1  christos 	int fd, fd2;
    612       1.1  christos 	(void)snprintf(tempname, sizeof(tempname), "%s/%sXXXXXXXXXX",
    613       1.1  christos 	    tmpdir, hint);
    614       1.1  christos 	if ((fd = mkstemp(tempname)) == -1 ||
    615       1.1  christos 	    (*nfo = Fdopen(fd, "w")) == NULL) {
    616       1.1  christos 		if (fd != -1)
    617       1.1  christos 			(void)close(fd);
    618       1.1  christos 		warn("%s", tempname);
    619       1.1  christos 		return -1;
    620       1.1  christos 	}
    621       1.1  christos 	(void)rm(tempname);
    622       1.1  christos 	if ((fd2 = dup(fd)) == -1 ||
    623       1.1  christos 	    (*nfi = Fdopen(fd2, "r")) == NULL) {
    624       1.1  christos 		warn("%s", tempname);
    625       1.1  christos 		(void)Fclose(*nfo);
    626       1.1  christos 		return -1;
    627       1.1  christos 	}
    628       1.1  christos 	return 0;
    629       1.1  christos }
    630       1.1  christos 
    631       1.1  christos /*
    632       1.1  christos  * Repackage the mail as a multipart MIME message.  This should always
    633       1.1  christos  * be called whenever there are attachments, but might be called even
    634       1.1  christos  * if there are none if we want to wrap the message in a MIME package.
    635       1.1  christos  */
    636       1.1  christos PUBLIC FILE *
    637       1.1  christos mime_encode(FILE *fi, struct header *header)
    638       1.1  christos {
    639       1.1  christos 	struct attachment map;	/* fake structure for the message body */
    640       1.1  christos 	struct attachment *attach;
    641       1.1  christos 	struct attachment *ap;
    642       1.1  christos 	FILE *nfi, *nfo;
    643       1.1  christos 
    644       1.1  christos 	attach = header->h_attach;
    645       1.1  christos 
    646       1.1  christos 	/*
    647       1.1  christos 	 * Make new phantom temporary file with read and write file
    648       1.1  christos 	 * handles: nfi and nfo, resp.
    649       1.1  christos 	 */
    650       1.1  christos 	if (mktemp_file(&nfo, &nfi, "mail.Rs") != 0)
    651       1.1  christos 		return fi;
    652       1.1  christos 
    653       1.1  christos 	(void)memset(&map, 0, sizeof(map));
    654       1.1  christos 	map.a_type = ATTACH_FILENO;
    655       1.1  christos 	map.a_fileno = fileno(fi);
    656       1.1  christos 
    657       1.1  christos  	map.a_Content = get_mime_content(&map, 0);
    658       1.1  christos 
    659       1.1  christos 	if (attach) {
    660       1.1  christos 		/* Multi-part message:
    661       1.1  christos 		 * Make an attachment structure for the body message
    662       1.1  christos 		 * and make that the first element in the attach list.
    663       1.1  christos 		 */
    664       1.1  christos 		if (fsize(fi)) {
    665       1.1  christos 			map.a_flink = attach;
    666       1.1  christos 			attach->a_blink = &map;
    667       1.1  christos 			attach = &map;
    668       1.1  christos 		}
    669       1.1  christos 
    670       1.1  christos 		/* Construct our MIME boundary string - used by mime_putheader() */
    671       1.1  christos 		header->h_mime_boundary = make_boundary();
    672       1.5  christos 
    673       1.1  christos 		(void)fprintf(nfo, "This is a multi-part message in MIME format.\n");
    674       1.5  christos 
    675       1.1  christos 		for (ap = attach; ap; ap = ap->a_flink) {
    676       1.1  christos 			(void)fprintf(nfo, "\n--%s\n", header->h_mime_boundary);
    677       1.1  christos 			fput_attachment(nfo, ap);
    678       1.1  christos 		}
    679       1.5  christos 
    680       1.1  christos 		/* the final boundary with two attached dashes */
    681       1.1  christos 		(void)fprintf(nfo, "\n--%s--\n", header->h_mime_boundary);
    682       1.1  christos 	}
    683       1.1  christos 	else {
    684       1.1  christos 		/* Single-part message (no attachments):
    685       1.1  christos 		 * Update header->h_Content (used by mime_putheader()).
    686       1.1  christos 		 * Output the body contents.
    687       1.1  christos 		 */
    688       1.1  christos 		char *encoding;
    689       1.1  christos 
    690       1.1  christos 		header->h_Content = map.a_Content;
    691       1.5  christos 
    692       1.1  christos 		/* check for an encoding override */
    693       1.1  christos 		if ((encoding = value(ENAME_MIME_ENCODE_MSG)) && *encoding)
    694       1.1  christos 			header->h_Content.C_encoding = encoding;
    695       1.1  christos 
    696       1.1  christos 		fput_body(fi, nfo, &header->h_Content);
    697       1.1  christos 	}
    698       1.1  christos 	(void)Fclose(fi);
    699       1.1  christos 	(void)Fclose(nfo);
    700       1.1  christos 	rewind(nfi);
    701       1.3  christos 	return nfi;
    702       1.1  christos }
    703       1.1  christos 
    704       1.1  christos static char*
    705       1.1  christos check_filename(char *filename, char *canon_name)
    706       1.1  christos {
    707       1.1  christos 	int fd;
    708       1.1  christos 	struct stat sb;
    709       1.1  christos 	char *fname = filename;
    710       1.3  christos 
    711       1.2  christos 	/* We need to expand '~' if we got here from '~@'.  The shell
    712       1.2  christos 	 * does this otherwise.
    713       1.2  christos 	 */
    714       1.1  christos 	if (fname[0] == '~' && fname[1] == '/') {
    715       1.2  christos 		if (homedir && homedir[0] != '~')
    716       1.2  christos 			(void)easprintf(&fname, "%s/%s",
    717       1.2  christos 			    homedir, fname + 2);
    718       1.1  christos 	}
    719       1.1  christos 	if (realpath(fname, canon_name) == NULL) {
    720       1.1  christos 		warn("realpath: %s", filename);
    721       1.1  christos 		canon_name = NULL;
    722       1.1  christos 		goto done;
    723       1.1  christos 	}
    724       1.1  christos 	fd = open(canon_name, O_RDONLY, 0);
    725       1.1  christos 	if (fd == -1) {
    726       1.1  christos 		warnx("open: cannot read %s", filename);
    727       1.1  christos 		canon_name = NULL;
    728       1.1  christos 		goto done;
    729       1.1  christos 	}
    730       1.1  christos 	if (fstat(fd, &sb) == -1) {
    731       1.1  christos 		warn("stat: %s", canon_name);
    732       1.1  christos 		canon_name = NULL;
    733       1.1  christos 		goto do_close;
    734       1.1  christos 	}
    735       1.1  christos 	if (!S_ISREG(sb.st_mode)) {
    736       1.1  christos 		warnx("stat: %s is not a file", filename);
    737       1.1  christos 		canon_name = NULL;
    738       1.2  christos 	     /*	goto do_close; */
    739       1.1  christos 	}
    740       1.1  christos  do_close:
    741       1.1  christos 	(void)close(fd);
    742       1.1  christos  done:
    743       1.1  christos 	if (fname != filename)
    744       1.1  christos 		free(fname);
    745       1.1  christos 
    746       1.1  christos 	return canon_name;
    747       1.1  christos }
    748       1.1  christos 
    749       1.1  christos static struct attachment *
    750       1.7  christos attach_one_file(struct attachment *ap, char *filename, int attach_num)
    751       1.1  christos {
    752       1.1  christos 	char canon_name[MAXPATHLEN];
    753       1.7  christos 	struct attachment *nap;
    754       1.1  christos 
    755       1.3  christos 	/*
    756       1.7  christos 	 * 1) check that filename is really a readable file; return NULL if not.
    757       1.3  christos 	 * 2) allocate an attachment structure.
    758       1.3  christos 	 * 3) save cananonical name for filename, so cd won't screw things later.
    759       1.3  christos 	 * 4) add the structure to the end of the chain.
    760       1.7  christos 	 * 5) return the new attachment structure.
    761       1.3  christos 	 */
    762       1.1  christos 	if (check_filename(filename, canon_name) == NULL)
    763       1.1  christos 		return NULL;
    764       1.5  christos 
    765       1.1  christos 	nap = csalloc(1, sizeof(*nap));
    766       1.1  christos 	nap->a_type = ATTACH_FNAME;
    767       1.1  christos 	nap->a_name = savestr(canon_name);
    768       1.1  christos 
    769       1.7  christos 	if (ap) {
    770       1.7  christos 		for (/*EMPTY*/; ap->a_flink != NULL; ap = ap->a_flink)
    771       1.1  christos 			continue;
    772       1.1  christos 		ap->a_flink = nap;
    773       1.1  christos 		nap->a_blink = ap;
    774       1.1  christos 	}
    775       1.1  christos 
    776       1.1  christos 	if (attach_num)
    777       1.1  christos 		nap->a_Content = get_mime_content(nap, attach_num);
    778       1.1  christos 
    779       1.7  christos 	return nap;
    780       1.1  christos }
    781       1.1  christos 
    782       1.1  christos static char *
    783       1.1  christos get_line(el_mode_t *em, const char *pr, const char *str, int i)
    784       1.1  christos {
    785       1.3  christos 	char *prompt;
    786       1.1  christos 	char *line;
    787       1.1  christos 
    788       1.3  christos 	/*
    789       1.3  christos 	 * Don't use a '\t' in the format string here as completion
    790       1.3  christos 	 * seems to handle it badly.
    791       1.3  christos 	 */
    792       1.7  christos 	(void)easprintf(&prompt, "#%-7d %s: ", i, pr);
    793  1.10.8.1       jym 	line = my_gets(em, prompt, __UNCONST(str));
    794  1.10.8.1       jym 	if (line != NULL) {
    795  1.10.8.1       jym 		(void)strip_WSP(line);	/* strip trailing whitespace */
    796  1.10.8.1       jym 		line = skip_WSP(line);	/* skip leading white space */
    797  1.10.8.1       jym 		line = savestr(line);	/* XXX - do we need this? */
    798  1.10.8.1       jym 	}
    799  1.10.8.1       jym 	else {
    800  1.10.8.1       jym 		line = __UNCONST("");
    801  1.10.8.1       jym 	}
    802       1.1  christos 	free(prompt);
    803       1.1  christos 
    804       1.3  christos 	return line;
    805       1.1  christos }
    806       1.1  christos 
    807       1.1  christos static void
    808       1.1  christos sget_line(el_mode_t *em, const char *pr, const char **str, int i)
    809       1.1  christos {
    810       1.1  christos 	char *line;
    811       1.1  christos 	line = get_line(em, pr, *str, i);
    812  1.10.8.1       jym 	if (line != NULL && strcmp(line, *str) != 0)
    813  1.10.8.1       jym 		*str = line;
    814       1.1  christos }
    815       1.1  christos 
    816       1.1  christos static void
    817       1.1  christos sget_encoding(const char **str, const char *filename, const char *ctype, int num)
    818       1.1  christos {
    819       1.1  christos 	const char *ename;
    820       1.1  christos 	const char *defename;
    821       1.1  christos 
    822       1.1  christos 	defename = NULL;
    823       1.1  christos 	ename = *str;
    824       1.1  christos 	for (;;) {
    825       1.1  christos 		ename = get_line(&elm.mime_enc, "encoding", ename, num);
    826       1.1  christos 
    827       1.1  christos 		if (*ename == '\0') {
    828       1.1  christos 			if (defename == NULL)
    829       1.1  christos 				defename = content_encoding_by_name(filename, ctype);
    830       1.1  christos 			ename = defename;
    831       1.1  christos 		}
    832       1.1  christos 		else if (mime_fio_encoder(ename) == NULL) {
    833       1.1  christos 			const void *cookie;
    834       1.1  christos 			(void)printf("Sorry: valid encoding modes are: ");
    835       1.1  christos 			cookie = NULL;
    836       1.1  christos 			ename = mime_next_encoding_name(&cookie);
    837       1.1  christos 			for (;;) {
    838       1.1  christos 				(void)printf("%s", ename);
    839       1.1  christos 				ename = mime_next_encoding_name(&cookie);
    840       1.1  christos 				if (ename == NULL)
    841       1.1  christos 					break;
    842       1.1  christos 				(void)fputc(',', stdout);
    843       1.1  christos 			}
    844       1.7  christos 			(void)putchar('\n');
    845       1.1  christos 			ename = *str;
    846       1.1  christos 		}
    847       1.1  christos 		else {
    848       1.1  christos 			if (strcmp(ename, *str) != 0)
    849       1.1  christos 				*str = savestr(ename);
    850       1.1  christos 			break;
    851       1.1  christos 		}
    852       1.1  christos 	}
    853       1.1  christos }
    854       1.1  christos 
    855       1.7  christos /*
    856       1.7  christos  * Edit an attachment list.
    857       1.7  christos  * Return the new attachment list.
    858       1.7  christos  */
    859       1.1  christos static struct attachment *
    860       1.7  christos edit_attachlist(struct attachment *alist)
    861       1.1  christos {
    862       1.1  christos 	struct attachment *ap;
    863       1.1  christos 	char *line;
    864       1.2  christos 	int attach_num;
    865       1.1  christos 
    866       1.1  christos 	(void)printf("Attachments:\n");
    867       1.1  christos 
    868       1.2  christos 	attach_num = 1;
    869       1.7  christos 	ap = alist;
    870       1.1  christos 	while (ap) {
    871       1.7  christos 		SHOW_ALIST(alist, ap);
    872       1.7  christos 
    873       1.7  christos 		switch(ap->a_type) {
    874       1.7  christos 		case ATTACH_MSG:
    875       1.7  christos 			(void)printf("#%-7d message:  <not changeable>\n",
    876       1.7  christos 			    attach_num);
    877       1.7  christos 			break;
    878       1.7  christos 		case ATTACH_FNAME:
    879       1.7  christos 		case ATTACH_FILENO:
    880       1.7  christos 			line = get_line(&elm.filec, "filename", ap->a_name, attach_num);
    881       1.7  christos 			if (*line == '\0') {	/* omit this attachment */
    882       1.7  christos 				if (ap->a_blink) {
    883       1.7  christos 					struct attachment *next_ap;
    884       1.7  christos 					next_ap = ap->a_flink;
    885       1.7  christos 					ap = ap->a_blink;
    886       1.7  christos 					ap->a_flink = next_ap;
    887       1.7  christos 					if (next_ap)
    888       1.7  christos 						next_ap->a_blink = ap;
    889       1.7  christos 					else
    890       1.7  christos 						goto done;
    891       1.7  christos 				}
    892       1.7  christos 				else {
    893       1.7  christos 					alist = ap->a_flink;
    894       1.7  christos 					if (alist)
    895       1.7  christos 						alist->a_blink = NULL;
    896       1.7  christos 				}
    897       1.7  christos 			}
    898       1.7  christos 			else {
    899       1.7  christos 				char canon_name[MAXPATHLEN];
    900       1.7  christos 				if (strcmp(line, ap->a_name) != 0) { /* new filename */
    901       1.7  christos 					if (check_filename(line, canon_name) == NULL)
    902       1.7  christos 						continue;
    903       1.7  christos 					ap->a_name = savestr(canon_name);
    904       1.7  christos 					ap->a_Content = get_mime_content(ap, 0);
    905       1.7  christos 				}
    906       1.7  christos 				sget_line(&elm.string, "description",
    907       1.7  christos 				    &ap->a_Content.C_description, attach_num);
    908       1.7  christos 				sget_encoding(&ap->a_Content.C_encoding, ap->a_name,
    909       1.7  christos 				    ap->a_Content.C_type, attach_num);
    910       1.1  christos 			}
    911       1.7  christos 			break;
    912       1.7  christos 		case ATTACH_INVALID:
    913       1.7  christos 		default:
    914       1.7  christos 			/* This is a coding error! */
    915       1.7  christos 			assert(/* CONSTCOND */ 0);
    916       1.7  christos 			errx(EXIT_FAILURE, "invalid attachment type: %d",
    917       1.7  christos 			    ap->a_type);
    918       1.1  christos 		}
    919       1.7  christos 
    920       1.2  christos 		attach_num++;
    921       1.7  christos 		if (alist == NULL || ap->a_flink == NULL)
    922       1.1  christos 			break;
    923       1.1  christos 
    924       1.1  christos 		ap = ap->a_flink;
    925       1.1  christos 	}
    926       1.1  christos 
    927       1.7  christos 	ap = alist;
    928       1.7  christos 	for (;;) {
    929       1.1  christos 		struct attachment *nap;
    930       1.1  christos 
    931       1.7  christos 		SHOW_ALIST(alist, ap);
    932       1.7  christos 
    933       1.2  christos 		line = get_line(&elm.filec, "filename", "", attach_num);
    934       1.1  christos 		if (*line == '\0')
    935       1.1  christos 			break;
    936       1.1  christos 
    937       1.2  christos 		nap = attach_one_file(ap, line, attach_num);
    938       1.1  christos 		if (nap == NULL)
    939       1.1  christos 			continue;
    940       1.1  christos 
    941       1.7  christos 		if (alist == NULL)
    942       1.7  christos 			alist = nap;
    943       1.7  christos 		ap = nap;
    944       1.1  christos 
    945       1.2  christos 		sget_line(&elm.string, "description",
    946       1.2  christos 		    &ap->a_Content.C_description, attach_num);
    947       1.2  christos 		sget_encoding(&ap->a_Content.C_encoding, ap->a_name,
    948       1.2  christos 		    ap->a_Content.C_type, attach_num);
    949       1.2  christos 		attach_num++;
    950       1.7  christos 	}
    951       1.7  christos  done:
    952       1.7  christos 	SHOW_ALIST(alist, ap);
    953       1.1  christos 
    954       1.7  christos 	return alist;
    955       1.1  christos }
    956       1.1  christos 
    957       1.1  christos /*
    958       1.2  christos  * Hook used by the '~@' escape to attach files.
    959       1.1  christos  */
    960       1.1  christos PUBLIC struct attachment*
    961  1.10.8.1       jym mime_attach_files(struct attachment * volatile attach, char *linebuf)
    962       1.1  christos {
    963       1.1  christos 	struct attachment *ap;
    964       1.1  christos 	char *argv[MAXARGC];
    965       1.1  christos 	int argc;
    966       1.1  christos 	int attach_num;
    967       1.1  christos 
    968  1.10.8.1       jym 	argc = getrawlist(linebuf, argv, (int)__arraycount(argv));
    969       1.2  christos 	attach_num = 1;
    970       1.1  christos 	for (ap = attach; ap && ap->a_flink; ap = ap->a_flink)
    971       1.1  christos 			attach_num++;
    972       1.1  christos 
    973       1.1  christos 	if (argc) {
    974       1.1  christos 		int i;
    975       1.1  christos 		for (i = 0; i < argc; i++) {
    976       1.2  christos 			struct attachment *ap2;
    977       1.2  christos 			ap2 = attach_one_file(ap, argv[i], attach_num);
    978       1.2  christos 			if (ap2 != NULL) {
    979       1.2  christos 				ap = ap2;
    980       1.2  christos 				if (attach == NULL)
    981       1.2  christos 					attach = ap;
    982       1.2  christos 				attach_num++;
    983       1.2  christos 			}
    984       1.1  christos 		}
    985       1.1  christos 	}
    986       1.1  christos 	else {
    987       1.7  christos 		attach = edit_attachlist(attach);
    988       1.1  christos 		(void)printf("--- end attachments ---\n");
    989       1.1  christos 	}
    990       1.1  christos 
    991       1.1  christos 	return attach;
    992       1.1  christos }
    993       1.1  christos 
    994       1.1  christos /*
    995       1.2  christos  * Hook called in main() to attach files registered by the '-a' flag.
    996       1.2  christos  */
    997       1.2  christos PUBLIC struct attachment *
    998       1.2  christos mime_attach_optargs(struct name *optargs)
    999       1.2  christos {
   1000       1.2  christos 	struct attachment *attach;
   1001       1.2  christos 	struct attachment *ap;
   1002       1.2  christos 	struct name *np;
   1003       1.2  christos 	char *expand_optargs;
   1004       1.2  christos 	int attach_num;
   1005       1.2  christos 
   1006       1.2  christos 	expand_optargs = value(ENAME_MIME_ATTACH_LIST);
   1007       1.2  christos 	attach_num = 1;
   1008       1.2  christos 	ap = NULL;
   1009       1.2  christos 	attach = NULL;
   1010       1.2  christos 	for (np = optargs; np; np = np->n_flink) {
   1011       1.2  christos 		char *argv[MAXARGC];
   1012       1.2  christos 		int argc;
   1013       1.2  christos 		int i;
   1014       1.2  christos 
   1015       1.2  christos 		if (expand_optargs != NULL)
   1016  1.10.8.1       jym 			argc = getrawlist(np->n_name,
   1017  1.10.8.1       jym 			    argv, (int)__arraycount(argv));
   1018       1.2  christos 		else {
   1019       1.2  christos 			if (np->n_name == '\0')
   1020       1.2  christos 				argc = 0;
   1021       1.2  christos 			else {
   1022       1.2  christos 				argc = 1;
   1023       1.2  christos 				argv[0] = np->n_name;
   1024       1.2  christos 			}
   1025       1.2  christos 			argv[argc] = NULL;/* be consistent with getrawlist() */
   1026       1.2  christos 		}
   1027       1.2  christos 		for (i = 0; i < argc; i++) {
   1028       1.2  christos 			struct attachment *ap2;
   1029       1.2  christos 			char *filename;
   1030       1.5  christos 
   1031       1.2  christos 			if (argv[i][0] == '/')	/* an absolute path */
   1032       1.2  christos 				(void)easprintf(&filename, "%s", argv[i]);
   1033       1.2  christos 			else
   1034       1.2  christos 				(void)easprintf(&filename, "%s/%s",
   1035       1.2  christos 				    origdir, argv[i]);
   1036       1.2  christos 
   1037       1.2  christos 			ap2 = attach_one_file(ap, filename, attach_num);
   1038       1.2  christos 			if (ap2 != NULL) {
   1039       1.2  christos 				ap = ap2;
   1040       1.2  christos 				if (attach == NULL)
   1041       1.2  christos 					attach = ap;
   1042       1.2  christos 				attach_num++;
   1043       1.2  christos 			}
   1044       1.7  christos 			free(filename);
   1045       1.2  christos 		}
   1046       1.2  christos 	}
   1047       1.2  christos 	return attach;
   1048       1.2  christos }
   1049       1.2  christos 
   1050       1.2  christos /*
   1051       1.1  christos  * Output MIME header strings as specified in the header structure.
   1052       1.1  christos  */
   1053       1.1  christos PUBLIC void
   1054       1.1  christos mime_putheader(FILE *fp, struct header *header)
   1055       1.1  christos {
   1056       1.1  christos 	(void)fprintf(fp, MIME_HDR_VERSION ": " MIME_VERSION "\n");
   1057       1.1  christos 	if (header->h_attach) {
   1058       1.1  christos 		(void)fprintf(fp, MIME_HDR_TYPE ": multipart/mixed;\n");
   1059       1.1  christos 		(void)fprintf(fp, "\tboundary=\"%s\"\n", header->h_mime_boundary);
   1060       1.1  christos 	}
   1061       1.1  christos 	else {
   1062       1.1  christos 		fput_mime_content(fp, &header->h_Content);
   1063       1.1  christos 	}
   1064       1.1  christos }
   1065       1.1  christos 
   1066       1.1  christos #endif /* MIME_SUPPORT */
   1067