Home | History | Annotate | Line # | Download | only in mail
mime_attach.c revision 1.20.12.1
      1  1.20.12.1  perseant /*	$NetBSD: mime_attach.c,v 1.20.12.1 2025/08/02 05:58:29 perseant 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.20.12.1  perseant __RCSID("$NetBSD: mime_attach.c,v 1.20.12.1 2025/08/02 05:58:29 perseant 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.12  christos #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.16  christos #define MAILMSG_CLEAN	0x0
    228       1.16  christos #define MAILMSG_ENDWS	0x1
    229       1.16  christos #define MAILMSG_CTRLC	0x2
    230       1.16  christos #define MAILMSG_8BIT	0x4
    231       1.16  christos #define MAILMSG_LONGL	0x8
    232       1.16  christos 	int c, lastc, state;
    233        1.1  christos 	size_t curlen, maxlen;
    234        1.5  christos 
    235       1.16  christos 	state = MAILMSG_CLEAN;
    236        1.1  christos 	curlen = 0;
    237       1.16  christos 	maxlen = line_limit();
    238        1.1  christos 	lastc = EOF;
    239        1.1  christos 	while ((c = fgetc(fh)) != EOF) {
    240        1.1  christos 		curlen++;
    241        1.5  christos 
    242       1.15  christos 		if (c == '\0')
    243        1.1  christos 			return MIME_TRANSFER_BASE64;
    244        1.1  christos 
    245        1.1  christos 		if (c > 0x7f) {
    246       1.16  christos 			if (!is_text(ctype))
    247        1.1  christos 				return MIME_TRANSFER_BASE64;
    248       1.16  christos 			state |= MAILMSG_8BIT;
    249       1.16  christos 			continue;
    250        1.1  christos 		}
    251        1.1  christos 		if (c == '\n') {
    252        1.5  christos 			if (is_WSP(lastc))
    253       1.16  christos 				state |= MAILMSG_ENDWS;
    254        1.1  christos 			if (curlen > maxlen)
    255       1.16  christos 				state |= MAILMSG_LONGL;
    256        1.1  christos 			curlen = 0;
    257        1.1  christos 		}
    258       1.15  christos 		else if ((c < 0x20 && c != '\t') || c == 0x7f || lastc == '\r')
    259       1.16  christos 			state |= MAILMSG_CTRLC;
    260        1.1  christos 		lastc = c;
    261        1.1  christos 	}
    262        1.1  christos 	if (lastc == EOF) /* no characters read */
    263        1.1  christos 		return MIME_TRANSFER_7BIT;
    264        1.1  christos 
    265       1.16  christos 	if (lastc != '\n' || state != MAILMSG_CLEAN)
    266        1.1  christos 		return MIME_TRANSFER_QUOTED;
    267        1.1  christos 
    268        1.1  christos 	return MIME_TRANSFER_7BIT;
    269        1.1  christos }
    270        1.1  christos 
    271        1.1  christos static const char *
    272        1.1  christos content_encoding_by_name(const char *filename, const char *ctype)
    273        1.1  christos {
    274        1.1  christos 	FILE *fp;
    275        1.1  christos 	const char *enc;
    276       1.19  christos 	fp = Fopen(filename, "ref");
    277        1.1  christos 	if (fp == NULL) {
    278        1.1  christos 		warn("content_encoding_by_name: %s", filename);
    279        1.1  christos 		return MIME_TRANSFER_BASE64;	/* safe */
    280        1.1  christos 	}
    281        1.1  christos 	enc = content_encoding_core(fp, ctype);
    282        1.8  christos 	(void)Fclose(fp);
    283        1.1  christos 	return enc;
    284        1.1  christos }
    285        1.1  christos 
    286        1.1  christos static const char *
    287        1.1  christos content_encoding_by_fileno(int fd, const char *ctype)
    288        1.1  christos {
    289        1.1  christos 	FILE *fp;
    290        1.8  christos 	int fd2;
    291        1.1  christos 	const char *encoding;
    292        1.1  christos 	off_t cur_pos;
    293        1.1  christos 
    294        1.1  christos 	cur_pos = lseek(fd, (off_t)0, SEEK_CUR);
    295        1.8  christos 	if ((fd2 = dup(fd)) == -1 ||
    296       1.19  christos 	    (fp = Fdopen(fd2, "ref")) == NULL) {
    297        1.1  christos 		warn("content_encoding_by_fileno");
    298        1.8  christos 		if (fd2 != -1)
    299        1.8  christos 			(void)close(fd2);
    300        1.1  christos 		return MIME_TRANSFER_BASE64;
    301        1.1  christos 	}
    302        1.1  christos 	encoding = content_encoding_core(fp, ctype);
    303        1.9  christos 	(void)Fclose(fp);
    304        1.1  christos 	(void)lseek(fd, cur_pos, SEEK_SET);
    305        1.1  christos 	return encoding;
    306        1.1  christos }
    307        1.1  christos 
    308        1.1  christos static const char *
    309        1.7  christos content_encoding(struct attachment *ap, const char *ctype)
    310        1.1  christos {
    311        1.7  christos 	switch (ap->a_type) {
    312        1.1  christos 	case ATTACH_FNAME:
    313        1.7  christos 		return content_encoding_by_name(ap->a_name, ctype);
    314        1.1  christos 	case ATTACH_MSG:
    315        1.7  christos 		return "7bit";
    316        1.1  christos 	case ATTACH_FILENO:
    317        1.7  christos 		return content_encoding_by_fileno(ap->a_fileno, ctype);
    318        1.7  christos 	case ATTACH_INVALID:
    319        1.1  christos 	default:
    320        1.7  christos 		/* This is a coding error! */
    321        1.7  christos 		assert(/* CONSTCOND */ 0);
    322        1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    323        1.7  christos 		/* NOTREACHED */
    324        1.1  christos 	}
    325        1.1  christos }
    326        1.1  christos 
    327        1.1  christos /************************
    328        1.1  christos  * Content type routines
    329        1.1  christos  */
    330        1.1  christos /*
    331        1.1  christos  * We use libmagic(3) to get the content type, except in the case of a
    332        1.4  christos  * 0 or 1 byte file where libmagic gives rather useless results.
    333        1.1  christos  */
    334        1.1  christos static const char *
    335        1.4  christos content_type_by_name(char *filename)
    336        1.1  christos {
    337        1.1  christos 	const char *cp;
    338        1.4  christos 	char *cp2;
    339        1.1  christos 	magic_t magic;
    340        1.1  christos 	struct stat sb;
    341        1.1  christos 
    342       1.13  christos #ifdef BROKEN_MAGIC
    343        1.1  christos 	/*
    344       1.13  christos 	 * libmagic(3) produces annoying results on very short files.
    345       1.13  christos 	 * The common case is MIME encoding an empty message body.
    346       1.13  christos 	 * XXX - it would be better to fix libmagic(3)!
    347        1.4  christos 	 *
    348        1.4  christos 	 * Note: a 1-byte message body always consists of a newline,
    349        1.4  christos 	 * so size determines all there.  However, 1-byte attachments
    350        1.4  christos 	 * (filename != NULL) could be anything, so check those.
    351        1.1  christos 	 */
    352        1.1  christos 	if ((filename != NULL && stat(filename, &sb) == 0) ||
    353        1.4  christos 	    (filename == NULL && fstat(0, &sb) == 0)) {
    354        1.4  christos 		if (sb.st_size < 2 && S_ISREG(sb.st_mode)) {
    355        1.4  christos 			FILE *fp;
    356        1.4  christos 			int ch;
    357       1.13  christos 
    358        1.4  christos 			if (sb.st_size == 0 || filename == NULL ||
    359       1.19  christos 			    (fp = Fopen(filename, "ref")) == NULL)
    360        1.4  christos 				return "text/plain";
    361        1.4  christos 
    362        1.4  christos 			ch = fgetc(fp);
    363        1.8  christos 			(void)Fclose(fp);
    364        1.4  christos 
    365        1.4  christos 			return isprint(ch) || isspace(ch) ?
    366        1.4  christos 			    "text/plain" : "application/octet-stream";
    367        1.4  christos 		}
    368        1.4  christos 	}
    369       1.13  christos #endif
    370        1.1  christos 	magic = magic_open(MAGIC_MIME);
    371        1.1  christos 	if (magic == NULL) {
    372       1.11  christos 		warnx("magic_open: %s", magic_error(magic));
    373        1.1  christos 		return NULL;
    374        1.1  christos 	}
    375        1.1  christos 	if (magic_load(magic, NULL) != 0) {
    376       1.11  christos 		warnx("magic_load: %s", magic_error(magic));
    377        1.1  christos 		return NULL;
    378        1.1  christos 	}
    379        1.1  christos 	cp = magic_file(magic, filename);
    380        1.1  christos 	if (cp == NULL) {
    381       1.12  christos 		warnx("magic_load: %s", magic_error(magic));
    382        1.1  christos 		return NULL;
    383        1.1  christos 	}
    384        1.4  christos 	if (filename &&
    385        1.4  christos 	    sasprintf(&cp2, "%s; name=\"%s\"", cp, basename(filename)) != -1)
    386        1.4  christos 		cp = cp2;
    387        1.4  christos 	else
    388        1.4  christos 		cp = savestr(cp);
    389        1.1  christos 	magic_close(magic);
    390        1.1  christos 	return cp;
    391        1.1  christos }
    392        1.1  christos 
    393        1.1  christos static const char *
    394        1.1  christos content_type_by_fileno(int fd)
    395        1.1  christos {
    396        1.1  christos 	const char *cp;
    397        1.1  christos 	off_t cur_pos;
    398        1.1  christos 	int ofd;
    399        1.1  christos 
    400        1.1  christos 	cur_pos = lseek(fd, (off_t)0, SEEK_CUR);
    401        1.1  christos 
    402        1.1  christos 	ofd = dup(0);		/* save stdin */
    403        1.1  christos 	if (dup2(fd, 0) == -1)	/* become stdin */
    404        1.1  christos 		warn("dup2");
    405        1.1  christos 
    406        1.1  christos 	cp = content_type_by_name(NULL);
    407        1.1  christos 
    408        1.1  christos 	if (dup2(ofd, 0) == -1)	/* restore stdin */
    409        1.1  christos 		warn("dup2");
    410        1.1  christos 	(void)close(ofd);	/* close the copy */
    411        1.1  christos 
    412        1.5  christos 	(void)lseek(fd, cur_pos, SEEK_SET);
    413        1.1  christos 	return cp;
    414        1.1  christos }
    415        1.1  christos 
    416        1.1  christos static const char *
    417        1.7  christos content_type(struct attachment *ap)
    418        1.1  christos {
    419        1.7  christos 	switch (ap->a_type) {
    420        1.1  christos 	case ATTACH_FNAME:
    421        1.7  christos 		return content_type_by_name(ap->a_name);
    422        1.1  christos 	case ATTACH_MSG:
    423        1.7  christos 		/*
    424  1.20.12.1  perseant 		 * Note: the encapsulated message header must include
    425        1.7  christos 		 * at least one of the "Date:", "From:", or "Subject:"
    426        1.7  christos 		 * fields.  See rfc2046 Sec 5.2.1.
    427        1.7  christos 		 * XXX - Should we really test for this?
    428        1.7  christos 		 */
    429        1.1  christos 		return "message/rfc822";
    430        1.1  christos 	case ATTACH_FILENO:
    431        1.7  christos 		return content_type_by_fileno(ap->a_fileno);
    432        1.7  christos 	case ATTACH_INVALID:
    433        1.1  christos 	default:
    434        1.1  christos 		/* This is a coding error! */
    435        1.1  christos 		assert(/* CONSTCOND */ 0);
    436        1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    437        1.7  christos 		/* NOTREACHED */
    438        1.1  christos 	}
    439        1.1  christos }
    440        1.1  christos 
    441        1.1  christos /*************************
    442        1.1  christos  * Other content routines
    443        1.1  christos  */
    444        1.1  christos 
    445        1.1  christos static const char *
    446        1.1  christos content_disposition(struct attachment *ap)
    447        1.1  christos {
    448        1.1  christos 	switch (ap->a_type) {
    449        1.1  christos 	case ATTACH_FNAME: {
    450        1.1  christos 		char *disp;
    451        1.7  christos 		(void)sasprintf(&disp, "attachment; filename=\"%s\"",
    452        1.7  christos 		    basename(ap->a_name));
    453        1.1  christos 		return disp;
    454        1.1  christos 	}
    455        1.1  christos 	case ATTACH_MSG:
    456        1.7  christos 		return NULL;
    457        1.1  christos 	case ATTACH_FILENO:
    458        1.1  christos 		return "inline";
    459        1.5  christos 
    460        1.7  christos 	case ATTACH_INVALID:
    461        1.1  christos 	default:
    462        1.7  christos 		/* This is a coding error! */
    463        1.7  christos 		assert(/* CONSTCOND */ 0);
    464        1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    465        1.7  christos 		/* NOTREACHED */
    466        1.1  christos 	}
    467        1.1  christos }
    468        1.1  christos 
    469        1.5  christos /*ARGSUSED*/
    470        1.1  christos static const char *
    471        1.7  christos content_id(struct attachment *ap __unused)
    472        1.1  christos {
    473        1.1  christos 	/* XXX - to be written. */
    474        1.5  christos 
    475        1.1  christos 	return NULL;
    476        1.1  christos }
    477        1.1  christos 
    478        1.1  christos static const char *
    479        1.1  christos content_description(struct attachment *attach, int attach_num)
    480        1.1  christos {
    481        1.1  christos 	if (attach_num) {
    482        1.1  christos 		char *description;
    483        1.3  christos 		(void)sasprintf(&description, "attachment %d", attach_num);
    484        1.1  christos 		return description;
    485        1.1  christos 	}
    486        1.1  christos 	else
    487        1.1  christos 		return attach->a_Content.C_description;
    488        1.1  christos }
    489        1.1  christos 
    490        1.1  christos /*******************************************
    491        1.1  christos  * Routines to get the MIME content strings.
    492        1.1  christos  */
    493        1.7  christos PUBLIC struct Content
    494        1.1  christos get_mime_content(struct attachment *ap, int i)
    495        1.1  christos {
    496        1.1  christos 	struct Content Cp;
    497        1.1  christos 
    498        1.1  christos 	Cp.C_type	 = content_type(ap);
    499        1.1  christos 	Cp.C_encoding	 = content_encoding(ap, Cp.C_type);
    500        1.1  christos 	Cp.C_disposition = content_disposition(ap);
    501        1.1  christos 	Cp.C_id		 = content_id(ap);
    502        1.1  christos 	Cp.C_description = content_description(ap, i);
    503        1.1  christos 
    504        1.1  christos 	return Cp;
    505        1.1  christos }
    506        1.1  christos 
    507        1.1  christos /******************
    508        1.1  christos  * Output routines
    509        1.1  christos  */
    510        1.1  christos static void
    511        1.1  christos fput_mime_content(FILE *fp, struct Content *Cp)
    512        1.1  christos {
    513        1.1  christos 	(void)fprintf(fp, MIME_HDR_TYPE ": %s\n", Cp->C_type);
    514        1.1  christos 	(void)fprintf(fp, MIME_HDR_ENCODING ": %s\n", Cp->C_encoding);
    515        1.1  christos 	if (Cp->C_disposition)
    516        1.1  christos 		(void)fprintf(fp, MIME_HDR_DISPOSITION ": %s\n",
    517        1.1  christos 		    Cp->C_disposition);
    518        1.1  christos 	if (Cp->C_id)
    519        1.1  christos 		(void)fprintf(fp, MIME_HDR_ID ": %s\n", Cp->C_id);
    520        1.1  christos 	if (Cp->C_description)
    521        1.1  christos 		(void)fprintf(fp, MIME_HDR_DESCRIPTION ": %s\n",
    522        1.1  christos 		    Cp->C_description);
    523        1.1  christos }
    524        1.1  christos 
    525        1.1  christos static void
    526        1.1  christos fput_body(FILE *fi, FILE *fo, struct Content *Cp)
    527        1.1  christos {
    528        1.1  christos 	mime_codec_t enc;
    529        1.1  christos 
    530        1.1  christos 	enc = mime_fio_encoder(Cp->C_encoding);
    531        1.1  christos 	if (enc == NULL)
    532       1.18  christos 		warnx("unknown transfer encoding type: %s", Cp->C_encoding);
    533        1.1  christos 	else
    534        1.1  christos 		enc(fi, fo, 0);
    535        1.1  christos }
    536        1.1  christos 
    537        1.1  christos static void
    538        1.1  christos fput_attachment(FILE *fo, struct attachment *ap)
    539        1.1  christos {
    540        1.1  christos 	FILE *fi;
    541        1.1  christos 	struct Content *Cp = &ap->a_Content;
    542        1.1  christos 
    543        1.1  christos 	fput_mime_content(fo, &ap->a_Content);
    544        1.1  christos 	(void)putc('\n', fo);
    545        1.1  christos 
    546        1.1  christos 	switch (ap->a_type) {
    547        1.1  christos 	case ATTACH_FNAME:
    548       1.19  christos 		fi = Fopen(ap->a_name, "ref");
    549        1.1  christos 		if (fi == NULL)
    550        1.8  christos 			err(EXIT_FAILURE, "Fopen: %s", ap->a_name);
    551        1.1  christos 		break;
    552        1.1  christos 
    553        1.1  christos 	case ATTACH_FILENO:
    554        1.8  christos 		/*
    555        1.8  christos 		 * XXX - we should really dup(2) here, however we are
    556        1.8  christos 		 * finished with the attachment, so the Fclose() below
    557        1.8  christos 		 * is OK for now.  This will be changed in the future.
    558        1.8  christos 		 */
    559       1.19  christos 		fi = Fdopen(ap->a_fileno, "ref");
    560        1.1  christos 		if (fi == NULL)
    561        1.8  christos 			err(EXIT_FAILURE, "Fdopen: %d", ap->a_fileno);
    562        1.1  christos 		break;
    563        1.1  christos 
    564        1.7  christos 	case ATTACH_MSG: {
    565        1.7  christos 		char mailtempname[PATHSIZE];
    566        1.7  christos 		int fd;
    567        1.7  christos 
    568        1.7  christos 		fi = NULL;	/* appease gcc */
    569        1.7  christos 		(void)snprintf(mailtempname, sizeof(mailtempname),
    570        1.7  christos 		    "%s/mail.RsXXXXXXXXXX", tmpdir);
    571        1.7  christos 		if ((fd = mkstemp(mailtempname)) == -1 ||
    572       1.19  christos 		    (fi = Fdopen(fd, "wef+")) == NULL) {
    573        1.7  christos 			if (fd != -1)
    574        1.7  christos 				(void)close(fd);
    575        1.7  christos 			err(EXIT_FAILURE, "%s", mailtempname);
    576        1.7  christos 		}
    577        1.7  christos 		(void)rm(mailtempname);
    578        1.7  christos 
    579        1.7  christos 		/*
    580        1.7  christos 		 * This is only used for forwarding, so use the forwardtab[].
    581        1.7  christos 		 *
    582        1.7  christos 		 * XXX - sendmessage really needs a 'flags' argument
    583        1.7  christos 		 * so we don't have to play games.
    584        1.7  christos 		 */
    585        1.7  christos 		ap->a_msg->m_size--;	/* XXX - remove trailing newline */
    586        1.7  christos 		(void)fputc('>', fi);	/* XXX - hide the headerline */
    587        1.7  christos 		if (sendmessage(ap->a_msg, fi, forwardtab, NULL, NULL))
    588        1.7  christos 			(void)fprintf(stderr, ". . . forward failed, sorry.\n");
    589        1.7  christos 		ap->a_msg->m_size++;
    590        1.7  christos 
    591        1.7  christos 		rewind(fi);
    592        1.7  christos 		break;
    593        1.7  christos 	}
    594        1.7  christos 	case ATTACH_INVALID:
    595        1.1  christos 	default:
    596        1.7  christos 		/* This is a coding error! */
    597        1.7  christos 		assert(/* CONSTCOND */ 0);
    598        1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    599        1.1  christos 	}
    600        1.1  christos 
    601        1.1  christos 	fput_body(fi, fo, Cp);
    602        1.8  christos 	(void)Fclose(fi);
    603        1.1  christos }
    604        1.1  christos 
    605        1.1  christos /***********************************
    606        1.1  christos  * Higher level attachment routines.
    607        1.1  christos  */
    608        1.1  christos 
    609        1.1  christos static int
    610        1.1  christos mktemp_file(FILE **nfo, FILE **nfi, const char *hint)
    611        1.1  christos {
    612        1.1  christos 	char tempname[PATHSIZE];
    613        1.1  christos 	int fd, fd2;
    614        1.1  christos 	(void)snprintf(tempname, sizeof(tempname), "%s/%sXXXXXXXXXX",
    615        1.1  christos 	    tmpdir, hint);
    616        1.1  christos 	if ((fd = mkstemp(tempname)) == -1 ||
    617       1.19  christos 	    (*nfo = Fdopen(fd, "wef")) == NULL) {
    618        1.1  christos 		if (fd != -1)
    619        1.1  christos 			(void)close(fd);
    620        1.1  christos 		warn("%s", tempname);
    621        1.1  christos 		return -1;
    622        1.1  christos 	}
    623        1.1  christos 	(void)rm(tempname);
    624        1.1  christos 	if ((fd2 = dup(fd)) == -1 ||
    625       1.19  christos 	    (*nfi = Fdopen(fd2, "ref")) == NULL) {
    626        1.1  christos 		warn("%s", tempname);
    627        1.1  christos 		(void)Fclose(*nfo);
    628        1.1  christos 		return -1;
    629        1.1  christos 	}
    630        1.1  christos 	return 0;
    631        1.1  christos }
    632        1.1  christos 
    633        1.1  christos /*
    634        1.1  christos  * Repackage the mail as a multipart MIME message.  This should always
    635        1.1  christos  * be called whenever there are attachments, but might be called even
    636        1.1  christos  * if there are none if we want to wrap the message in a MIME package.
    637        1.1  christos  */
    638        1.1  christos PUBLIC FILE *
    639        1.1  christos mime_encode(FILE *fi, struct header *header)
    640        1.1  christos {
    641        1.1  christos 	struct attachment map;	/* fake structure for the message body */
    642        1.1  christos 	struct attachment *attach;
    643        1.1  christos 	struct attachment *ap;
    644        1.1  christos 	FILE *nfi, *nfo;
    645        1.1  christos 
    646        1.1  christos 	attach = header->h_attach;
    647        1.1  christos 
    648        1.1  christos 	/*
    649        1.1  christos 	 * Make new phantom temporary file with read and write file
    650        1.1  christos 	 * handles: nfi and nfo, resp.
    651        1.1  christos 	 */
    652        1.1  christos 	if (mktemp_file(&nfo, &nfi, "mail.Rs") != 0)
    653        1.1  christos 		return fi;
    654        1.1  christos 
    655        1.1  christos 	(void)memset(&map, 0, sizeof(map));
    656        1.1  christos 	map.a_type = ATTACH_FILENO;
    657        1.1  christos 	map.a_fileno = fileno(fi);
    658        1.1  christos 
    659        1.1  christos  	map.a_Content = get_mime_content(&map, 0);
    660        1.1  christos 
    661        1.1  christos 	if (attach) {
    662        1.1  christos 		/* Multi-part message:
    663        1.1  christos 		 * Make an attachment structure for the body message
    664        1.1  christos 		 * and make that the first element in the attach list.
    665        1.1  christos 		 */
    666        1.1  christos 		if (fsize(fi)) {
    667        1.1  christos 			map.a_flink = attach;
    668        1.1  christos 			attach->a_blink = &map;
    669        1.1  christos 			attach = &map;
    670        1.1  christos 		}
    671        1.1  christos 
    672        1.1  christos 		/* Construct our MIME boundary string - used by mime_putheader() */
    673        1.1  christos 		header->h_mime_boundary = make_boundary();
    674        1.5  christos 
    675        1.1  christos 		(void)fprintf(nfo, "This is a multi-part message in MIME format.\n");
    676        1.5  christos 
    677        1.1  christos 		for (ap = attach; ap; ap = ap->a_flink) {
    678        1.1  christos 			(void)fprintf(nfo, "\n--%s\n", header->h_mime_boundary);
    679        1.1  christos 			fput_attachment(nfo, ap);
    680        1.1  christos 		}
    681        1.5  christos 
    682        1.1  christos 		/* the final boundary with two attached dashes */
    683        1.1  christos 		(void)fprintf(nfo, "\n--%s--\n", header->h_mime_boundary);
    684        1.1  christos 	}
    685        1.1  christos 	else {
    686        1.1  christos 		/* Single-part message (no attachments):
    687        1.1  christos 		 * Update header->h_Content (used by mime_putheader()).
    688        1.1  christos 		 * Output the body contents.
    689        1.1  christos 		 */
    690        1.1  christos 		char *encoding;
    691        1.1  christos 
    692        1.1  christos 		header->h_Content = map.a_Content;
    693        1.5  christos 
    694        1.1  christos 		/* check for an encoding override */
    695        1.1  christos 		if ((encoding = value(ENAME_MIME_ENCODE_MSG)) && *encoding)
    696        1.1  christos 			header->h_Content.C_encoding = encoding;
    697        1.1  christos 
    698        1.1  christos 		fput_body(fi, nfo, &header->h_Content);
    699        1.1  christos 	}
    700        1.1  christos 	(void)Fclose(fi);
    701        1.1  christos 	(void)Fclose(nfo);
    702        1.1  christos 	rewind(nfi);
    703        1.3  christos 	return nfi;
    704        1.1  christos }
    705        1.1  christos 
    706        1.1  christos static char*
    707        1.1  christos check_filename(char *filename, char *canon_name)
    708        1.1  christos {
    709        1.1  christos 	int fd;
    710        1.1  christos 	struct stat sb;
    711        1.1  christos 	char *fname = filename;
    712        1.3  christos 
    713        1.2  christos 	/* We need to expand '~' if we got here from '~@'.  The shell
    714        1.2  christos 	 * does this otherwise.
    715        1.2  christos 	 */
    716        1.1  christos 	if (fname[0] == '~' && fname[1] == '/') {
    717        1.2  christos 		if (homedir && homedir[0] != '~')
    718        1.2  christos 			(void)easprintf(&fname, "%s/%s",
    719        1.2  christos 			    homedir, fname + 2);
    720        1.1  christos 	}
    721        1.1  christos 	if (realpath(fname, canon_name) == NULL) {
    722        1.1  christos 		warn("realpath: %s", filename);
    723        1.1  christos 		canon_name = NULL;
    724        1.1  christos 		goto done;
    725        1.1  christos 	}
    726        1.1  christos 	fd = open(canon_name, O_RDONLY, 0);
    727        1.1  christos 	if (fd == -1) {
    728        1.1  christos 		warnx("open: cannot read %s", filename);
    729        1.1  christos 		canon_name = NULL;
    730        1.1  christos 		goto done;
    731        1.1  christos 	}
    732        1.1  christos 	if (fstat(fd, &sb) == -1) {
    733        1.1  christos 		warn("stat: %s", canon_name);
    734        1.1  christos 		canon_name = NULL;
    735        1.1  christos 		goto do_close;
    736        1.1  christos 	}
    737        1.1  christos 	if (!S_ISREG(sb.st_mode)) {
    738        1.1  christos 		warnx("stat: %s is not a file", filename);
    739        1.1  christos 		canon_name = NULL;
    740        1.2  christos 	     /*	goto do_close; */
    741        1.1  christos 	}
    742        1.1  christos  do_close:
    743        1.1  christos 	(void)close(fd);
    744        1.1  christos  done:
    745        1.1  christos 	if (fname != filename)
    746        1.1  christos 		free(fname);
    747        1.1  christos 
    748        1.1  christos 	return canon_name;
    749        1.1  christos }
    750        1.1  christos 
    751        1.1  christos static struct attachment *
    752        1.7  christos attach_one_file(struct attachment *ap, char *filename, int attach_num)
    753        1.1  christos {
    754        1.1  christos 	char canon_name[MAXPATHLEN];
    755        1.7  christos 	struct attachment *nap;
    756        1.1  christos 
    757        1.3  christos 	/*
    758        1.7  christos 	 * 1) check that filename is really a readable file; return NULL if not.
    759        1.3  christos 	 * 2) allocate an attachment structure.
    760        1.3  christos 	 * 3) save cananonical name for filename, so cd won't screw things later.
    761        1.3  christos 	 * 4) add the structure to the end of the chain.
    762        1.7  christos 	 * 5) return the new attachment structure.
    763        1.3  christos 	 */
    764        1.1  christos 	if (check_filename(filename, canon_name) == NULL)
    765        1.1  christos 		return NULL;
    766        1.5  christos 
    767        1.1  christos 	nap = csalloc(1, sizeof(*nap));
    768        1.1  christos 	nap->a_type = ATTACH_FNAME;
    769        1.1  christos 	nap->a_name = savestr(canon_name);
    770        1.1  christos 
    771        1.7  christos 	if (ap) {
    772        1.7  christos 		for (/*EMPTY*/; ap->a_flink != NULL; ap = ap->a_flink)
    773        1.1  christos 			continue;
    774        1.1  christos 		ap->a_flink = nap;
    775        1.1  christos 		nap->a_blink = ap;
    776        1.1  christos 	}
    777        1.1  christos 
    778        1.1  christos 	if (attach_num)
    779        1.1  christos 		nap->a_Content = get_mime_content(nap, attach_num);
    780        1.1  christos 
    781        1.7  christos 	return nap;
    782        1.1  christos }
    783        1.1  christos 
    784        1.1  christos static char *
    785        1.1  christos get_line(el_mode_t *em, const char *pr, const char *str, int i)
    786        1.1  christos {
    787        1.3  christos 	char *prompt;
    788        1.1  christos 	char *line;
    789        1.1  christos 
    790        1.3  christos 	/*
    791        1.3  christos 	 * Don't use a '\t' in the format string here as completion
    792        1.3  christos 	 * seems to handle it badly.
    793        1.3  christos 	 */
    794        1.7  christos 	(void)easprintf(&prompt, "#%-7d %s: ", i, pr);
    795       1.12  christos 	line = my_gets(em, prompt, __UNCONST(str));
    796       1.12  christos 	if (line != NULL) {
    797       1.12  christos 		(void)strip_WSP(line);	/* strip trailing whitespace */
    798       1.12  christos 		line = skip_WSP(line);	/* skip leading white space */
    799       1.12  christos 		line = savestr(line);	/* XXX - do we need this? */
    800       1.12  christos 	}
    801       1.12  christos 	else {
    802       1.12  christos 		line = __UNCONST("");
    803       1.12  christos 	}
    804        1.1  christos 	free(prompt);
    805        1.1  christos 
    806        1.3  christos 	return line;
    807        1.1  christos }
    808        1.1  christos 
    809        1.1  christos static void
    810        1.1  christos sget_line(el_mode_t *em, const char *pr, const char **str, int i)
    811        1.1  christos {
    812        1.1  christos 	char *line;
    813        1.1  christos 	line = get_line(em, pr, *str, i);
    814       1.12  christos 	if (line != NULL && strcmp(line, *str) != 0)
    815       1.12  christos 		*str = line;
    816        1.1  christos }
    817        1.1  christos 
    818        1.1  christos static void
    819        1.1  christos sget_encoding(const char **str, const char *filename, const char *ctype, int num)
    820        1.1  christos {
    821        1.1  christos 	const char *ename;
    822        1.1  christos 	const char *defename;
    823        1.1  christos 
    824        1.1  christos 	defename = NULL;
    825        1.1  christos 	ename = *str;
    826        1.1  christos 	for (;;) {
    827        1.1  christos 		ename = get_line(&elm.mime_enc, "encoding", ename, num);
    828        1.1  christos 
    829        1.1  christos 		if (*ename == '\0') {
    830        1.1  christos 			if (defename == NULL)
    831        1.1  christos 				defename = content_encoding_by_name(filename, ctype);
    832        1.1  christos 			ename = defename;
    833        1.1  christos 		}
    834        1.1  christos 		else if (mime_fio_encoder(ename) == NULL) {
    835        1.1  christos 			const void *cookie;
    836        1.1  christos 			(void)printf("Sorry: valid encoding modes are: ");
    837        1.1  christos 			cookie = NULL;
    838        1.1  christos 			ename = mime_next_encoding_name(&cookie);
    839        1.1  christos 			for (;;) {
    840        1.1  christos 				(void)printf("%s", ename);
    841        1.1  christos 				ename = mime_next_encoding_name(&cookie);
    842        1.1  christos 				if (ename == NULL)
    843        1.1  christos 					break;
    844        1.1  christos 				(void)fputc(',', stdout);
    845        1.1  christos 			}
    846        1.7  christos 			(void)putchar('\n');
    847        1.1  christos 			ename = *str;
    848        1.1  christos 		}
    849        1.1  christos 		else {
    850        1.1  christos 			if (strcmp(ename, *str) != 0)
    851        1.1  christos 				*str = savestr(ename);
    852        1.1  christos 			break;
    853        1.1  christos 		}
    854        1.1  christos 	}
    855        1.1  christos }
    856        1.1  christos 
    857        1.7  christos /*
    858        1.7  christos  * Edit an attachment list.
    859        1.7  christos  * Return the new attachment list.
    860        1.7  christos  */
    861        1.1  christos static struct attachment *
    862        1.7  christos edit_attachlist(struct attachment *alist)
    863        1.1  christos {
    864        1.1  christos 	struct attachment *ap;
    865        1.1  christos 	char *line;
    866        1.2  christos 	int attach_num;
    867        1.1  christos 
    868        1.1  christos 	(void)printf("Attachments:\n");
    869        1.1  christos 
    870        1.2  christos 	attach_num = 1;
    871        1.7  christos 	ap = alist;
    872        1.1  christos 	while (ap) {
    873        1.7  christos 		SHOW_ALIST(alist, ap);
    874        1.7  christos 
    875        1.7  christos 		switch(ap->a_type) {
    876        1.7  christos 		case ATTACH_MSG:
    877        1.7  christos 			(void)printf("#%-7d message:  <not changeable>\n",
    878        1.7  christos 			    attach_num);
    879        1.7  christos 			break;
    880        1.7  christos 		case ATTACH_FNAME:
    881        1.7  christos 		case ATTACH_FILENO:
    882        1.7  christos 			line = get_line(&elm.filec, "filename", ap->a_name, attach_num);
    883        1.7  christos 			if (*line == '\0') {	/* omit this attachment */
    884        1.7  christos 				if (ap->a_blink) {
    885        1.7  christos 					struct attachment *next_ap;
    886        1.7  christos 					next_ap = ap->a_flink;
    887        1.7  christos 					ap = ap->a_blink;
    888        1.7  christos 					ap->a_flink = next_ap;
    889        1.7  christos 					if (next_ap)
    890        1.7  christos 						next_ap->a_blink = ap;
    891        1.7  christos 					else
    892        1.7  christos 						goto done;
    893        1.7  christos 				}
    894        1.7  christos 				else {
    895        1.7  christos 					alist = ap->a_flink;
    896        1.7  christos 					if (alist)
    897        1.7  christos 						alist->a_blink = NULL;
    898        1.7  christos 				}
    899        1.7  christos 			}
    900        1.7  christos 			else {
    901        1.7  christos 				char canon_name[MAXPATHLEN];
    902        1.7  christos 				if (strcmp(line, ap->a_name) != 0) { /* new filename */
    903        1.7  christos 					if (check_filename(line, canon_name) == NULL)
    904        1.7  christos 						continue;
    905        1.7  christos 					ap->a_name = savestr(canon_name);
    906        1.7  christos 					ap->a_Content = get_mime_content(ap, 0);
    907        1.7  christos 				}
    908        1.7  christos 				sget_line(&elm.string, "description",
    909        1.7  christos 				    &ap->a_Content.C_description, attach_num);
    910        1.7  christos 				sget_encoding(&ap->a_Content.C_encoding, ap->a_name,
    911        1.7  christos 				    ap->a_Content.C_type, attach_num);
    912        1.1  christos 			}
    913        1.7  christos 			break;
    914        1.7  christos 		case ATTACH_INVALID:
    915        1.7  christos 		default:
    916        1.7  christos 			/* This is a coding error! */
    917        1.7  christos 			assert(/* CONSTCOND */ 0);
    918        1.7  christos 			errx(EXIT_FAILURE, "invalid attachment type: %d",
    919        1.7  christos 			    ap->a_type);
    920        1.1  christos 		}
    921        1.7  christos 
    922        1.2  christos 		attach_num++;
    923        1.7  christos 		if (alist == NULL || ap->a_flink == NULL)
    924        1.1  christos 			break;
    925        1.1  christos 
    926        1.1  christos 		ap = ap->a_flink;
    927        1.1  christos 	}
    928        1.1  christos 
    929        1.7  christos 	ap = alist;
    930        1.7  christos 	for (;;) {
    931        1.1  christos 		struct attachment *nap;
    932        1.1  christos 
    933        1.7  christos 		SHOW_ALIST(alist, ap);
    934        1.7  christos 
    935        1.2  christos 		line = get_line(&elm.filec, "filename", "", attach_num);
    936        1.1  christos 		if (*line == '\0')
    937        1.1  christos 			break;
    938        1.1  christos 
    939        1.2  christos 		nap = attach_one_file(ap, line, attach_num);
    940        1.1  christos 		if (nap == NULL)
    941        1.1  christos 			continue;
    942        1.1  christos 
    943        1.7  christos 		if (alist == NULL)
    944        1.7  christos 			alist = nap;
    945        1.7  christos 		ap = nap;
    946        1.1  christos 
    947        1.2  christos 		sget_line(&elm.string, "description",
    948        1.2  christos 		    &ap->a_Content.C_description, attach_num);
    949        1.2  christos 		sget_encoding(&ap->a_Content.C_encoding, ap->a_name,
    950        1.2  christos 		    ap->a_Content.C_type, attach_num);
    951        1.2  christos 		attach_num++;
    952        1.7  christos 	}
    953        1.7  christos  done:
    954        1.7  christos 	SHOW_ALIST(alist, ap);
    955        1.1  christos 
    956        1.7  christos 	return alist;
    957        1.1  christos }
    958        1.1  christos 
    959        1.1  christos /*
    960        1.2  christos  * Hook used by the '~@' escape to attach files.
    961        1.1  christos  */
    962        1.1  christos PUBLIC struct attachment*
    963       1.12  christos mime_attach_files(struct attachment * volatile attach, char *linebuf)
    964        1.1  christos {
    965        1.1  christos 	struct attachment *ap;
    966        1.1  christos 	char *argv[MAXARGC];
    967        1.1  christos 	int argc;
    968        1.1  christos 	int attach_num;
    969        1.1  christos 
    970       1.12  christos 	argc = getrawlist(linebuf, argv, (int)__arraycount(argv));
    971        1.2  christos 	attach_num = 1;
    972        1.1  christos 	for (ap = attach; ap && ap->a_flink; ap = ap->a_flink)
    973        1.1  christos 			attach_num++;
    974        1.1  christos 
    975        1.1  christos 	if (argc) {
    976        1.1  christos 		int i;
    977        1.1  christos 		for (i = 0; i < argc; i++) {
    978        1.2  christos 			struct attachment *ap2;
    979        1.2  christos 			ap2 = attach_one_file(ap, argv[i], attach_num);
    980        1.2  christos 			if (ap2 != NULL) {
    981        1.2  christos 				ap = ap2;
    982        1.2  christos 				if (attach == NULL)
    983        1.2  christos 					attach = ap;
    984        1.2  christos 				attach_num++;
    985        1.2  christos 			}
    986        1.1  christos 		}
    987        1.1  christos 	}
    988        1.1  christos 	else {
    989        1.7  christos 		attach = edit_attachlist(attach);
    990        1.1  christos 		(void)printf("--- end attachments ---\n");
    991        1.1  christos 	}
    992        1.1  christos 
    993        1.1  christos 	return attach;
    994        1.1  christos }
    995        1.1  christos 
    996        1.1  christos /*
    997        1.2  christos  * Hook called in main() to attach files registered by the '-a' flag.
    998        1.2  christos  */
    999        1.2  christos PUBLIC struct attachment *
   1000        1.2  christos mime_attach_optargs(struct name *optargs)
   1001        1.2  christos {
   1002        1.2  christos 	struct attachment *attach;
   1003        1.2  christos 	struct attachment *ap;
   1004        1.2  christos 	struct name *np;
   1005        1.2  christos 	char *expand_optargs;
   1006        1.2  christos 	int attach_num;
   1007        1.2  christos 
   1008        1.2  christos 	expand_optargs = value(ENAME_MIME_ATTACH_LIST);
   1009        1.2  christos 	attach_num = 1;
   1010        1.2  christos 	ap = NULL;
   1011        1.2  christos 	attach = NULL;
   1012        1.2  christos 	for (np = optargs; np; np = np->n_flink) {
   1013        1.2  christos 		char *argv[MAXARGC];
   1014        1.2  christos 		int argc;
   1015        1.2  christos 		int i;
   1016        1.2  christos 
   1017        1.2  christos 		if (expand_optargs != NULL)
   1018       1.12  christos 			argc = getrawlist(np->n_name,
   1019       1.12  christos 			    argv, (int)__arraycount(argv));
   1020        1.2  christos 		else {
   1021       1.20       mrg 			if (np->n_name == NULL)
   1022        1.2  christos 				argc = 0;
   1023        1.2  christos 			else {
   1024        1.2  christos 				argc = 1;
   1025        1.2  christos 				argv[0] = np->n_name;
   1026        1.2  christos 			}
   1027        1.2  christos 			argv[argc] = NULL;/* be consistent with getrawlist() */
   1028        1.2  christos 		}
   1029        1.2  christos 		for (i = 0; i < argc; i++) {
   1030        1.2  christos 			struct attachment *ap2;
   1031        1.2  christos 			char *filename;
   1032        1.5  christos 
   1033        1.2  christos 			if (argv[i][0] == '/')	/* an absolute path */
   1034        1.2  christos 				(void)easprintf(&filename, "%s", argv[i]);
   1035        1.2  christos 			else
   1036        1.2  christos 				(void)easprintf(&filename, "%s/%s",
   1037        1.2  christos 				    origdir, argv[i]);
   1038        1.2  christos 
   1039        1.2  christos 			ap2 = attach_one_file(ap, filename, attach_num);
   1040        1.2  christos 			if (ap2 != NULL) {
   1041        1.2  christos 				ap = ap2;
   1042        1.2  christos 				if (attach == NULL)
   1043        1.2  christos 					attach = ap;
   1044        1.2  christos 				attach_num++;
   1045        1.2  christos 			}
   1046        1.7  christos 			free(filename);
   1047        1.2  christos 		}
   1048        1.2  christos 	}
   1049        1.2  christos 	return attach;
   1050        1.2  christos }
   1051        1.2  christos 
   1052        1.2  christos /*
   1053        1.1  christos  * Output MIME header strings as specified in the header structure.
   1054        1.1  christos  */
   1055        1.1  christos PUBLIC void
   1056        1.1  christos mime_putheader(FILE *fp, struct header *header)
   1057        1.1  christos {
   1058        1.1  christos 	(void)fprintf(fp, MIME_HDR_VERSION ": " MIME_VERSION "\n");
   1059        1.1  christos 	if (header->h_attach) {
   1060        1.1  christos 		(void)fprintf(fp, MIME_HDR_TYPE ": multipart/mixed;\n");
   1061        1.1  christos 		(void)fprintf(fp, "\tboundary=\"%s\"\n", header->h_mime_boundary);
   1062        1.1  christos 	}
   1063        1.1  christos 	else {
   1064        1.1  christos 		fput_mime_content(fp, &header->h_Content);
   1065        1.1  christos 	}
   1066        1.1  christos }
   1067        1.1  christos 
   1068        1.1  christos #endif /* MIME_SUPPORT */
   1069