xref: /freebsd/contrib/sendmail/src/mime.c (revision af9557fdd1de47bcfff61cccba2930e93ec4e69b)
1c2aa98e2SPeter Wemm /*
2af9557fdSGregory Neil Shapiro  * Copyright (c) 1998-2003, 2006 Sendmail, Inc. and its suppliers.
306f25ae9SGregory Neil Shapiro  *	All rights reserved.
4c2aa98e2SPeter Wemm  * Copyright (c) 1994, 1996-1997 Eric P. Allman.  All rights reserved.
5c2aa98e2SPeter Wemm  * Copyright (c) 1994
6c2aa98e2SPeter Wemm  *	The Regents of the University of California.  All rights reserved.
7c2aa98e2SPeter Wemm  *
8c2aa98e2SPeter Wemm  * By using this file, you agree to the terms and conditions set
9c2aa98e2SPeter Wemm  * forth in the LICENSE file which can be found at the top level of
10c2aa98e2SPeter Wemm  * the sendmail distribution.
11c2aa98e2SPeter Wemm  *
12c2aa98e2SPeter Wemm  */
13c2aa98e2SPeter Wemm 
1406f25ae9SGregory Neil Shapiro #include <sendmail.h>
15c2aa98e2SPeter Wemm #include <string.h>
16c2aa98e2SPeter Wemm 
17af9557fdSGregory Neil Shapiro SM_RCSID("@(#)$Id: mime.c,v 8.142.2.1 2006/05/23 01:32:08 ca Exp $")
18c2aa98e2SPeter Wemm 
19c2aa98e2SPeter Wemm /*
20c2aa98e2SPeter Wemm **  MIME support.
21c2aa98e2SPeter Wemm **
22c2aa98e2SPeter Wemm **	I am indebted to John Beck of Hewlett-Packard, who contributed
23c2aa98e2SPeter Wemm **	his code to me for inclusion.  As it turns out, I did not use
24c2aa98e2SPeter Wemm **	his code since he used a "minimum change" approach that used
25c2aa98e2SPeter Wemm **	several temp files, and I wanted a "minimum impact" approach
26c2aa98e2SPeter Wemm **	that would avoid copying.  However, looking over his code
27c2aa98e2SPeter Wemm **	helped me cement my understanding of the problem.
28c2aa98e2SPeter Wemm **
29c2aa98e2SPeter Wemm **	I also looked at, but did not directly use, Nathaniel
30c2aa98e2SPeter Wemm **	Borenstein's "code.c" module.  Again, it functioned as
31c2aa98e2SPeter Wemm **	a file-to-file translator, which did not fit within my
32c2aa98e2SPeter Wemm **	design bounds, but it was a useful base for understanding
33c2aa98e2SPeter Wemm **	the problem.
34c2aa98e2SPeter Wemm */
35c2aa98e2SPeter Wemm 
36323f6dcbSGregory Neil Shapiro /* use "old" mime 7 to 8 algorithm by default */
37323f6dcbSGregory Neil Shapiro #ifndef MIME7TO8_OLD
38323f6dcbSGregory Neil Shapiro # define MIME7TO8_OLD	1
39323f6dcbSGregory Neil Shapiro #endif /* ! MIME7TO8_OLD */
40323f6dcbSGregory Neil Shapiro 
41c2aa98e2SPeter Wemm #if MIME8TO7
4240266059SGregory Neil Shapiro static int	isboundary __P((char *, char **));
4340266059SGregory Neil Shapiro static int	mimeboundary __P((char *, char **));
4440266059SGregory Neil Shapiro static int	mime_getchar __P((SM_FILE_T *, char **, int *));
4540266059SGregory Neil Shapiro static int	mime_getchar_crlf __P((SM_FILE_T *, char **, int *));
46c2aa98e2SPeter Wemm 
47c2aa98e2SPeter Wemm /* character set for hex and base64 encoding */
4806f25ae9SGregory Neil Shapiro static char	Base16Code[] =	"0123456789ABCDEF";
4906f25ae9SGregory Neil Shapiro static char	Base64Code[] =	"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
50c2aa98e2SPeter Wemm 
51c2aa98e2SPeter Wemm /* types of MIME boundaries */
52c2aa98e2SPeter Wemm # define MBT_SYNTAX	0	/* syntax error */
53c2aa98e2SPeter Wemm # define MBT_NOTSEP	1	/* not a boundary */
54c2aa98e2SPeter Wemm # define MBT_INTERMED	2	/* intermediate boundary (no trailing --) */
55c2aa98e2SPeter Wemm # define MBT_FINAL	3	/* final boundary (trailing -- included) */
56c2aa98e2SPeter Wemm 
57c2aa98e2SPeter Wemm static char	*MimeBoundaryNames[] =
58c2aa98e2SPeter Wemm {
59c2aa98e2SPeter Wemm 	"SYNTAX",	"NOTSEP",	"INTERMED",	"FINAL"
60c2aa98e2SPeter Wemm };
61c2aa98e2SPeter Wemm 
6206f25ae9SGregory Neil Shapiro static bool	MapNLtoCRLF;
63c2aa98e2SPeter Wemm 
6440266059SGregory Neil Shapiro /*
65c2aa98e2SPeter Wemm **  MIME8TO7 -- output 8 bit body in 7 bit format
66c2aa98e2SPeter Wemm **
67c2aa98e2SPeter Wemm **	The header has already been output -- this has to do the
68c2aa98e2SPeter Wemm **	8 to 7 bit conversion.  It would be easy if we didn't have
69c2aa98e2SPeter Wemm **	to deal with nested formats (multipart/xxx and message/rfc822).
70c2aa98e2SPeter Wemm **
71c2aa98e2SPeter Wemm **	We won't be called if we don't have to do a conversion, and
72c2aa98e2SPeter Wemm **	appropriate MIME-Version: and Content-Type: fields have been
73c2aa98e2SPeter Wemm **	output.  Any Content-Transfer-Encoding: field has not been
74c2aa98e2SPeter Wemm **	output, and we can add it here.
75c2aa98e2SPeter Wemm **
76c2aa98e2SPeter Wemm **	Parameters:
77c2aa98e2SPeter Wemm **		mci -- mailer connection information.
78c2aa98e2SPeter Wemm **		header -- the header for this body part.
79c2aa98e2SPeter Wemm **		e -- envelope.
80c2aa98e2SPeter Wemm **		boundaries -- the currently pending message boundaries.
81c2aa98e2SPeter Wemm **			NULL if we are processing the outer portion.
82c2aa98e2SPeter Wemm **		flags -- to tweak processing.
83af9557fdSGregory Neil Shapiro **		level -- recursion level.
84c2aa98e2SPeter Wemm **
85c2aa98e2SPeter Wemm **	Returns:
86c2aa98e2SPeter Wemm **		An indicator of what terminated the message part:
87c2aa98e2SPeter Wemm **		  MBT_FINAL -- the final boundary
88c2aa98e2SPeter Wemm **		  MBT_INTERMED -- an intermediate boundary
89c2aa98e2SPeter Wemm **		  MBT_NOTSEP -- an end of file
904e4196cbSGregory Neil Shapiro **		  SM_IO_EOF -- I/O error occurred
91c2aa98e2SPeter Wemm */
92c2aa98e2SPeter Wemm 
93c2aa98e2SPeter Wemm struct args
94c2aa98e2SPeter Wemm {
9506f25ae9SGregory Neil Shapiro 	char	*a_field;	/* name of field */
9606f25ae9SGregory Neil Shapiro 	char	*a_value;	/* value of that field */
97c2aa98e2SPeter Wemm };
98c2aa98e2SPeter Wemm 
99c2aa98e2SPeter Wemm int
100af9557fdSGregory Neil Shapiro mime8to7(mci, header, e, boundaries, flags, level)
101c2aa98e2SPeter Wemm 	register MCI *mci;
102c2aa98e2SPeter Wemm 	HDR *header;
103c2aa98e2SPeter Wemm 	register ENVELOPE *e;
104c2aa98e2SPeter Wemm 	char **boundaries;
105c2aa98e2SPeter Wemm 	int flags;
106af9557fdSGregory Neil Shapiro 	int level;
107c2aa98e2SPeter Wemm {
108c2aa98e2SPeter Wemm 	register char *p;
109c2aa98e2SPeter Wemm 	int linelen;
110c2aa98e2SPeter Wemm 	int bt;
111c2aa98e2SPeter Wemm 	off_t offset;
112c2aa98e2SPeter Wemm 	size_t sectionsize, sectionhighbits;
113c2aa98e2SPeter Wemm 	int i;
114c2aa98e2SPeter Wemm 	char *type;
115c2aa98e2SPeter Wemm 	char *subtype;
116c2aa98e2SPeter Wemm 	char *cte;
117c2aa98e2SPeter Wemm 	char **pvp;
118c2aa98e2SPeter Wemm 	int argc = 0;
119c2aa98e2SPeter Wemm 	char *bp;
12040266059SGregory Neil Shapiro 	bool use_qp = false;
121c2aa98e2SPeter Wemm 	struct args argv[MAXMIMEARGS];
122c2aa98e2SPeter Wemm 	char bbuf[128];
123c2aa98e2SPeter Wemm 	char buf[MAXLINE];
124c2aa98e2SPeter Wemm 	char pvpbuf[MAXLINE];
12540266059SGregory Neil Shapiro 	extern unsigned char MimeTokenTab[256];
126c2aa98e2SPeter Wemm 
127af9557fdSGregory Neil Shapiro 	if (level > MAXMIMENESTING)
128af9557fdSGregory Neil Shapiro 	{
129af9557fdSGregory Neil Shapiro 		if (!bitset(EF_TOODEEP, e->e_flags))
130af9557fdSGregory Neil Shapiro 		{
131af9557fdSGregory Neil Shapiro 			if (tTd(43, 4))
132af9557fdSGregory Neil Shapiro 				sm_dprintf("mime8to7: too deep, level=%d\n",
133af9557fdSGregory Neil Shapiro 					   level);
134af9557fdSGregory Neil Shapiro 			usrerr("mime8to7: recursion level %d exceeded",
135af9557fdSGregory Neil Shapiro 				level);
136af9557fdSGregory Neil Shapiro 			e->e_flags |= EF_DONT_MIME|EF_TOODEEP;
137af9557fdSGregory Neil Shapiro 		}
138af9557fdSGregory Neil Shapiro 	}
139c2aa98e2SPeter Wemm 	if (tTd(43, 1))
140c2aa98e2SPeter Wemm 	{
14140266059SGregory Neil Shapiro 		sm_dprintf("mime8to7: flags = %x, boundaries =", flags);
142c2aa98e2SPeter Wemm 		if (boundaries[0] == NULL)
14340266059SGregory Neil Shapiro 			sm_dprintf(" <none>");
144c2aa98e2SPeter Wemm 		else
145c2aa98e2SPeter Wemm 		{
146c2aa98e2SPeter Wemm 			for (i = 0; boundaries[i] != NULL; i++)
14740266059SGregory Neil Shapiro 				sm_dprintf(" %s", boundaries[i]);
148c2aa98e2SPeter Wemm 		}
14940266059SGregory Neil Shapiro 		sm_dprintf("\n");
150c2aa98e2SPeter Wemm 	}
15140266059SGregory Neil Shapiro 	MapNLtoCRLF = true;
152c2aa98e2SPeter Wemm 	p = hvalue("Content-Transfer-Encoding", header);
153c2aa98e2SPeter Wemm 	if (p == NULL ||
154c2aa98e2SPeter Wemm 	    (pvp = prescan(p, '\0', pvpbuf, sizeof pvpbuf, NULL,
155e92d3f3fSGregory Neil Shapiro 			   MimeTokenTab, false)) == NULL ||
156c2aa98e2SPeter Wemm 	    pvp[0] == NULL)
157c2aa98e2SPeter Wemm 	{
158c2aa98e2SPeter Wemm 		cte = NULL;
159c2aa98e2SPeter Wemm 	}
160c2aa98e2SPeter Wemm 	else
161c2aa98e2SPeter Wemm 	{
162c2aa98e2SPeter Wemm 		cataddr(pvp, NULL, buf, sizeof buf, '\0');
16340266059SGregory Neil Shapiro 		cte = sm_rpool_strdup_x(e->e_rpool, buf);
164c2aa98e2SPeter Wemm 	}
165c2aa98e2SPeter Wemm 
166c2aa98e2SPeter Wemm 	type = subtype = NULL;
167c2aa98e2SPeter Wemm 	p = hvalue("Content-Type", header);
168c2aa98e2SPeter Wemm 	if (p == NULL)
169c2aa98e2SPeter Wemm 	{
170c2aa98e2SPeter Wemm 		if (bitset(M87F_DIGEST, flags))
171c2aa98e2SPeter Wemm 			p = "message/rfc822";
172c2aa98e2SPeter Wemm 		else
173c2aa98e2SPeter Wemm 			p = "text/plain";
174c2aa98e2SPeter Wemm 	}
175c2aa98e2SPeter Wemm 	if (p != NULL &&
176c2aa98e2SPeter Wemm 	    (pvp = prescan(p, '\0', pvpbuf, sizeof pvpbuf, NULL,
177e92d3f3fSGregory Neil Shapiro 			   MimeTokenTab, false)) != NULL &&
178c2aa98e2SPeter Wemm 	    pvp[0] != NULL)
179c2aa98e2SPeter Wemm 	{
180c2aa98e2SPeter Wemm 		if (tTd(43, 40))
181c2aa98e2SPeter Wemm 		{
182c2aa98e2SPeter Wemm 			for (i = 0; pvp[i] != NULL; i++)
18340266059SGregory Neil Shapiro 				sm_dprintf("pvp[%d] = \"%s\"\n", i, pvp[i]);
184c2aa98e2SPeter Wemm 		}
185c2aa98e2SPeter Wemm 		type = *pvp++;
186c2aa98e2SPeter Wemm 		if (*pvp != NULL && strcmp(*pvp, "/") == 0 &&
187c2aa98e2SPeter Wemm 		    *++pvp != NULL)
188c2aa98e2SPeter Wemm 		{
189c2aa98e2SPeter Wemm 			subtype = *pvp++;
190c2aa98e2SPeter Wemm 		}
191c2aa98e2SPeter Wemm 
192c2aa98e2SPeter Wemm 		/* break out parameters */
193c2aa98e2SPeter Wemm 		while (*pvp != NULL && argc < MAXMIMEARGS)
194c2aa98e2SPeter Wemm 		{
195c2aa98e2SPeter Wemm 			/* skip to semicolon separator */
196c2aa98e2SPeter Wemm 			while (*pvp != NULL && strcmp(*pvp, ";") != 0)
197c2aa98e2SPeter Wemm 				pvp++;
198c2aa98e2SPeter Wemm 			if (*pvp++ == NULL || *pvp == NULL)
199c2aa98e2SPeter Wemm 				break;
200c2aa98e2SPeter Wemm 
20106f25ae9SGregory Neil Shapiro 			/* complain about empty values */
20206f25ae9SGregory Neil Shapiro 			if (strcmp(*pvp, ";") == 0)
20306f25ae9SGregory Neil Shapiro 			{
20406f25ae9SGregory Neil Shapiro 				usrerr("mime8to7: Empty parameter in Content-Type header");
20506f25ae9SGregory Neil Shapiro 
20606f25ae9SGregory Neil Shapiro 				/* avoid bounce loops */
20706f25ae9SGregory Neil Shapiro 				e->e_flags |= EF_DONT_MIME;
20806f25ae9SGregory Neil Shapiro 				continue;
20906f25ae9SGregory Neil Shapiro 			}
21006f25ae9SGregory Neil Shapiro 
211c2aa98e2SPeter Wemm 			/* extract field name */
21206f25ae9SGregory Neil Shapiro 			argv[argc].a_field = *pvp++;
213c2aa98e2SPeter Wemm 
214c2aa98e2SPeter Wemm 			/* see if there is a value */
215c2aa98e2SPeter Wemm 			if (*pvp != NULL && strcmp(*pvp, "=") == 0 &&
216c2aa98e2SPeter Wemm 			    (*++pvp == NULL || strcmp(*pvp, ";") != 0))
217c2aa98e2SPeter Wemm 			{
21806f25ae9SGregory Neil Shapiro 				argv[argc].a_value = *pvp;
219c2aa98e2SPeter Wemm 				argc++;
220c2aa98e2SPeter Wemm 			}
221c2aa98e2SPeter Wemm 		}
222c2aa98e2SPeter Wemm 	}
223c2aa98e2SPeter Wemm 
224c2aa98e2SPeter Wemm 	/* check for disaster cases */
225c2aa98e2SPeter Wemm 	if (type == NULL)
226c2aa98e2SPeter Wemm 		type = "-none-";
227c2aa98e2SPeter Wemm 	if (subtype == NULL)
228c2aa98e2SPeter Wemm 		subtype = "-none-";
229c2aa98e2SPeter Wemm 
230af9557fdSGregory Neil Shapiro 	/* don't propagate some flags more than one level into the message */
231c2aa98e2SPeter Wemm 	flags &= ~M87F_DIGEST;
232c2aa98e2SPeter Wemm 
233c2aa98e2SPeter Wemm 	/*
234c2aa98e2SPeter Wemm 	**  Check for cases that can not be encoded.
235c2aa98e2SPeter Wemm 	**
236c2aa98e2SPeter Wemm 	**	For example, you can't encode certain kinds of types
237c2aa98e2SPeter Wemm 	**	or already-encoded messages.  If we find this case,
238c2aa98e2SPeter Wemm 	**	just copy it through.
239c2aa98e2SPeter Wemm 	*/
240c2aa98e2SPeter Wemm 
24140266059SGregory Neil Shapiro 	(void) sm_snprintf(buf, sizeof buf, "%.100s/%.100s", type, subtype);
242c2aa98e2SPeter Wemm 	if (wordinclass(buf, 'n') || (cte != NULL && !wordinclass(cte, 'e')))
243c2aa98e2SPeter Wemm 		flags |= M87F_NO8BIT;
244c2aa98e2SPeter Wemm 
245c2aa98e2SPeter Wemm # ifdef USE_B_CLASS
246c2aa98e2SPeter Wemm 	if (wordinclass(buf, 'b') || wordinclass(type, 'b'))
24740266059SGregory Neil Shapiro 		MapNLtoCRLF = false;
24806f25ae9SGregory Neil Shapiro # endif /* USE_B_CLASS */
249c2aa98e2SPeter Wemm 	if (wordinclass(buf, 'q') || wordinclass(type, 'q'))
25040266059SGregory Neil Shapiro 		use_qp = true;
251c2aa98e2SPeter Wemm 
252c2aa98e2SPeter Wemm 	/*
253c2aa98e2SPeter Wemm 	**  Multipart requires special processing.
254c2aa98e2SPeter Wemm 	**
255c2aa98e2SPeter Wemm 	**	Do a recursive descent into the message.
256c2aa98e2SPeter Wemm 	*/
257c2aa98e2SPeter Wemm 
25840266059SGregory Neil Shapiro 	if (sm_strcasecmp(type, "multipart") == 0 &&
259af9557fdSGregory Neil Shapiro 	    (!bitset(M87F_NO8BIT, flags) || bitset(M87F_NO8TO7, flags)) &&
260af9557fdSGregory Neil Shapiro 	    !bitset(EF_TOODEEP, e->e_flags)
261af9557fdSGregory Neil Shapiro 	   )
262c2aa98e2SPeter Wemm 	{
263c2aa98e2SPeter Wemm 
26440266059SGregory Neil Shapiro 		if (sm_strcasecmp(subtype, "digest") == 0)
265c2aa98e2SPeter Wemm 			flags |= M87F_DIGEST;
266c2aa98e2SPeter Wemm 
267c2aa98e2SPeter Wemm 		for (i = 0; i < argc; i++)
268c2aa98e2SPeter Wemm 		{
26940266059SGregory Neil Shapiro 			if (sm_strcasecmp(argv[i].a_field, "boundary") == 0)
270c2aa98e2SPeter Wemm 				break;
271c2aa98e2SPeter Wemm 		}
27206f25ae9SGregory Neil Shapiro 		if (i >= argc || argv[i].a_value == NULL)
273c2aa98e2SPeter Wemm 		{
27406f25ae9SGregory Neil Shapiro 			usrerr("mime8to7: Content-Type: \"%s\": %s boundary",
275c2aa98e2SPeter Wemm 				i >= argc ? "missing" : "bogus", p);
276c2aa98e2SPeter Wemm 			p = "---";
277c2aa98e2SPeter Wemm 
278c2aa98e2SPeter Wemm 			/* avoid bounce loops */
279c2aa98e2SPeter Wemm 			e->e_flags |= EF_DONT_MIME;
280c2aa98e2SPeter Wemm 		}
281c2aa98e2SPeter Wemm 		else
282c2aa98e2SPeter Wemm 		{
28306f25ae9SGregory Neil Shapiro 			p = argv[i].a_value;
284c2aa98e2SPeter Wemm 			stripquotes(p);
285c2aa98e2SPeter Wemm 		}
28640266059SGregory Neil Shapiro 		if (sm_strlcpy(bbuf, p, sizeof bbuf) >= sizeof bbuf)
287c2aa98e2SPeter Wemm 		{
28806f25ae9SGregory Neil Shapiro 			usrerr("mime8to7: multipart boundary \"%s\" too long",
289c2aa98e2SPeter Wemm 				p);
290c2aa98e2SPeter Wemm 
291c2aa98e2SPeter Wemm 			/* avoid bounce loops */
292c2aa98e2SPeter Wemm 			e->e_flags |= EF_DONT_MIME;
293c2aa98e2SPeter Wemm 		}
29406f25ae9SGregory Neil Shapiro 
295c2aa98e2SPeter Wemm 		if (tTd(43, 1))
29640266059SGregory Neil Shapiro 			sm_dprintf("mime8to7: multipart boundary \"%s\"\n",
29740266059SGregory Neil Shapiro 				bbuf);
298c2aa98e2SPeter Wemm 		for (i = 0; i < MAXMIMENESTING; i++)
299193538b7SGregory Neil Shapiro 		{
300c2aa98e2SPeter Wemm 			if (boundaries[i] == NULL)
301c2aa98e2SPeter Wemm 				break;
302193538b7SGregory Neil Shapiro 		}
303c2aa98e2SPeter Wemm 		if (i >= MAXMIMENESTING)
304c2aa98e2SPeter Wemm 		{
305af9557fdSGregory Neil Shapiro 			if (tTd(43, 4))
306af9557fdSGregory Neil Shapiro 				sm_dprintf("mime8to7: too deep, i=%d\n", i);
307af9557fdSGregory Neil Shapiro 			if (!bitset(EF_TOODEEP, e->e_flags))
30806f25ae9SGregory Neil Shapiro 				usrerr("mime8to7: multipart nesting boundary too deep");
309c2aa98e2SPeter Wemm 
310c2aa98e2SPeter Wemm 			/* avoid bounce loops */
311af9557fdSGregory Neil Shapiro 			e->e_flags |= EF_DONT_MIME|EF_TOODEEP;
312c2aa98e2SPeter Wemm 		}
313c2aa98e2SPeter Wemm 		else
314c2aa98e2SPeter Wemm 		{
315c2aa98e2SPeter Wemm 			boundaries[i] = bbuf;
316c2aa98e2SPeter Wemm 			boundaries[i + 1] = NULL;
317c2aa98e2SPeter Wemm 		}
318c2aa98e2SPeter Wemm 		mci->mci_flags |= MCIF_INMIME;
319c2aa98e2SPeter Wemm 
320c2aa98e2SPeter Wemm 		/* skip the early "comment" prologue */
3214e4196cbSGregory Neil Shapiro 		if (!putline("", mci))
3224e4196cbSGregory Neil Shapiro 			goto writeerr;
323c2aa98e2SPeter Wemm 		mci->mci_flags &= ~MCIF_INHEADER;
32406f25ae9SGregory Neil Shapiro 		bt = MBT_FINAL;
32540266059SGregory Neil Shapiro 		while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf)
32640266059SGregory Neil Shapiro 			!= NULL)
327c2aa98e2SPeter Wemm 		{
328c2aa98e2SPeter Wemm 			bt = mimeboundary(buf, boundaries);
329c2aa98e2SPeter Wemm 			if (bt != MBT_NOTSEP)
330c2aa98e2SPeter Wemm 				break;
3314e4196cbSGregory Neil Shapiro 			if (!putxline(buf, strlen(buf), mci,
3324e4196cbSGregory Neil Shapiro 					PXLF_MAPFROM|PXLF_STRIP8BIT))
3334e4196cbSGregory Neil Shapiro 				goto writeerr;
334c2aa98e2SPeter Wemm 			if (tTd(43, 99))
33540266059SGregory Neil Shapiro 				sm_dprintf("  ...%s", buf);
336c2aa98e2SPeter Wemm 		}
33740266059SGregory Neil Shapiro 		if (sm_io_eof(e->e_dfp))
338c2aa98e2SPeter Wemm 			bt = MBT_FINAL;
339c2aa98e2SPeter Wemm 		while (bt != MBT_FINAL)
340c2aa98e2SPeter Wemm 		{
341c2aa98e2SPeter Wemm 			auto HDR *hdr = NULL;
342c2aa98e2SPeter Wemm 
34340266059SGregory Neil Shapiro 			(void) sm_strlcpyn(buf, sizeof buf, 2, "--", bbuf);
3444e4196cbSGregory Neil Shapiro 			if (!putline(buf, mci))
3454e4196cbSGregory Neil Shapiro 				goto writeerr;
346c2aa98e2SPeter Wemm 			if (tTd(43, 35))
34740266059SGregory Neil Shapiro 				sm_dprintf("  ...%s\n", buf);
348a7ec597cSGregory Neil Shapiro 			collect(e->e_dfp, false, &hdr, e, false);
349c2aa98e2SPeter Wemm 			if (tTd(43, 101))
350c2aa98e2SPeter Wemm 				putline("+++after collect", mci);
3514e4196cbSGregory Neil Shapiro 			if (!putheader(mci, hdr, e, flags))
3524e4196cbSGregory Neil Shapiro 				goto writeerr;
353c2aa98e2SPeter Wemm 			if (tTd(43, 101))
354c2aa98e2SPeter Wemm 				putline("+++after putheader", mci);
355af9557fdSGregory Neil Shapiro 			bt = mime8to7(mci, hdr, e, boundaries, flags,
356af9557fdSGregory Neil Shapiro 				      level + 1);
3574e4196cbSGregory Neil Shapiro 			if (bt == SM_IO_EOF)
3584e4196cbSGregory Neil Shapiro 				goto writeerr;
359c2aa98e2SPeter Wemm 		}
36040266059SGregory Neil Shapiro 		(void) sm_strlcpyn(buf, sizeof buf, 3, "--", bbuf, "--");
3614e4196cbSGregory Neil Shapiro 		if (!putline(buf, mci))
3624e4196cbSGregory Neil Shapiro 			goto writeerr;
363c2aa98e2SPeter Wemm 		if (tTd(43, 35))
36440266059SGregory Neil Shapiro 			sm_dprintf("  ...%s\n", buf);
365c2aa98e2SPeter Wemm 		boundaries[i] = NULL;
366c2aa98e2SPeter Wemm 		mci->mci_flags &= ~MCIF_INMIME;
367c2aa98e2SPeter Wemm 
368c2aa98e2SPeter Wemm 		/* skip the late "comment" epilogue */
36940266059SGregory Neil Shapiro 		while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf)
37040266059SGregory Neil Shapiro 			!= NULL)
371c2aa98e2SPeter Wemm 		{
372c2aa98e2SPeter Wemm 			bt = mimeboundary(buf, boundaries);
373c2aa98e2SPeter Wemm 			if (bt != MBT_NOTSEP)
374c2aa98e2SPeter Wemm 				break;
3754e4196cbSGregory Neil Shapiro 			if (!putxline(buf, strlen(buf), mci,
3764e4196cbSGregory Neil Shapiro 					PXLF_MAPFROM|PXLF_STRIP8BIT))
3774e4196cbSGregory Neil Shapiro 				goto writeerr;
378c2aa98e2SPeter Wemm 			if (tTd(43, 99))
37940266059SGregory Neil Shapiro 				sm_dprintf("  ...%s", buf);
380c2aa98e2SPeter Wemm 		}
38140266059SGregory Neil Shapiro 		if (sm_io_eof(e->e_dfp))
382c2aa98e2SPeter Wemm 			bt = MBT_FINAL;
383c2aa98e2SPeter Wemm 		if (tTd(43, 3))
38440266059SGregory Neil Shapiro 			sm_dprintf("\t\t\tmime8to7=>%s (multipart)\n",
385c2aa98e2SPeter Wemm 				MimeBoundaryNames[bt]);
386c2aa98e2SPeter Wemm 		return bt;
387c2aa98e2SPeter Wemm 	}
388c2aa98e2SPeter Wemm 
389c2aa98e2SPeter Wemm 	/*
390c2aa98e2SPeter Wemm 	**  Message/xxx types -- recurse exactly once.
391c2aa98e2SPeter Wemm 	**
392c2aa98e2SPeter Wemm 	**	Class 's' is predefined to have "rfc822" only.
393c2aa98e2SPeter Wemm 	*/
394c2aa98e2SPeter Wemm 
39540266059SGregory Neil Shapiro 	if (sm_strcasecmp(type, "message") == 0)
396c2aa98e2SPeter Wemm 	{
397af9557fdSGregory Neil Shapiro 		if (!wordinclass(subtype, 's') ||
398af9557fdSGregory Neil Shapiro 		    bitset(EF_TOODEEP, e->e_flags))
399c2aa98e2SPeter Wemm 		{
400c2aa98e2SPeter Wemm 			flags |= M87F_NO8BIT;
401c2aa98e2SPeter Wemm 		}
402c2aa98e2SPeter Wemm 		else
403c2aa98e2SPeter Wemm 		{
404c2aa98e2SPeter Wemm 			auto HDR *hdr = NULL;
405c2aa98e2SPeter Wemm 
4064e4196cbSGregory Neil Shapiro 			if (!putline("", mci))
4074e4196cbSGregory Neil Shapiro 				goto writeerr;
408c2aa98e2SPeter Wemm 
409c2aa98e2SPeter Wemm 			mci->mci_flags |= MCIF_INMIME;
410a7ec597cSGregory Neil Shapiro 			collect(e->e_dfp, false, &hdr, e, false);
411c2aa98e2SPeter Wemm 			if (tTd(43, 101))
412c2aa98e2SPeter Wemm 				putline("+++after collect", mci);
4134e4196cbSGregory Neil Shapiro 			if (!putheader(mci, hdr, e, flags))
4144e4196cbSGregory Neil Shapiro 				goto writeerr;
415c2aa98e2SPeter Wemm 			if (tTd(43, 101))
416c2aa98e2SPeter Wemm 				putline("+++after putheader", mci);
41794c01205SGregory Neil Shapiro 			if (hvalue("MIME-Version", hdr) == NULL &&
4184e4196cbSGregory Neil Shapiro 			    !bitset(M87F_NO8TO7, flags) &&
4194e4196cbSGregory Neil Shapiro 			    !putline("MIME-Version: 1.0", mci))
4204e4196cbSGregory Neil Shapiro 				goto writeerr;
421af9557fdSGregory Neil Shapiro 			bt = mime8to7(mci, hdr, e, boundaries, flags,
422af9557fdSGregory Neil Shapiro 				      level + 1);
423c2aa98e2SPeter Wemm 			mci->mci_flags &= ~MCIF_INMIME;
424c2aa98e2SPeter Wemm 			return bt;
425c2aa98e2SPeter Wemm 		}
426c2aa98e2SPeter Wemm 	}
427c2aa98e2SPeter Wemm 
428c2aa98e2SPeter Wemm 	/*
429c2aa98e2SPeter Wemm 	**  Non-compound body type
430c2aa98e2SPeter Wemm 	**
431c2aa98e2SPeter Wemm 	**	Compute the ratio of seven to eight bit characters;
432c2aa98e2SPeter Wemm 	**	use that as a heuristic to decide how to do the
433c2aa98e2SPeter Wemm 	**	encoding.
434c2aa98e2SPeter Wemm 	*/
435c2aa98e2SPeter Wemm 
436c2aa98e2SPeter Wemm 	sectionsize = sectionhighbits = 0;
437065a643dSPeter Wemm 	if (!bitset(M87F_NO8BIT|M87F_NO8TO7, flags))
438c2aa98e2SPeter Wemm 	{
439c2aa98e2SPeter Wemm 		/* remember where we were */
44040266059SGregory Neil Shapiro 		offset = sm_io_tell(e->e_dfp, SM_TIME_DEFAULT);
441c2aa98e2SPeter Wemm 		if (offset == -1)
44240266059SGregory Neil Shapiro 			syserr("mime8to7: cannot sm_io_tell on %cf%s",
44340266059SGregory Neil Shapiro 			       DATAFL_LETTER, e->e_id);
444c2aa98e2SPeter Wemm 
445c2aa98e2SPeter Wemm 		/* do a scan of this body type to count character types */
44640266059SGregory Neil Shapiro 		while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf)
44740266059SGregory Neil Shapiro 			!= NULL)
448c2aa98e2SPeter Wemm 		{
449c2aa98e2SPeter Wemm 			if (mimeboundary(buf, boundaries) != MBT_NOTSEP)
450c2aa98e2SPeter Wemm 				break;
451c2aa98e2SPeter Wemm 			for (p = buf; *p != '\0'; p++)
452c2aa98e2SPeter Wemm 			{
453c2aa98e2SPeter Wemm 				/* count bytes with the high bit set */
454c2aa98e2SPeter Wemm 				sectionsize++;
455c2aa98e2SPeter Wemm 				if (bitset(0200, *p))
456c2aa98e2SPeter Wemm 					sectionhighbits++;
457c2aa98e2SPeter Wemm 			}
458c2aa98e2SPeter Wemm 
459c2aa98e2SPeter Wemm 			/*
460c2aa98e2SPeter Wemm 			**  Heuristic: if 1/4 of the first 4K bytes are 8-bit,
461c2aa98e2SPeter Wemm 			**  assume base64.  This heuristic avoids double-reading
462c2aa98e2SPeter Wemm 			**  large graphics or video files.
463c2aa98e2SPeter Wemm 			*/
464c2aa98e2SPeter Wemm 
465c2aa98e2SPeter Wemm 			if (sectionsize >= 4096 &&
466c2aa98e2SPeter Wemm 			    sectionhighbits > sectionsize / 4)
467c2aa98e2SPeter Wemm 				break;
468c2aa98e2SPeter Wemm 		}
469c2aa98e2SPeter Wemm 
470c2aa98e2SPeter Wemm 		/* return to the original offset for processing */
471c2aa98e2SPeter Wemm 		/* XXX use relative seeks to handle >31 bit file sizes? */
47240266059SGregory Neil Shapiro 		if (sm_io_seek(e->e_dfp, SM_TIME_DEFAULT, offset, SEEK_SET) < 0)
47340266059SGregory Neil Shapiro 			syserr("mime8to7: cannot sm_io_fseek on %cf%s",
47440266059SGregory Neil Shapiro 			       DATAFL_LETTER, e->e_id);
475c2aa98e2SPeter Wemm 		else
47640266059SGregory Neil Shapiro 			sm_io_clearerr(e->e_dfp);
477c2aa98e2SPeter Wemm 	}
478c2aa98e2SPeter Wemm 
479c2aa98e2SPeter Wemm 	/*
480c2aa98e2SPeter Wemm 	**  Heuristically determine encoding method.
481c2aa98e2SPeter Wemm 	**	If more than 1/8 of the total characters have the
482c2aa98e2SPeter Wemm 	**	eighth bit set, use base64; else use quoted-printable.
483c2aa98e2SPeter Wemm 	**	However, only encode binary encoded data as base64,
484c2aa98e2SPeter Wemm 	**	since otherwise the NL=>CRLF mapping will be a problem.
485c2aa98e2SPeter Wemm 	*/
486c2aa98e2SPeter Wemm 
487c2aa98e2SPeter Wemm 	if (tTd(43, 8))
488c2aa98e2SPeter Wemm 	{
48940266059SGregory Neil Shapiro 		sm_dprintf("mime8to7: %ld high bit(s) in %ld byte(s), cte=%s, type=%s/%s\n",
490c2aa98e2SPeter Wemm 			(long) sectionhighbits, (long) sectionsize,
491c2aa98e2SPeter Wemm 			cte == NULL ? "[none]" : cte,
492c2aa98e2SPeter Wemm 			type == NULL ? "[none]" : type,
493c2aa98e2SPeter Wemm 			subtype == NULL ? "[none]" : subtype);
494c2aa98e2SPeter Wemm 	}
49540266059SGregory Neil Shapiro 	if (cte != NULL && sm_strcasecmp(cte, "binary") == 0)
496c2aa98e2SPeter Wemm 		sectionsize = sectionhighbits;
497c2aa98e2SPeter Wemm 	linelen = 0;
498c2aa98e2SPeter Wemm 	bp = buf;
499c2aa98e2SPeter Wemm 	if (sectionhighbits == 0)
500c2aa98e2SPeter Wemm 	{
501c2aa98e2SPeter Wemm 		/* no encoding necessary */
5022e43090eSPeter Wemm 		if (cte != NULL &&
50306f25ae9SGregory Neil Shapiro 		    bitset(MCIF_CVT8TO7|MCIF_CVT7TO8|MCIF_INMIME,
50406f25ae9SGregory Neil Shapiro 			   mci->mci_flags) &&
5052e43090eSPeter Wemm 		    !bitset(M87F_NO8TO7, flags))
506c2aa98e2SPeter Wemm 		{
507065a643dSPeter Wemm 			/*
5082e43090eSPeter Wemm 			**  Skip _unless_ in MIME mode and potentially
5092e43090eSPeter Wemm 			**  converting from 8 bit to 7 bit MIME.  See
5102e43090eSPeter Wemm 			**  putheader() for the counterpart where the
5112e43090eSPeter Wemm 			**  CTE header is skipped in the opposite
5122e43090eSPeter Wemm 			**  situation.
513065a643dSPeter Wemm 			*/
514065a643dSPeter Wemm 
51540266059SGregory Neil Shapiro 			(void) sm_snprintf(buf, sizeof buf,
516c2aa98e2SPeter Wemm 				"Content-Transfer-Encoding: %.200s", cte);
5174e4196cbSGregory Neil Shapiro 			if (!putline(buf, mci))
5184e4196cbSGregory Neil Shapiro 				goto writeerr;
519c2aa98e2SPeter Wemm 			if (tTd(43, 36))
52040266059SGregory Neil Shapiro 				sm_dprintf("  ...%s\n", buf);
521c2aa98e2SPeter Wemm 		}
5224e4196cbSGregory Neil Shapiro 		if (!putline("", mci))
5234e4196cbSGregory Neil Shapiro 			goto writeerr;
524c2aa98e2SPeter Wemm 		mci->mci_flags &= ~MCIF_INHEADER;
52540266059SGregory Neil Shapiro 		while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf)
52640266059SGregory Neil Shapiro 			!= NULL)
527c2aa98e2SPeter Wemm 		{
528c2aa98e2SPeter Wemm 			bt = mimeboundary(buf, boundaries);
529c2aa98e2SPeter Wemm 			if (bt != MBT_NOTSEP)
530c2aa98e2SPeter Wemm 				break;
5314e4196cbSGregory Neil Shapiro 			if (!putline(buf, mci))
5324e4196cbSGregory Neil Shapiro 				goto writeerr;
533c2aa98e2SPeter Wemm 		}
53440266059SGregory Neil Shapiro 		if (sm_io_eof(e->e_dfp))
535c2aa98e2SPeter Wemm 			bt = MBT_FINAL;
536c2aa98e2SPeter Wemm 	}
537c2aa98e2SPeter Wemm 	else if (!MapNLtoCRLF ||
538c2aa98e2SPeter Wemm 		 (sectionsize / 8 < sectionhighbits && !use_qp))
539c2aa98e2SPeter Wemm 	{
540c2aa98e2SPeter Wemm 		/* use base64 encoding */
541c2aa98e2SPeter Wemm 		int c1, c2;
542c2aa98e2SPeter Wemm 
543c2aa98e2SPeter Wemm 		if (tTd(43, 36))
54440266059SGregory Neil Shapiro 			sm_dprintf("  ...Content-Transfer-Encoding: base64\n");
5454e4196cbSGregory Neil Shapiro 		if (!putline("Content-Transfer-Encoding: base64", mci))
5464e4196cbSGregory Neil Shapiro 			goto writeerr;
54740266059SGregory Neil Shapiro 		(void) sm_snprintf(buf, sizeof buf,
548c2aa98e2SPeter Wemm 			"X-MIME-Autoconverted: from 8bit to base64 by %s id %s",
549c2aa98e2SPeter Wemm 			MyHostName, e->e_id);
5504e4196cbSGregory Neil Shapiro 		if (!putline(buf, mci) || !putline("", mci))
5514e4196cbSGregory Neil Shapiro 			goto writeerr;
552c2aa98e2SPeter Wemm 		mci->mci_flags &= ~MCIF_INHEADER;
55340266059SGregory Neil Shapiro 		while ((c1 = mime_getchar_crlf(e->e_dfp, boundaries, &bt)) !=
55440266059SGregory Neil Shapiro 			SM_IO_EOF)
555c2aa98e2SPeter Wemm 		{
556c2aa98e2SPeter Wemm 			if (linelen > 71)
557c2aa98e2SPeter Wemm 			{
558c2aa98e2SPeter Wemm 				*bp = '\0';
5594e4196cbSGregory Neil Shapiro 				if (!putline(buf, mci))
5604e4196cbSGregory Neil Shapiro 					goto writeerr;
561c2aa98e2SPeter Wemm 				linelen = 0;
562c2aa98e2SPeter Wemm 				bp = buf;
563c2aa98e2SPeter Wemm 			}
564c2aa98e2SPeter Wemm 			linelen += 4;
565c2aa98e2SPeter Wemm 			*bp++ = Base64Code[(c1 >> 2)];
566c2aa98e2SPeter Wemm 			c1 = (c1 & 0x03) << 4;
567c2aa98e2SPeter Wemm 			c2 = mime_getchar_crlf(e->e_dfp, boundaries, &bt);
56840266059SGregory Neil Shapiro 			if (c2 == SM_IO_EOF)
569c2aa98e2SPeter Wemm 			{
570c2aa98e2SPeter Wemm 				*bp++ = Base64Code[c1];
571c2aa98e2SPeter Wemm 				*bp++ = '=';
572c2aa98e2SPeter Wemm 				*bp++ = '=';
573c2aa98e2SPeter Wemm 				break;
574c2aa98e2SPeter Wemm 			}
575c2aa98e2SPeter Wemm 			c1 |= (c2 >> 4) & 0x0f;
576c2aa98e2SPeter Wemm 			*bp++ = Base64Code[c1];
577c2aa98e2SPeter Wemm 			c1 = (c2 & 0x0f) << 2;
578c2aa98e2SPeter Wemm 			c2 = mime_getchar_crlf(e->e_dfp, boundaries, &bt);
57940266059SGregory Neil Shapiro 			if (c2 == SM_IO_EOF)
580c2aa98e2SPeter Wemm 			{
581c2aa98e2SPeter Wemm 				*bp++ = Base64Code[c1];
582c2aa98e2SPeter Wemm 				*bp++ = '=';
583c2aa98e2SPeter Wemm 				break;
584c2aa98e2SPeter Wemm 			}
585c2aa98e2SPeter Wemm 			c1 |= (c2 >> 6) & 0x03;
586c2aa98e2SPeter Wemm 			*bp++ = Base64Code[c1];
587c2aa98e2SPeter Wemm 			*bp++ = Base64Code[c2 & 0x3f];
588c2aa98e2SPeter Wemm 		}
589c2aa98e2SPeter Wemm 		*bp = '\0';
5904e4196cbSGregory Neil Shapiro 		if (!putline(buf, mci))
5914e4196cbSGregory Neil Shapiro 			goto writeerr;
592c2aa98e2SPeter Wemm 	}
593c2aa98e2SPeter Wemm 	else
594c2aa98e2SPeter Wemm 	{
595c2aa98e2SPeter Wemm 		/* use quoted-printable encoding */
596c2aa98e2SPeter Wemm 		int c1, c2;
597c2aa98e2SPeter Wemm 		int fromstate;
59806f25ae9SGregory Neil Shapiro 		BITMAP256 badchars;
599c2aa98e2SPeter Wemm 
600c2aa98e2SPeter Wemm 		/* set up map of characters that must be mapped */
601c2aa98e2SPeter Wemm 		clrbitmap(badchars);
602c2aa98e2SPeter Wemm 		for (c1 = 0x00; c1 < 0x20; c1++)
603c2aa98e2SPeter Wemm 			setbitn(c1, badchars);
604c2aa98e2SPeter Wemm 		clrbitn('\t', badchars);
605c2aa98e2SPeter Wemm 		for (c1 = 0x7f; c1 < 0x100; c1++)
606c2aa98e2SPeter Wemm 			setbitn(c1, badchars);
607c2aa98e2SPeter Wemm 		setbitn('=', badchars);
608c2aa98e2SPeter Wemm 		if (bitnset(M_EBCDIC, mci->mci_mailer->m_flags))
609c2aa98e2SPeter Wemm 			for (p = "!\"#$@[\\]^`{|}~"; *p != '\0'; p++)
610c2aa98e2SPeter Wemm 				setbitn(*p, badchars);
611c2aa98e2SPeter Wemm 
612c2aa98e2SPeter Wemm 		if (tTd(43, 36))
61340266059SGregory Neil Shapiro 			sm_dprintf("  ...Content-Transfer-Encoding: quoted-printable\n");
6144e4196cbSGregory Neil Shapiro 		if (!putline("Content-Transfer-Encoding: quoted-printable",
6154e4196cbSGregory Neil Shapiro 				mci))
6164e4196cbSGregory Neil Shapiro 			goto writeerr;
61740266059SGregory Neil Shapiro 		(void) sm_snprintf(buf, sizeof buf,
618c2aa98e2SPeter Wemm 			"X-MIME-Autoconverted: from 8bit to quoted-printable by %s id %s",
619c2aa98e2SPeter Wemm 			MyHostName, e->e_id);
6204e4196cbSGregory Neil Shapiro 		if (!putline(buf, mci) || !putline("", mci))
6214e4196cbSGregory Neil Shapiro 			goto writeerr;
622c2aa98e2SPeter Wemm 		mci->mci_flags &= ~MCIF_INHEADER;
623c2aa98e2SPeter Wemm 		fromstate = 0;
624c2aa98e2SPeter Wemm 		c2 = '\n';
62540266059SGregory Neil Shapiro 		while ((c1 = mime_getchar(e->e_dfp, boundaries, &bt)) !=
62640266059SGregory Neil Shapiro 			SM_IO_EOF)
627c2aa98e2SPeter Wemm 		{
628c2aa98e2SPeter Wemm 			if (c1 == '\n')
629c2aa98e2SPeter Wemm 			{
630c2aa98e2SPeter Wemm 				if (c2 == ' ' || c2 == '\t')
631c2aa98e2SPeter Wemm 				{
632c2aa98e2SPeter Wemm 					*bp++ = '=';
633c2aa98e2SPeter Wemm 					*bp++ = Base16Code[(c2 >> 4) & 0x0f];
634c2aa98e2SPeter Wemm 					*bp++ = Base16Code[c2 & 0x0f];
635c2aa98e2SPeter Wemm 				}
636c2aa98e2SPeter Wemm 				if (buf[0] == '.' && bp == &buf[1])
637c2aa98e2SPeter Wemm 				{
638c2aa98e2SPeter Wemm 					buf[0] = '=';
639c2aa98e2SPeter Wemm 					*bp++ = Base16Code[('.' >> 4) & 0x0f];
640c2aa98e2SPeter Wemm 					*bp++ = Base16Code['.' & 0x0f];
641c2aa98e2SPeter Wemm 				}
642c2aa98e2SPeter Wemm 				*bp = '\0';
6434e4196cbSGregory Neil Shapiro 				if (!putline(buf, mci))
6444e4196cbSGregory Neil Shapiro 					goto writeerr;
645c2aa98e2SPeter Wemm 				linelen = fromstate = 0;
646c2aa98e2SPeter Wemm 				bp = buf;
647c2aa98e2SPeter Wemm 				c2 = c1;
648c2aa98e2SPeter Wemm 				continue;
649c2aa98e2SPeter Wemm 			}
650c2aa98e2SPeter Wemm 			if (c2 == ' ' && linelen == 4 && fromstate == 4 &&
651c2aa98e2SPeter Wemm 			    bitnset(M_ESCFROM, mci->mci_mailer->m_flags))
652c2aa98e2SPeter Wemm 			{
653c2aa98e2SPeter Wemm 				*bp++ = '=';
654c2aa98e2SPeter Wemm 				*bp++ = '2';
655c2aa98e2SPeter Wemm 				*bp++ = '0';
656c2aa98e2SPeter Wemm 				linelen += 3;
657c2aa98e2SPeter Wemm 			}
658c2aa98e2SPeter Wemm 			else if (c2 == ' ' || c2 == '\t')
659c2aa98e2SPeter Wemm 			{
660c2aa98e2SPeter Wemm 				*bp++ = c2;
661c2aa98e2SPeter Wemm 				linelen++;
662c2aa98e2SPeter Wemm 			}
663c2aa98e2SPeter Wemm 			if (linelen > 72 &&
664c2aa98e2SPeter Wemm 			    (linelen > 75 || c1 != '.' ||
665c2aa98e2SPeter Wemm 			     (linelen > 73 && c2 == '.')))
666c2aa98e2SPeter Wemm 			{
667c2aa98e2SPeter Wemm 				if (linelen > 73 && c2 == '.')
668c2aa98e2SPeter Wemm 					bp--;
669c2aa98e2SPeter Wemm 				else
670c2aa98e2SPeter Wemm 					c2 = '\n';
671c2aa98e2SPeter Wemm 				*bp++ = '=';
672c2aa98e2SPeter Wemm 				*bp = '\0';
6734e4196cbSGregory Neil Shapiro 				if (!putline(buf, mci))
6744e4196cbSGregory Neil Shapiro 					goto writeerr;
675c2aa98e2SPeter Wemm 				linelen = fromstate = 0;
676c2aa98e2SPeter Wemm 				bp = buf;
677c2aa98e2SPeter Wemm 				if (c2 == '.')
678c2aa98e2SPeter Wemm 				{
679c2aa98e2SPeter Wemm 					*bp++ = '.';
680c2aa98e2SPeter Wemm 					linelen++;
681c2aa98e2SPeter Wemm 				}
682c2aa98e2SPeter Wemm 			}
683193538b7SGregory Neil Shapiro 			if (bitnset(bitidx(c1), badchars))
684c2aa98e2SPeter Wemm 			{
685c2aa98e2SPeter Wemm 				*bp++ = '=';
686c2aa98e2SPeter Wemm 				*bp++ = Base16Code[(c1 >> 4) & 0x0f];
687c2aa98e2SPeter Wemm 				*bp++ = Base16Code[c1 & 0x0f];
688c2aa98e2SPeter Wemm 				linelen += 3;
689c2aa98e2SPeter Wemm 			}
690c2aa98e2SPeter Wemm 			else if (c1 != ' ' && c1 != '\t')
691c2aa98e2SPeter Wemm 			{
692c2aa98e2SPeter Wemm 				if (linelen < 4 && c1 == "From"[linelen])
693c2aa98e2SPeter Wemm 					fromstate++;
694c2aa98e2SPeter Wemm 				*bp++ = c1;
695c2aa98e2SPeter Wemm 				linelen++;
696c2aa98e2SPeter Wemm 			}
697c2aa98e2SPeter Wemm 			c2 = c1;
698c2aa98e2SPeter Wemm 		}
699c2aa98e2SPeter Wemm 
700c2aa98e2SPeter Wemm 		/* output any saved character */
701c2aa98e2SPeter Wemm 		if (c2 == ' ' || c2 == '\t')
702c2aa98e2SPeter Wemm 		{
703c2aa98e2SPeter Wemm 			*bp++ = '=';
704c2aa98e2SPeter Wemm 			*bp++ = Base16Code[(c2 >> 4) & 0x0f];
705c2aa98e2SPeter Wemm 			*bp++ = Base16Code[c2 & 0x0f];
706c2aa98e2SPeter Wemm 			linelen += 3;
707c2aa98e2SPeter Wemm 		}
708c2aa98e2SPeter Wemm 
709c2aa98e2SPeter Wemm 		if (linelen > 0 || boundaries[0] != NULL)
710c2aa98e2SPeter Wemm 		{
711c2aa98e2SPeter Wemm 			*bp = '\0';
7124e4196cbSGregory Neil Shapiro 			if (!putline(buf, mci))
7134e4196cbSGregory Neil Shapiro 				goto writeerr;
714c2aa98e2SPeter Wemm 		}
715c2aa98e2SPeter Wemm 
716c2aa98e2SPeter Wemm 	}
717c2aa98e2SPeter Wemm 	if (tTd(43, 3))
71840266059SGregory Neil Shapiro 		sm_dprintf("\t\t\tmime8to7=>%s (basic)\n", MimeBoundaryNames[bt]);
719c2aa98e2SPeter Wemm 	return bt;
7204e4196cbSGregory Neil Shapiro 
7214e4196cbSGregory Neil Shapiro   writeerr:
7224e4196cbSGregory Neil Shapiro 	return SM_IO_EOF;
723c2aa98e2SPeter Wemm }
72440266059SGregory Neil Shapiro /*
725c2aa98e2SPeter Wemm **  MIME_GETCHAR -- get a character for MIME processing
726c2aa98e2SPeter Wemm **
72740266059SGregory Neil Shapiro **	Treats boundaries as SM_IO_EOF.
728c2aa98e2SPeter Wemm **
729c2aa98e2SPeter Wemm **	Parameters:
730c2aa98e2SPeter Wemm **		fp -- the input file.
731c2aa98e2SPeter Wemm **		boundaries -- the current MIME boundaries.
73240266059SGregory Neil Shapiro **		btp -- if the return value is SM_IO_EOF, *btp is set to
733c2aa98e2SPeter Wemm **			the type of the boundary.
734c2aa98e2SPeter Wemm **
735c2aa98e2SPeter Wemm **	Returns:
736c2aa98e2SPeter Wemm **		The next character in the input stream.
737c2aa98e2SPeter Wemm */
738c2aa98e2SPeter Wemm 
73906f25ae9SGregory Neil Shapiro static int
740c2aa98e2SPeter Wemm mime_getchar(fp, boundaries, btp)
74140266059SGregory Neil Shapiro 	register SM_FILE_T *fp;
742c2aa98e2SPeter Wemm 	char **boundaries;
743c2aa98e2SPeter Wemm 	int *btp;
744c2aa98e2SPeter Wemm {
745c2aa98e2SPeter Wemm 	int c;
74640266059SGregory Neil Shapiro 	static unsigned char *bp = NULL;
747c2aa98e2SPeter Wemm 	static int buflen = 0;
74840266059SGregory Neil Shapiro 	static bool atbol = true;	/* at beginning of line */
74940266059SGregory Neil Shapiro 	static int bt = MBT_SYNTAX;	/* boundary type of next SM_IO_EOF */
75040266059SGregory Neil Shapiro 	static unsigned char buf[128];	/* need not be a full line */
751065a643dSPeter Wemm 	int start = 0;			/* indicates position of - in buffer */
752c2aa98e2SPeter Wemm 
753065a643dSPeter Wemm 	if (buflen == 1 && *bp == '\n')
754065a643dSPeter Wemm 	{
755065a643dSPeter Wemm 		/* last \n in buffer may be part of next MIME boundary */
756065a643dSPeter Wemm 		c = *bp;
757065a643dSPeter Wemm 	}
758065a643dSPeter Wemm 	else if (buflen > 0)
759c2aa98e2SPeter Wemm 	{
760c2aa98e2SPeter Wemm 		buflen--;
761c2aa98e2SPeter Wemm 		return *bp++;
762c2aa98e2SPeter Wemm 	}
763065a643dSPeter Wemm 	else
76440266059SGregory Neil Shapiro 		c = sm_io_getc(fp, SM_TIME_DEFAULT);
765c2aa98e2SPeter Wemm 	bp = buf;
766c2aa98e2SPeter Wemm 	buflen = 0;
767c2aa98e2SPeter Wemm 	if (c == '\n')
768c2aa98e2SPeter Wemm 	{
769c2aa98e2SPeter Wemm 		/* might be part of a MIME boundary */
770c2aa98e2SPeter Wemm 		*bp++ = c;
77140266059SGregory Neil Shapiro 		atbol = true;
77240266059SGregory Neil Shapiro 		c = sm_io_getc(fp, SM_TIME_DEFAULT);
773c2aa98e2SPeter Wemm 		if (c == '\n')
774c2aa98e2SPeter Wemm 		{
77540266059SGregory Neil Shapiro 			(void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c);
776c2aa98e2SPeter Wemm 			return c;
777c2aa98e2SPeter Wemm 		}
778065a643dSPeter Wemm 		start = 1;
779c2aa98e2SPeter Wemm 	}
78040266059SGregory Neil Shapiro 	if (c != SM_IO_EOF)
781c2aa98e2SPeter Wemm 		*bp++ = c;
782c2aa98e2SPeter Wemm 	else
783c2aa98e2SPeter Wemm 		bt = MBT_FINAL;
784c2aa98e2SPeter Wemm 	if (atbol && c == '-')
785c2aa98e2SPeter Wemm 	{
786c2aa98e2SPeter Wemm 		/* check for a message boundary */
78740266059SGregory Neil Shapiro 		c = sm_io_getc(fp, SM_TIME_DEFAULT);
788c2aa98e2SPeter Wemm 		if (c != '-')
789c2aa98e2SPeter Wemm 		{
79040266059SGregory Neil Shapiro 			if (c != SM_IO_EOF)
791c2aa98e2SPeter Wemm 				*bp++ = c;
792c2aa98e2SPeter Wemm 			else
793c2aa98e2SPeter Wemm 				bt = MBT_FINAL;
794c2aa98e2SPeter Wemm 			buflen = bp - buf - 1;
795c2aa98e2SPeter Wemm 			bp = buf;
796c2aa98e2SPeter Wemm 			return *bp++;
797c2aa98e2SPeter Wemm 		}
798c2aa98e2SPeter Wemm 
799c2aa98e2SPeter Wemm 		/* got "--", now check for rest of separator */
800c2aa98e2SPeter Wemm 		*bp++ = '-';
801c2aa98e2SPeter Wemm 		while (bp < &buf[sizeof buf - 2] &&
80240266059SGregory Neil Shapiro 		       (c = sm_io_getc(fp, SM_TIME_DEFAULT)) != SM_IO_EOF &&
80340266059SGregory Neil Shapiro 		       c != '\n')
804c2aa98e2SPeter Wemm 		{
805c2aa98e2SPeter Wemm 			*bp++ = c;
806c2aa98e2SPeter Wemm 		}
80740266059SGregory Neil Shapiro 		*bp = '\0';	/* XXX simply cut off? */
808065a643dSPeter Wemm 		bt = mimeboundary((char *) &buf[start], boundaries);
809c2aa98e2SPeter Wemm 		switch (bt)
810c2aa98e2SPeter Wemm 		{
811c2aa98e2SPeter Wemm 		  case MBT_FINAL:
812c2aa98e2SPeter Wemm 		  case MBT_INTERMED:
813c2aa98e2SPeter Wemm 			/* we have a message boundary */
814c2aa98e2SPeter Wemm 			buflen = 0;
815c2aa98e2SPeter Wemm 			*btp = bt;
81640266059SGregory Neil Shapiro 			return SM_IO_EOF;
817c2aa98e2SPeter Wemm 		}
818c2aa98e2SPeter Wemm 
819e92d3f3fSGregory Neil Shapiro 		if (bp < &buf[sizeof buf - 2] && c != SM_IO_EOF)
820c2aa98e2SPeter Wemm 			*bp++ = c;
821c2aa98e2SPeter Wemm 	}
822c2aa98e2SPeter Wemm 
823e92d3f3fSGregory Neil Shapiro 	atbol = c == '\n';
824c2aa98e2SPeter Wemm 	buflen = bp - buf - 1;
825c2aa98e2SPeter Wemm 	if (buflen < 0)
826c2aa98e2SPeter Wemm 	{
827c2aa98e2SPeter Wemm 		*btp = bt;
82840266059SGregory Neil Shapiro 		return SM_IO_EOF;
829c2aa98e2SPeter Wemm 	}
830c2aa98e2SPeter Wemm 	bp = buf;
831c2aa98e2SPeter Wemm 	return *bp++;
832c2aa98e2SPeter Wemm }
83340266059SGregory Neil Shapiro /*
834c2aa98e2SPeter Wemm **  MIME_GETCHAR_CRLF -- do mime_getchar, but translate NL => CRLF
835c2aa98e2SPeter Wemm **
836c2aa98e2SPeter Wemm **	Parameters:
837c2aa98e2SPeter Wemm **		fp -- the input file.
838c2aa98e2SPeter Wemm **		boundaries -- the current MIME boundaries.
83940266059SGregory Neil Shapiro **		btp -- if the return value is SM_IO_EOF, *btp is set to
840c2aa98e2SPeter Wemm **			the type of the boundary.
841c2aa98e2SPeter Wemm **
842c2aa98e2SPeter Wemm **	Returns:
843c2aa98e2SPeter Wemm **		The next character in the input stream.
844c2aa98e2SPeter Wemm */
845c2aa98e2SPeter Wemm 
84606f25ae9SGregory Neil Shapiro static int
847c2aa98e2SPeter Wemm mime_getchar_crlf(fp, boundaries, btp)
84840266059SGregory Neil Shapiro 	register SM_FILE_T *fp;
849c2aa98e2SPeter Wemm 	char **boundaries;
850c2aa98e2SPeter Wemm 	int *btp;
851c2aa98e2SPeter Wemm {
85240266059SGregory Neil Shapiro 	static bool sendlf = false;
853c2aa98e2SPeter Wemm 	int c;
854c2aa98e2SPeter Wemm 
855c2aa98e2SPeter Wemm 	if (sendlf)
856c2aa98e2SPeter Wemm 	{
85740266059SGregory Neil Shapiro 		sendlf = false;
858c2aa98e2SPeter Wemm 		return '\n';
859c2aa98e2SPeter Wemm 	}
860c2aa98e2SPeter Wemm 	c = mime_getchar(fp, boundaries, btp);
861c2aa98e2SPeter Wemm 	if (c == '\n' && MapNLtoCRLF)
862c2aa98e2SPeter Wemm 	{
86340266059SGregory Neil Shapiro 		sendlf = true;
864c2aa98e2SPeter Wemm 		return '\r';
865c2aa98e2SPeter Wemm 	}
866c2aa98e2SPeter Wemm 	return c;
867c2aa98e2SPeter Wemm }
86840266059SGregory Neil Shapiro /*
869c2aa98e2SPeter Wemm **  MIMEBOUNDARY -- determine if this line is a MIME boundary & its type
870c2aa98e2SPeter Wemm **
871c2aa98e2SPeter Wemm **	Parameters:
872c2aa98e2SPeter Wemm **		line -- the input line.
873c2aa98e2SPeter Wemm **		boundaries -- the set of currently pending boundaries.
874c2aa98e2SPeter Wemm **
875c2aa98e2SPeter Wemm **	Returns:
876c2aa98e2SPeter Wemm **		MBT_NOTSEP -- if this is not a separator line
877c2aa98e2SPeter Wemm **		MBT_INTERMED -- if this is an intermediate separator
878c2aa98e2SPeter Wemm **		MBT_FINAL -- if this is a final boundary
879c2aa98e2SPeter Wemm **		MBT_SYNTAX -- if this is a boundary for the wrong
880c2aa98e2SPeter Wemm **			enclosure -- i.e., a syntax error.
881c2aa98e2SPeter Wemm */
882c2aa98e2SPeter Wemm 
88306f25ae9SGregory Neil Shapiro static int
884c2aa98e2SPeter Wemm mimeboundary(line, boundaries)
885c2aa98e2SPeter Wemm 	register char *line;
886c2aa98e2SPeter Wemm 	char **boundaries;
887c2aa98e2SPeter Wemm {
888c2aa98e2SPeter Wemm 	int type = MBT_NOTSEP;
889c2aa98e2SPeter Wemm 	int i;
890c2aa98e2SPeter Wemm 	int savec;
891c2aa98e2SPeter Wemm 
892c2aa98e2SPeter Wemm 	if (line[0] != '-' || line[1] != '-' || boundaries == NULL)
893c2aa98e2SPeter Wemm 		return MBT_NOTSEP;
894c2aa98e2SPeter Wemm 	i = strlen(line);
895193538b7SGregory Neil Shapiro 	if (i > 0 && line[i - 1] == '\n')
896c2aa98e2SPeter Wemm 		i--;
897c2aa98e2SPeter Wemm 
898c2aa98e2SPeter Wemm 	/* strip off trailing whitespace */
899b6bacd31SGregory Neil Shapiro 	while (i > 0 && (line[i - 1] == ' ' || line[i - 1] == '\t'
900b6bacd31SGregory Neil Shapiro #if _FFR_MIME_CR_OK
901b6bacd31SGregory Neil Shapiro 		|| line[i - 1] == '\r'
902b6bacd31SGregory Neil Shapiro #endif /* _FFR_MIME_CR_OK */
903b6bacd31SGregory Neil Shapiro 	       ))
904c2aa98e2SPeter Wemm 		i--;
905c2aa98e2SPeter Wemm 	savec = line[i];
906c2aa98e2SPeter Wemm 	line[i] = '\0';
907c2aa98e2SPeter Wemm 
908c2aa98e2SPeter Wemm 	if (tTd(43, 5))
90940266059SGregory Neil Shapiro 		sm_dprintf("mimeboundary: line=\"%s\"... ", line);
910c2aa98e2SPeter Wemm 
911c2aa98e2SPeter Wemm 	/* check for this as an intermediate boundary */
912c2aa98e2SPeter Wemm 	if (isboundary(&line[2], boundaries) >= 0)
913c2aa98e2SPeter Wemm 		type = MBT_INTERMED;
914c2aa98e2SPeter Wemm 	else if (i > 2 && strncmp(&line[i - 2], "--", 2) == 0)
915c2aa98e2SPeter Wemm 	{
916c2aa98e2SPeter Wemm 		/* check for a final boundary */
917c2aa98e2SPeter Wemm 		line[i - 2] = '\0';
918c2aa98e2SPeter Wemm 		if (isboundary(&line[2], boundaries) >= 0)
919c2aa98e2SPeter Wemm 			type = MBT_FINAL;
920c2aa98e2SPeter Wemm 		line[i - 2] = '-';
921c2aa98e2SPeter Wemm 	}
922c2aa98e2SPeter Wemm 
923c2aa98e2SPeter Wemm 	line[i] = savec;
924c2aa98e2SPeter Wemm 	if (tTd(43, 5))
92540266059SGregory Neil Shapiro 		sm_dprintf("%s\n", MimeBoundaryNames[type]);
926c2aa98e2SPeter Wemm 	return type;
927c2aa98e2SPeter Wemm }
92840266059SGregory Neil Shapiro /*
929c2aa98e2SPeter Wemm **  DEFCHARSET -- return default character set for message
930c2aa98e2SPeter Wemm **
931c2aa98e2SPeter Wemm **	The first choice for character set is for the mailer
932c2aa98e2SPeter Wemm **	corresponding to the envelope sender.  If neither that
933c2aa98e2SPeter Wemm **	nor the global configuration file has a default character
934c2aa98e2SPeter Wemm **	set defined, return "unknown-8bit" as recommended by
935c2aa98e2SPeter Wemm **	RFC 1428 section 3.
936c2aa98e2SPeter Wemm **
937c2aa98e2SPeter Wemm **	Parameters:
938c2aa98e2SPeter Wemm **		e -- the envelope for this message.
939c2aa98e2SPeter Wemm **
940c2aa98e2SPeter Wemm **	Returns:
941c2aa98e2SPeter Wemm **		The default character set for that mailer.
942c2aa98e2SPeter Wemm */
943c2aa98e2SPeter Wemm 
944c2aa98e2SPeter Wemm char *
945c2aa98e2SPeter Wemm defcharset(e)
946c2aa98e2SPeter Wemm 	register ENVELOPE *e;
947c2aa98e2SPeter Wemm {
948c2aa98e2SPeter Wemm 	if (e != NULL && e->e_from.q_mailer != NULL &&
949c2aa98e2SPeter Wemm 	    e->e_from.q_mailer->m_defcharset != NULL)
950c2aa98e2SPeter Wemm 		return e->e_from.q_mailer->m_defcharset;
951c2aa98e2SPeter Wemm 	if (DefaultCharSet != NULL)
952c2aa98e2SPeter Wemm 		return DefaultCharSet;
953c2aa98e2SPeter Wemm 	return "unknown-8bit";
954c2aa98e2SPeter Wemm }
95540266059SGregory Neil Shapiro /*
956c2aa98e2SPeter Wemm **  ISBOUNDARY -- is a given string a currently valid boundary?
957c2aa98e2SPeter Wemm **
958c2aa98e2SPeter Wemm **	Parameters:
959c2aa98e2SPeter Wemm **		line -- the current input line.
960c2aa98e2SPeter Wemm **		boundaries -- the list of valid boundaries.
961c2aa98e2SPeter Wemm **
962c2aa98e2SPeter Wemm **	Returns:
963c2aa98e2SPeter Wemm **		The index number in boundaries if the line is found.
964c2aa98e2SPeter Wemm **		-1 -- otherwise.
965c2aa98e2SPeter Wemm **
966c2aa98e2SPeter Wemm */
967c2aa98e2SPeter Wemm 
96806f25ae9SGregory Neil Shapiro static int
969c2aa98e2SPeter Wemm isboundary(line, boundaries)
970c2aa98e2SPeter Wemm 	char *line;
971c2aa98e2SPeter Wemm 	char **boundaries;
972c2aa98e2SPeter Wemm {
973c2aa98e2SPeter Wemm 	register int i;
974c2aa98e2SPeter Wemm 
975193538b7SGregory Neil Shapiro 	for (i = 0; i <= MAXMIMENESTING && boundaries[i] != NULL; i++)
976c2aa98e2SPeter Wemm 	{
977c2aa98e2SPeter Wemm 		if (strcmp(line, boundaries[i]) == 0)
978c2aa98e2SPeter Wemm 			return i;
979c2aa98e2SPeter Wemm 	}
980c2aa98e2SPeter Wemm 	return -1;
981c2aa98e2SPeter Wemm }
982c2aa98e2SPeter Wemm #endif /* MIME8TO7 */
98340266059SGregory Neil Shapiro 
984c2aa98e2SPeter Wemm #if MIME7TO8
985605302a5SGregory Neil Shapiro static int	mime_fromqp __P((unsigned char *, unsigned char **, int));
986c2aa98e2SPeter Wemm 
987c2aa98e2SPeter Wemm /*
988c2aa98e2SPeter Wemm **  MIME7TO8 -- output 7 bit encoded MIME body in 8 bit format
989c2aa98e2SPeter Wemm **
990c2aa98e2SPeter Wemm **  This is a hack. Supports translating the two 7-bit body-encodings
991c2aa98e2SPeter Wemm **  (quoted-printable and base64) to 8-bit coded bodies.
992c2aa98e2SPeter Wemm **
993c2aa98e2SPeter Wemm **  There is not much point in supporting multipart here, as the UA
994c2aa98e2SPeter Wemm **  will be able to deal with encoded MIME bodies if it can parse MIME
995c2aa98e2SPeter Wemm **  multipart messages.
996c2aa98e2SPeter Wemm **
997605302a5SGregory Neil Shapiro **  Note also that we won't be called unless it is a text/plain MIME
998c2aa98e2SPeter Wemm **  message, encoded base64 or QP and mailer flag '9' has been defined
999c2aa98e2SPeter Wemm **  on mailer.
1000c2aa98e2SPeter Wemm **
1001c2aa98e2SPeter Wemm **  Contributed by Marius Olaffson <marius@rhi.hi.is>.
1002c2aa98e2SPeter Wemm **
1003c2aa98e2SPeter Wemm **	Parameters:
1004c2aa98e2SPeter Wemm **		mci -- mailer connection information.
1005c2aa98e2SPeter Wemm **		header -- the header for this body part.
1006c2aa98e2SPeter Wemm **		e -- envelope.
1007c2aa98e2SPeter Wemm **
1008c2aa98e2SPeter Wemm **	Returns:
10094e4196cbSGregory Neil Shapiro **		true iff body was written successfully
1010c2aa98e2SPeter Wemm */
1011c2aa98e2SPeter Wemm 
1012c2aa98e2SPeter Wemm static char index_64[128] =
1013c2aa98e2SPeter Wemm {
1014c2aa98e2SPeter Wemm 	-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
1015c2aa98e2SPeter Wemm 	-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
1016c2aa98e2SPeter Wemm 	-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,62, -1,-1,-1,63,
1017c2aa98e2SPeter Wemm 	52,53,54,55, 56,57,58,59, 60,61,-1,-1, -1,-1,-1,-1,
1018c2aa98e2SPeter Wemm 	-1, 0, 1, 2,  3, 4, 5, 6,  7, 8, 9,10, 11,12,13,14,
1019c2aa98e2SPeter Wemm 	15,16,17,18, 19,20,21,22, 23,24,25,-1, -1,-1,-1,-1,
1020c2aa98e2SPeter Wemm 	-1,26,27,28, 29,30,31,32, 33,34,35,36, 37,38,39,40,
1021c2aa98e2SPeter Wemm 	41,42,43,44, 45,46,47,48, 49,50,51,-1, -1,-1,-1,-1
1022c2aa98e2SPeter Wemm };
1023c2aa98e2SPeter Wemm 
1024c2aa98e2SPeter Wemm # define CHAR64(c)  (((c) < 0 || (c) > 127) ? -1 : index_64[(c)])
1025c2aa98e2SPeter Wemm 
10264e4196cbSGregory Neil Shapiro bool
1027c2aa98e2SPeter Wemm mime7to8(mci, header, e)
1028c2aa98e2SPeter Wemm 	register MCI *mci;
1029c2aa98e2SPeter Wemm 	HDR *header;
1030c2aa98e2SPeter Wemm 	register ENVELOPE *e;
1031c2aa98e2SPeter Wemm {
1032605302a5SGregory Neil Shapiro 	int pxflags;
1033c2aa98e2SPeter Wemm 	register char *p;
1034c2aa98e2SPeter Wemm 	char *cte;
1035c2aa98e2SPeter Wemm 	char **pvp;
103640266059SGregory Neil Shapiro 	unsigned char *fbufp;
1037c2aa98e2SPeter Wemm 	char buf[MAXLINE];
103840266059SGregory Neil Shapiro 	unsigned char fbuf[MAXLINE + 1];
1039c2aa98e2SPeter Wemm 	char pvpbuf[MAXLINE];
104040266059SGregory Neil Shapiro 	extern unsigned char MimeTokenTab[256];
1041c2aa98e2SPeter Wemm 
1042c2aa98e2SPeter Wemm 	p = hvalue("Content-Transfer-Encoding", header);
1043c2aa98e2SPeter Wemm 	if (p == NULL ||
1044c2aa98e2SPeter Wemm 	    (pvp = prescan(p, '\0', pvpbuf, sizeof pvpbuf, NULL,
1045e92d3f3fSGregory Neil Shapiro 			   MimeTokenTab, false)) == NULL ||
1046c2aa98e2SPeter Wemm 	    pvp[0] == NULL)
1047c2aa98e2SPeter Wemm 	{
1048c2aa98e2SPeter Wemm 		/* "can't happen" -- upper level should have caught this */
1049c2aa98e2SPeter Wemm 		syserr("mime7to8: unparsable CTE %s", p == NULL ? "<NULL>" : p);
1050c2aa98e2SPeter Wemm 
1051c2aa98e2SPeter Wemm 		/* avoid bounce loops */
1052c2aa98e2SPeter Wemm 		e->e_flags |= EF_DONT_MIME;
1053c2aa98e2SPeter Wemm 
1054c2aa98e2SPeter Wemm 		/* cheap failsafe algorithm -- should work on text/plain */
1055c2aa98e2SPeter Wemm 		if (p != NULL)
1056c2aa98e2SPeter Wemm 		{
105740266059SGregory Neil Shapiro 			(void) sm_snprintf(buf, sizeof buf,
1058c2aa98e2SPeter Wemm 				"Content-Transfer-Encoding: %s", p);
10594e4196cbSGregory Neil Shapiro 			if (!putline(buf, mci))
10604e4196cbSGregory Neil Shapiro 				goto writeerr;
1061c2aa98e2SPeter Wemm 		}
10624e4196cbSGregory Neil Shapiro 		if (!putline("", mci))
10634e4196cbSGregory Neil Shapiro 			goto writeerr;
1064c2aa98e2SPeter Wemm 		mci->mci_flags &= ~MCIF_INHEADER;
106540266059SGregory Neil Shapiro 		while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf)
106640266059SGregory Neil Shapiro 			!= NULL)
10674e4196cbSGregory Neil Shapiro 		{
10684e4196cbSGregory Neil Shapiro 			if (!putline(buf, mci))
10694e4196cbSGregory Neil Shapiro 				goto writeerr;
10704e4196cbSGregory Neil Shapiro 		}
10714e4196cbSGregory Neil Shapiro 		return true;
1072c2aa98e2SPeter Wemm 	}
1073c2aa98e2SPeter Wemm 	cataddr(pvp, NULL, buf, sizeof buf, '\0');
107440266059SGregory Neil Shapiro 	cte = sm_rpool_strdup_x(e->e_rpool, buf);
1075c2aa98e2SPeter Wemm 
1076c2aa98e2SPeter Wemm 	mci->mci_flags |= MCIF_INHEADER;
10774e4196cbSGregory Neil Shapiro 	if (!putline("Content-Transfer-Encoding: 8bit", mci))
10784e4196cbSGregory Neil Shapiro 		goto writeerr;
107940266059SGregory Neil Shapiro 	(void) sm_snprintf(buf, sizeof buf,
1080c2aa98e2SPeter Wemm 		"X-MIME-Autoconverted: from %.200s to 8bit by %s id %s",
1081c2aa98e2SPeter Wemm 		cte, MyHostName, e->e_id);
10824e4196cbSGregory Neil Shapiro 	if (!putline(buf, mci) || !putline("", mci))
10834e4196cbSGregory Neil Shapiro 		goto writeerr;
1084c2aa98e2SPeter Wemm 	mci->mci_flags &= ~MCIF_INHEADER;
1085c2aa98e2SPeter Wemm 
1086c2aa98e2SPeter Wemm 	/*
1087c2aa98e2SPeter Wemm 	**  Translate body encoding to 8-bit.  Supports two types of
1088c2aa98e2SPeter Wemm 	**  encodings; "base64" and "quoted-printable". Assume qp if
1089c2aa98e2SPeter Wemm 	**  it is not base64.
1090c2aa98e2SPeter Wemm 	*/
1091c2aa98e2SPeter Wemm 
1092605302a5SGregory Neil Shapiro 	pxflags = PXLF_MAPFROM;
109340266059SGregory Neil Shapiro 	if (sm_strcasecmp(cte, "base64") == 0)
1094c2aa98e2SPeter Wemm 	{
1095c2aa98e2SPeter Wemm 		int c1, c2, c3, c4;
1096c2aa98e2SPeter Wemm 
1097c2aa98e2SPeter Wemm 		fbufp = fbuf;
109840266059SGregory Neil Shapiro 		while ((c1 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT)) !=
109940266059SGregory Neil Shapiro 			SM_IO_EOF)
1100c2aa98e2SPeter Wemm 		{
1101c2aa98e2SPeter Wemm 			if (isascii(c1) && isspace(c1))
1102c2aa98e2SPeter Wemm 				continue;
1103c2aa98e2SPeter Wemm 
1104c2aa98e2SPeter Wemm 			do
1105c2aa98e2SPeter Wemm 			{
110640266059SGregory Neil Shapiro 				c2 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT);
1107c2aa98e2SPeter Wemm 			} while (isascii(c2) && isspace(c2));
110840266059SGregory Neil Shapiro 			if (c2 == SM_IO_EOF)
1109c2aa98e2SPeter Wemm 				break;
1110c2aa98e2SPeter Wemm 
1111c2aa98e2SPeter Wemm 			do
1112c2aa98e2SPeter Wemm 			{
111340266059SGregory Neil Shapiro 				c3 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT);
1114c2aa98e2SPeter Wemm 			} while (isascii(c3) && isspace(c3));
111540266059SGregory Neil Shapiro 			if (c3 == SM_IO_EOF)
1116c2aa98e2SPeter Wemm 				break;
1117c2aa98e2SPeter Wemm 
1118c2aa98e2SPeter Wemm 			do
1119c2aa98e2SPeter Wemm 			{
112040266059SGregory Neil Shapiro 				c4 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT);
1121c2aa98e2SPeter Wemm 			} while (isascii(c4) && isspace(c4));
112240266059SGregory Neil Shapiro 			if (c4 == SM_IO_EOF)
1123c2aa98e2SPeter Wemm 				break;
1124c2aa98e2SPeter Wemm 
1125c2aa98e2SPeter Wemm 			if (c1 == '=' || c2 == '=')
1126c2aa98e2SPeter Wemm 				continue;
1127c2aa98e2SPeter Wemm 			c1 = CHAR64(c1);
1128c2aa98e2SPeter Wemm 			c2 = CHAR64(c2);
1129c2aa98e2SPeter Wemm 
1130323f6dcbSGregory Neil Shapiro #if MIME7TO8_OLD
1131323f6dcbSGregory Neil Shapiro #define CHK_EOL if (*--fbufp != '\n' || (fbufp > fbuf && *--fbufp != '\r')) \
1132323f6dcbSGregory Neil Shapiro 			++fbufp;
1133323f6dcbSGregory Neil Shapiro #else /* MIME7TO8_OLD */
1134323f6dcbSGregory Neil Shapiro #define CHK_EOL if (*--fbufp != '\n' || (fbufp > fbuf && *--fbufp != '\r')) \
1135323f6dcbSGregory Neil Shapiro 		{					\
1136323f6dcbSGregory Neil Shapiro 			++fbufp;			\
1137323f6dcbSGregory Neil Shapiro 			pxflags |= PXLF_NOADDEOL;	\
1138323f6dcbSGregory Neil Shapiro 		}
1139323f6dcbSGregory Neil Shapiro #endif /* MIME7TO8_OLD */
1140323f6dcbSGregory Neil Shapiro 
1141323f6dcbSGregory Neil Shapiro #define PUTLINE64	\
1142323f6dcbSGregory Neil Shapiro 	do		\
1143323f6dcbSGregory Neil Shapiro 	{		\
1144323f6dcbSGregory Neil Shapiro 		if (*fbufp++ == '\n' || fbufp >= &fbuf[MAXLINE])	\
1145323f6dcbSGregory Neil Shapiro 		{							\
1146323f6dcbSGregory Neil Shapiro 			CHK_EOL;					\
11474e4196cbSGregory Neil Shapiro 			if (!putxline((char *) fbuf, fbufp - fbuf, mci, pxflags)) \
11484e4196cbSGregory Neil Shapiro 				goto writeerr;				\
1149323f6dcbSGregory Neil Shapiro 			pxflags &= ~PXLF_NOADDEOL;			\
1150323f6dcbSGregory Neil Shapiro 			fbufp = fbuf;					\
1151323f6dcbSGregory Neil Shapiro 		}	\
1152323f6dcbSGregory Neil Shapiro 	} while (0)
1153323f6dcbSGregory Neil Shapiro 
1154c2aa98e2SPeter Wemm 			*fbufp = (c1 << 2) | ((c2 & 0x30) >> 4);
1155323f6dcbSGregory Neil Shapiro 			PUTLINE64;
1156c2aa98e2SPeter Wemm 			if (c3 == '=')
1157c2aa98e2SPeter Wemm 				continue;
1158c2aa98e2SPeter Wemm 			c3 = CHAR64(c3);
1159c2aa98e2SPeter Wemm 			*fbufp = ((c2 & 0x0f) << 4) | ((c3 & 0x3c) >> 2);
1160323f6dcbSGregory Neil Shapiro 			PUTLINE64;
1161c2aa98e2SPeter Wemm 			if (c4 == '=')
1162c2aa98e2SPeter Wemm 				continue;
1163c2aa98e2SPeter Wemm 			c4 = CHAR64(c4);
1164c2aa98e2SPeter Wemm 			*fbufp = ((c3 & 0x03) << 6) | c4;
1165323f6dcbSGregory Neil Shapiro 			PUTLINE64;
1166c2aa98e2SPeter Wemm 		}
1167c2aa98e2SPeter Wemm 	}
1168c2aa98e2SPeter Wemm 	else
1169c2aa98e2SPeter Wemm 	{
1170605302a5SGregory Neil Shapiro 		int off;
1171605302a5SGregory Neil Shapiro 
1172c2aa98e2SPeter Wemm 		/* quoted-printable */
1173605302a5SGregory Neil Shapiro 		pxflags |= PXLF_NOADDEOL;
1174c2aa98e2SPeter Wemm 		fbufp = fbuf;
1175605302a5SGregory Neil Shapiro 		while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf,
1176605302a5SGregory Neil Shapiro 				   sizeof buf) != NULL)
1177c2aa98e2SPeter Wemm 		{
1178605302a5SGregory Neil Shapiro 			off = mime_fromqp((unsigned char *) buf, &fbufp,
1179605302a5SGregory Neil Shapiro 					  &fbuf[MAXLINE] - fbufp);
1180605302a5SGregory Neil Shapiro again:
1181605302a5SGregory Neil Shapiro 			if (off < -1)
1182c2aa98e2SPeter Wemm 				continue;
1183c2aa98e2SPeter Wemm 
1184c2aa98e2SPeter Wemm 			if (fbufp - fbuf > 0)
11854e4196cbSGregory Neil Shapiro 			{
11864e4196cbSGregory Neil Shapiro 				if (!putxline((char *) fbuf, fbufp - fbuf - 1,
11874e4196cbSGregory Neil Shapiro 						mci, pxflags))
11884e4196cbSGregory Neil Shapiro 					goto writeerr;
11894e4196cbSGregory Neil Shapiro 			}
1190c2aa98e2SPeter Wemm 			fbufp = fbuf;
1191605302a5SGregory Neil Shapiro 			if (off >= 0 && buf[off] != '\0')
1192605302a5SGregory Neil Shapiro 			{
1193605302a5SGregory Neil Shapiro 				off = mime_fromqp((unsigned char *) (buf + off),
1194605302a5SGregory Neil Shapiro 						  &fbufp,
1195605302a5SGregory Neil Shapiro 						  &fbuf[MAXLINE] - fbufp);
1196605302a5SGregory Neil Shapiro 				goto again;
1197605302a5SGregory Neil Shapiro 			}
1198c2aa98e2SPeter Wemm 		}
1199c2aa98e2SPeter Wemm 	}
1200c2aa98e2SPeter Wemm 
1201c2aa98e2SPeter Wemm 	/* force out partial last line */
1202c2aa98e2SPeter Wemm 	if (fbufp > fbuf)
1203c2aa98e2SPeter Wemm 	{
1204c2aa98e2SPeter Wemm 		*fbufp = '\0';
12054e4196cbSGregory Neil Shapiro 		if (!putxline((char *) fbuf, fbufp - fbuf, mci, pxflags))
12064e4196cbSGregory Neil Shapiro 			goto writeerr;
1207c2aa98e2SPeter Wemm 	}
1208605302a5SGregory Neil Shapiro 
1209605302a5SGregory Neil Shapiro 	/*
1210605302a5SGregory Neil Shapiro 	**  The decoded text may end without an EOL.  Since this function
1211605302a5SGregory Neil Shapiro 	**  is only called for text/plain MIME messages, it is safe to
1212605302a5SGregory Neil Shapiro 	**  add an extra one at the end just in case.  This is a hack,
1213605302a5SGregory Neil Shapiro 	**  but so is auto-converting MIME in the first place.
1214605302a5SGregory Neil Shapiro 	*/
1215605302a5SGregory Neil Shapiro 
12164e4196cbSGregory Neil Shapiro 	if (!putline("", mci))
12174e4196cbSGregory Neil Shapiro 		goto writeerr;
1218605302a5SGregory Neil Shapiro 
1219c2aa98e2SPeter Wemm 	if (tTd(43, 3))
122040266059SGregory Neil Shapiro 		sm_dprintf("\t\t\tmime7to8 => %s to 8bit done\n", cte);
12214e4196cbSGregory Neil Shapiro 	return true;
12224e4196cbSGregory Neil Shapiro 
12234e4196cbSGregory Neil Shapiro   writeerr:
12244e4196cbSGregory Neil Shapiro 	return false;
1225c2aa98e2SPeter Wemm }
122640266059SGregory Neil Shapiro /*
1227c2aa98e2SPeter Wemm **  The following is based on Borenstein's "codes.c" module, with simplifying
1228c2aa98e2SPeter Wemm **  changes as we do not deal with multipart, and to do the translation in-core,
1229c2aa98e2SPeter Wemm **  with an attempt to prevent overrun of output buffers.
1230c2aa98e2SPeter Wemm **
123140266059SGregory Neil Shapiro **  What is needed here are changes to defend this code better against
1232c2aa98e2SPeter Wemm **  bad encodings. Questionable to always return 0xFF for bad mappings.
1233c2aa98e2SPeter Wemm */
1234c2aa98e2SPeter Wemm 
1235c2aa98e2SPeter Wemm static char index_hex[128] =
1236c2aa98e2SPeter Wemm {
1237c2aa98e2SPeter Wemm 	-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
1238c2aa98e2SPeter Wemm 	-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
1239c2aa98e2SPeter Wemm 	-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
1240c2aa98e2SPeter Wemm 	0, 1, 2, 3,  4, 5, 6, 7,  8, 9,-1,-1, -1,-1,-1,-1,
1241c2aa98e2SPeter Wemm 	-1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
1242c2aa98e2SPeter Wemm 	-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
1243c2aa98e2SPeter Wemm 	-1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
1244c2aa98e2SPeter Wemm 	-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1
1245c2aa98e2SPeter Wemm };
1246c2aa98e2SPeter Wemm 
1247c2aa98e2SPeter Wemm # define HEXCHAR(c)  (((c) < 0 || (c) > 127) ? -1 : index_hex[(c)])
1248c2aa98e2SPeter Wemm 
1249605302a5SGregory Neil Shapiro /*
1250605302a5SGregory Neil Shapiro **  MIME_FROMQP -- decode quoted printable string
1251605302a5SGregory Neil Shapiro **
1252605302a5SGregory Neil Shapiro **	Parameters:
1253605302a5SGregory Neil Shapiro **		infile -- input (encoded) string
1254605302a5SGregory Neil Shapiro **		outfile -- output string
1255605302a5SGregory Neil Shapiro **		maxlen -- size of output buffer
1256605302a5SGregory Neil Shapiro **
1257605302a5SGregory Neil Shapiro **	Returns:
1258605302a5SGregory Neil Shapiro **		-2 if decoding failure
1259605302a5SGregory Neil Shapiro **		-1 if infile completely decoded into outfile
1260605302a5SGregory Neil Shapiro **		>= 0 is the position in infile decoding
1261605302a5SGregory Neil Shapiro **			reached before maxlen was reached
1262605302a5SGregory Neil Shapiro */
1263605302a5SGregory Neil Shapiro 
126406f25ae9SGregory Neil Shapiro static int
1265605302a5SGregory Neil Shapiro mime_fromqp(infile, outfile, maxlen)
126640266059SGregory Neil Shapiro 	unsigned char *infile;
126740266059SGregory Neil Shapiro 	unsigned char **outfile;
1268c2aa98e2SPeter Wemm 	int maxlen;		/* Max # of chars allowed in outfile */
1269c2aa98e2SPeter Wemm {
1270c2aa98e2SPeter Wemm 	int c1, c2;
1271c2aa98e2SPeter Wemm 	int nchar = 0;
1272605302a5SGregory Neil Shapiro 	unsigned char *b;
1273c2aa98e2SPeter Wemm 
1274605302a5SGregory Neil Shapiro 	/* decrement by one for trailing '\0', at least one other char */
1275605302a5SGregory Neil Shapiro 	if (--maxlen < 1)
127640266059SGregory Neil Shapiro 		return 0;
127740266059SGregory Neil Shapiro 
1278605302a5SGregory Neil Shapiro 	b = infile;
1279605302a5SGregory Neil Shapiro 	while ((c1 = *infile++) != '\0' && nchar < maxlen)
1280c2aa98e2SPeter Wemm 	{
1281c2aa98e2SPeter Wemm 		if (c1 == '=')
1282c2aa98e2SPeter Wemm 		{
1283605302a5SGregory Neil Shapiro 			if ((c1 = *infile++) == '\0')
1284c2aa98e2SPeter Wemm 				break;
1285c2aa98e2SPeter Wemm 
1286c2aa98e2SPeter Wemm 			if (c1 == '\n' || (c1 = HEXCHAR(c1)) == -1)
1287c2aa98e2SPeter Wemm 			{
1288605302a5SGregory Neil Shapiro 				/* ignore it and the rest of the buffer */
1289605302a5SGregory Neil Shapiro 				return -2;
1290c2aa98e2SPeter Wemm 			}
1291c2aa98e2SPeter Wemm 			else
1292c2aa98e2SPeter Wemm 			{
1293c2aa98e2SPeter Wemm 				do
1294c2aa98e2SPeter Wemm 				{
1295c2aa98e2SPeter Wemm 					if ((c2 = *infile++) == '\0')
1296c2aa98e2SPeter Wemm 					{
1297c2aa98e2SPeter Wemm 						c2 = -1;
1298c2aa98e2SPeter Wemm 						break;
1299c2aa98e2SPeter Wemm 					}
1300c2aa98e2SPeter Wemm 				} while ((c2 = HEXCHAR(c2)) == -1);
1301c2aa98e2SPeter Wemm 
1302605302a5SGregory Neil Shapiro 				if (c2 == -1)
1303c2aa98e2SPeter Wemm 					break;
1304605302a5SGregory Neil Shapiro 				nchar++;
1305c2aa98e2SPeter Wemm 				*(*outfile)++ = c1 << 4 | c2;
1306c2aa98e2SPeter Wemm 			}
1307c2aa98e2SPeter Wemm 		}
1308c2aa98e2SPeter Wemm 		else
1309c2aa98e2SPeter Wemm 		{
1310605302a5SGregory Neil Shapiro 			nchar++;
1311c2aa98e2SPeter Wemm 			*(*outfile)++ = c1;
1312c2aa98e2SPeter Wemm 			if (c1 == '\n')
1313c2aa98e2SPeter Wemm 				break;
1314c2aa98e2SPeter Wemm 		}
1315c2aa98e2SPeter Wemm 	}
1316c2aa98e2SPeter Wemm 	*(*outfile)++ = '\0';
1317605302a5SGregory Neil Shapiro 	if (nchar >= maxlen)
1318605302a5SGregory Neil Shapiro 		return (infile - b - 1);
1319605302a5SGregory Neil Shapiro 	return -1;
1320c2aa98e2SPeter Wemm }
1321c2aa98e2SPeter Wemm #endif /* MIME7TO8 */
1322