2 * This program is free software; you can redistribute it and/or modify
3 * it under the terms of the GNU General Public License as published by
4 * the Free Software Foundation; either version 2 of the License, or (at
5 * your option) any later version.
7 * This program is distributed in the hope that it will be useful, but
8 * WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
10 * General Public License for more details.
12 * You should have received a copy of the GNU General Public License
13 * along with this program; if not, write to the Free Software
14 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
17 * Copyright © 2006 Pierre Habouzit
21 * Copyright notice from original mutt:
22 * Copyright (C) 1999-2000 Thomas Roessler <roessler@does-not-exist.org>
24 * This file is part of mutt-ng, see http://www.muttng.org/.
25 * It's licensed under the GNU General Public License,
26 * please see the file GPL in the top level source directory.
30 * Yet another MIME encoding for header data. This time, it's
31 * parameters, specified in RFC 2231, and modeled after the
32 * encoding used in URLs.
34 * Additionally, continuations and encoding are mixed in an, errrm,
39 #include <lib-lib/lib-lib.h>
41 #include <lib-mime/mime.h>
46 typedef struct rfc2231_param {
47 struct rfc2231_param *next;
55 DO_INIT(rfc2231_param, rfc2231_param);
56 static inline void rfc2231_param_wipe(rfc2231_param *param)
58 p_delete(¶m->attribute);
59 p_delete(¶m->value);
61 DO_NEW(rfc2231_param, rfc2231_param);
62 DO_DELETE(rfc2231_param, rfc2231_param);
64 /* TODO: MC: replace with a str_unescape */
65 static void rfc2231_decode_one(char *dst, const char *src)
71 && (h1 = hexval(src[1])) >= 0 && (h2 = hexval(src[2])) >= 0)
73 *dst++ = (h1 << 4) | h2;
83 /* read the <charset>'foo' part into charset, and skip that */
84 static char *rfc2231_get_charset(char *value, char *charset, size_t chslen)
88 t = strchr(value, '\'');
95 m_strcpy(charset, chslen, value);
97 if ((u = strchr(t + 1, '\''))) {
105 /* insert parameter into an ordered list.
107 * Primary sorting key: attribute
108 * Secondary sorting key: idx
110 * XXX: MC: looks very unclear to me
113 rfc2231_list_insert(rfc2231_param **list, rfc2231_param *par)
118 rfc2231_param *q = *list;
120 list = &(*list)->next;
122 c = m_strcmp(par->value, q->value);
123 if ((c > 0) || (c == 0 && par->idx >= q->idx))
131 static void purge_empty_parameters(parameter_t **headp)
134 parameter_t *p = *headp;
136 if (!p->attribute || !p->value) {
137 p = parameter_list_pop(headp);
138 parameter_delete(&p);
140 headp = &(*headp)->next;
145 /* process continuation parameters */
146 /* XXX: MC: not read */
148 rfc2231_join_continuations(parameter_t **head, rfc2231_param *par)
152 char attribute[STRING];
153 char charset[STRING];
164 m_strcpy(attribute, sizeof(attribute), par->attribute);
166 if ((encoded = par->encoded))
167 valp = rfc2231_get_charset (par->value, charset, sizeof (charset));
172 if (encoded && par->encoded)
173 rfc2231_decode_one (par->value, valp);
175 vl = m_strlen(par->value);
177 p_realloc(&value, l + vl + 1);
178 m_strcpy(value + l, vl + 1, par->value);
182 rfc2231_param_delete (&par);
185 } while (par && !m_strcmp(par->attribute, attribute));
189 mutt_convert_string (&value, charset, mod_cset.charset, M_ICONV_HOOK_FROM);
190 *head = parameter_new();
191 (*head)->attribute = m_strdup(attribute);
192 (*head)->value = value;
193 head = &(*head)->next;
198 /****************************************************************************/
200 /****************************************************************************/
202 /* XXX: MC: not read */
203 void rfc2231_decode_parameters (parameter_t ** headp)
205 parameter_t *head = NULL;
209 rfc2231_param *conthead = NULL;
210 rfc2231_param *conttmp;
213 char charset[STRING];
217 short dirty = 0; /* 1 when we may have created empty parameters. */
222 purge_empty_parameters (headp);
224 for (last = &head, p = *headp; p; p = q) {
227 if (!(s = strchr (p->attribute, '*'))) {
230 * Using RFC 2047 encoding in MIME parameters is explicitly
231 * forbidden by that document. Nevertheless, it's being
232 * generated by some software, including certain Lotus Notes to
233 * Internet Gateways. So we actually decode it.
236 if (p->value && strstr(p->value, "=?")) {
237 rfc2047_decode(&p->value);
239 if (mime_which_token(mod_cset.assumed_charset, -1) == MIME_US_ASCII)
240 mutt_convert_nonmime_string(&p->value);
247 else if (*(s + 1) == '\0') {
250 s = rfc2231_get_charset (p->value, charset, sizeof (charset));
251 rfc2231_decode_one (p->value, s);
252 mutt_convert_string (&p->value, charset, mod_cset.charset, M_ICONV_HOOK_FROM);
262 s++; /* let s point to the first character of idx. */
263 for (t = s; *t && isdigit ((unsigned char) *t); t++);
264 encoded = (*t == '*');
269 conttmp = rfc2231_param_new ();
270 conttmp->attribute = p->attribute;
271 conttmp->value = p->value;
272 conttmp->encoded = encoded;
279 rfc2231_list_insert (&conthead, conttmp);
284 rfc2231_join_continuations (last, conthead);
291 purge_empty_parameters (headp);
294 #define RFC2231_SPECIALS "@.,;:<>[]\\\"()?/= \t*'%"
296 int rfc2231_encode_string(char **s)
298 char *charset = NULL;
299 char *e, *p, *t, *d = NULL;
304 * A shortcut to detect pure 7bit data.
306 * This should prevent the worst when character set handling is flawed.
309 for (p = *s; ; p++) {
316 if (mod_cset.charset && mod_cset.send_charset) {
317 charset = mutt_choose_charset(mod_cset.charset, mod_cset.send_charset,
318 *s, m_strlen(*s), &d, &dlen);
322 charset = m_strdup(mod_cset.charset ?: "unknown-8bit");
327 for (p = d; *p; p++) {
328 if (*p < 0x20 || *p >= 0x7f || strchr(RFC2231_SPECIALS, *p)) {
333 e = p_new(char, dlen + 2 * escapes + m_strlen(charset) + 3);
335 t = e + sprintf(e, "%s''", charset);
336 for (p = d; *p; p++) {
337 if (*p < 0x20 || *p >= 0x7f || strchr(RFC2231_SPECIALS, *p)) {
339 *t++ = __m_b36chars_upper[*p >> 4];
340 *t++ = __m_b36chars_upper[*p & 0xf];