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