1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ MIME support functions.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2016 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
9 * Gunnar Ritter. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by Gunnar Ritter
22 * and his contributors.
23 * 4. Neither the name of Gunnar Ritter nor the names of his contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
27 * THIS SOFTWARE IS PROVIDED BY GUNNAR RITTER AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL GUNNAR RITTER OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
42 #ifndef HAVE_AMALGAMATION
46 static char *_cs_iter_base
, *_cs_iter
;
48 # define _CS_ITER_GET() ((_cs_iter != NULL) ? _cs_iter : charset_get_8bit())
50 # define _CS_ITER_GET() ((_cs_iter != NULL) ? _cs_iter : charset_get_lc())
52 #define _CS_ITER_STEP() _cs_iter = n_strsep(&_cs_iter_base, ',', TRU1)
54 /* Is 7-bit enough? */
56 static bool_t
_has_highbit(char const *s
);
57 static bool_t
_name_highbit(struct name
*np
);
60 /* fwrite(3) while checking for displayability */
61 static ssize_t
_fwrite_td(struct str
const *input
, enum tdflags flags
,
62 struct str
*outrest
, struct quoteflt
*qf
);
64 /* Convert header fields to RFC 1522 format and write to the file fo */
65 static ssize_t
mime_write_tohdr(struct str
*in
, FILE *fo
);
67 /* Write len characters of the passed string to the passed file, doing charset
68 * and header conversion */
69 static ssize_t
convhdra(char const *str
, size_t len
, FILE *fp
);
71 /* Write an address to a header field */
72 static ssize_t
mime_write_tohdr_a(struct str
*in
, FILE *f
);
74 /* Append to buf, handling resizing */
75 static void _append_str(char **buf
, size_t *sz
, size_t *pos
,
76 char const *str
, size_t len
);
77 static void _append_conv(char **buf
, size_t *sz
, size_t *pos
,
78 char const *str
, size_t len
);
82 _has_highbit(char const *s
)
100 _name_highbit(struct name
*np
)
106 if (_has_highbit(np
->n_name
) || _has_highbit(np
->n_fullname
))
115 #endif /* HAVE_ICONV */
117 static sigjmp_buf __mimefwtd_actjmp
; /* TODO someday.. */
118 static int __mimefwtd_sig
; /* TODO someday.. */
119 static sighandler_type __mimefwtd_opipe
;
121 __mimefwtd_onsig(int sig
) /* TODO someday, we won't need it no more */
123 NYD_X
; /* Signal handler */
124 __mimefwtd_sig
= sig
;
125 siglongjmp(__mimefwtd_actjmp
, 1);
129 _fwrite_td(struct str
const *input
, enum tdflags flags
, struct str
*outrest
,
132 /* TODO note: after send/MIME layer rewrite we will have a string pool
133 * TODO so that memory allocation count drops down massively; for now,
134 * TODO v14.* that is, we pay a lot & heavily depend on the allocator */
135 /* TODO well if we get a broken pipe here, and it happens to
136 * TODO happen pretty easy when sleeping in a full pipe buffer,
137 * TODO then the current codebase performs longjump away;
138 * TODO this leaves memory leaks behind ('think up to 3 per,
139 * TODO dep. upon alloca availability). For this to be fixed
140 * TODO we either need to get rid of the longjmp()s (tm) or
141 * TODO the storage must come from the outside or be tracked
142 * TODO in a carrier struct. Best both. But storage reuse
143 * TODO would be a bigbig win besides */
144 /* *input* _may_ point to non-modifyable buffer; but even then it only
145 * needs to be dup'ed away if we have to transform the content */
156 if ((flags
& TD_ICONV
) && iconvd
!= (iconv_t
)-1) {
159 if (outrest
!= NULL
&& outrest
->l
> 0) {
160 in
.l
= outrest
->l
+ input
->l
;
161 in
.s
= buf
= smalloc(in
.l
+1);
162 memcpy(in
.s
, outrest
->s
, outrest
->l
);
163 memcpy(&in
.s
[outrest
->l
], input
->s
, input
->l
);
167 if (n_iconv_str(iconvd
, n_ICONV_UNIDEFAULT
, &out
, &in
, &in
) != 0 &&
168 outrest
!= NULL
&& in
.l
> 0) {
169 n_iconv_reset(iconvd
);
170 /* Incomplete multibyte at EOF is special */
171 if (flags
& _TD_EOF
) {
172 out
.s
= srealloc(out
.s
, out
.l
+ 4);
173 if(options
& OPT_UNICODE
){
174 out
.s
[out
.l
+0] = '\xEF'; /* TODO magic */
175 out
.s
[out
.l
+1] = '\xBF';
176 out
.s
[out
.l
+2] = '\xBD';
179 out
.s
[out
.l
++] = '?';
181 n_str_add(outrest
, &in
);
186 flags
&= ~_TD_BUFCOPY
;
194 makeprint(&in
, &out
);
195 else if (flags
& _TD_BUFCOPY
)
196 n_str_dup(&out
, &in
);
199 if (flags
& TD_DELCTRL
)
200 out
.l
= delctrl(out
.s
, out
.l
);
203 __mimefwtd_opipe
= safe_signal(SIGPIPE
, &__mimefwtd_onsig
);
204 if (sigsetjmp(__mimefwtd_actjmp
, 1)) {
209 rv
= quoteflt_push(qf
, out
.s
, out
.l
);
214 if (in
.s
!= input
->s
)
216 safe_signal(SIGPIPE
, __mimefwtd_opipe
);
217 if (__mimefwtd_sig
!= 0)
218 n_raise(__mimefwtd_sig
);
224 mime_write_tohdr(struct str
*in
, FILE *fo
)
226 /* TODO mime_write_tohdr(): we don't know the name of our header->maxcol..
227 * TODO MIME/send layer rewrite: more available state!!
228 * TODO Because of this we cannot make a difference in between structured
229 * TODO and unstructured headers (RFC 2047, 5. (2))
230 * TODO NOT MULTIBYTE SAFE IF AN ENCODED WORD HAS TO BE SPLITTED!
231 * TODO To be better we had to mbtowc_l() (non-std! and no locale!!) and
232 * TODO work char-wise! -> S-CText..
233 * TODO The real problem for STD compatibility is however that "in" is
234 * TODO already iconv(3) encoded to the target character set! We could
235 * TODO also solve it (very expensively!) if we would narrow down to an
236 * TODO encoded word and then iconv(3)+MIME encode in one go, in which
237 * TODO case multibyte errors could be catched! */
239 /* Maximum line length *//* XXX we are too inflexible and could use
240 * XXX MIME_LINELEN unless an RFC 2047 encoding was actually used */
241 _MAXCOL
= MIME_LINELEN_RFC2047
244 _FIRST
= 1<<0, /* Nothing written yet, start of string */
245 _NO_QP
= 1<<1, /* No quoted-printable allowed */
246 _NO_B64
= 1<<2, /* Ditto, base64 */
247 _ENC_LAST
= 1<<3, /* Last round generated encoded word */
248 _SHOULD_BEE
= 1<<4, /* Avoid lines longer than SHOULD via encoding */
250 _RND_MASK
= (1<<_RND_SHIFT
) - 1,
251 _SPACE
= 1<<(_RND_SHIFT
+1), /* Leading whitespace */
252 _8BIT
= 1<<(_RND_SHIFT
+2), /* High bit set */
253 _ENCODE
= 1<<(_RND_SHIFT
+3), /* Need encoding */
254 _ENC_B64
= 1<<(_RND_SHIFT
+4), /* - let it be base64 */
255 _OVERLONG
= 1<<(_RND_SHIFT
+5) /* Temporarily rised limit */
258 struct str cout
, cin
;
259 char const *cset7
, *cset8
, *wbot
, *upper
, *wend
, *wcur
;
260 ui32_t cset7_len
, cset8_len
;
265 cout
.s
= NULL
, cout
.l
= 0;
266 cset7
= charset_get_7bit();
267 cset7_len
= (ui32_t
)strlen(cset7
);
268 cset8
= _CS_ITER_GET(); /* TODO MIME/send layer: iter active? iter! else */
269 cset8_len
= (ui32_t
)strlen(cset8
);
271 /* RFC 1468, "MIME Considerations":
272 * ISO-2022-JP may also be used in MIME Part 2 headers. The "B"
273 * encoding should be used with ISO-2022-JP text. */
274 /* TODO of course, our current implementation won't deal properly with
275 * TODO any stateful encoding at all... (the standard says each encoded
276 * TODO word must include all necessary reset sequences..., i.e., each
277 * TODO encoded word must be a self-contained iconv(3) life cycle) */
278 if (!asccasecmp(cset8
, "iso-2022-jp"))
282 upper
= wbot
+ in
->l
;
283 col
= sizeof("Mail-Followup-To: ") -1; /* dreadful thing */
285 for (sz
= 0; wbot
< upper
; flags
&= ~_FIRST
, wbot
= wend
) {
288 while (wcur
< upper
&& whitechar(*wcur
)) {
293 /* Any occurrence of whitespace resets prevention of lines >SHOULD via
294 * enforced encoding (xxx SHOULD, but.. encoding is expensive!!) */
296 flags
&= ~_SHOULD_BEE
;
298 /* Data ends with WS - dump it and done.
299 * Also, if we have seen multiple successive whitespace characters, then
300 * if there was no encoded word last, i.e., if we can simply take them
301 * over to the output as-is, keep one WS for possible later separation
302 * purposes and simply print the others as-is, directly! */
307 if ((flags
& (_ENC_LAST
| _SPACE
)) == _SPACE
&& wcur
- wbot
> 1) {
312 /* Skip over a word to next non-whitespace, keep track along the way
313 * whether our 7-bit charset suffices to represent the data */
314 for (wend
= wcur
; wend
< upper
; ++wend
) {
315 if (whitechar(*wend
))
317 if ((uc_i
)*wend
& 0x80)
321 /* Decide whether the range has to become encoded or not */
322 i
= PTR2SIZE(wend
- wcur
);
323 j
= mime_enc_mustquote(wcur
, i
, MIMEEF_ISHEAD
);
324 /* If it just cannot fit on a SHOULD line length, force encode */
326 flags
|= _SHOULD_BEE
; /* (Sigh: SHOULD only, not MUST..) */
329 if ((flags
& _SHOULD_BEE
) || j
> 0) {
332 /* Use base64 if requested or more than 50% -37.5-% of the bytes of
333 * the string need to be encoded */
334 if ((flags
& _NO_QP
) || j
>= i
>> 1)/*(i >> 2) + (i >> 3))*/
337 DBG( if (flags
& _8BIT
) assert(flags
& _ENCODE
); )
339 if (!(flags
& _ENCODE
)) {
340 /* Encoded word produced, but no linear whitespace for necessary RFC
341 * 2047 separation? Generate artificial data (bad standard!) */
342 if ((flags
& (_ENC_LAST
| _SPACE
)) == _ENC_LAST
) {
343 if (col
>= _MAXCOL
) {
356 /* todo No effort here: (1) v15.0 has to bring complete rewrite,
357 * todo (2) the standard is braindead and (3) usually this is one
358 * todo word only, and why be smarter than the standard? */
360 i
= PTR2SIZE(wend
- wbot
);
361 if (i
+ col
<= (flags
& _OVERLONG
? MIME_LINELEN_MAX
: _MAXCOL
)) {
362 i
= fwrite(wbot
, sizeof *wbot
, i
, fo
);
368 /* Doesn't fit, try to break the line first; */
371 if (whitechar(*wbot
)) {
372 putc((uc_i
)*wbot
, fo
);
375 putc(' ', fo
); /* Bad standard: artificial data! */
382 /* It is so long that it needs to be broken, effectively causing
383 * artificial spaces to be inserted (bad standard), yuck */
384 /* todo This is not multibyte safe, as above; and completely stupid
385 * todo P.S.: our _SHOULD_BEE prevents these cases in the meanwhile */
386 /* FIXME OPT_UNICODE and parse using UTF-8 sync possibility! */
387 wcur
= wbot
+ MIME_LINELEN_MAX
- 8;
392 /* Encoding to encoded word(s); deal with leading whitespace, place
393 * a separator first as necessary: encoded words must always be
394 * separated from text and other encoded words with linear WS.
395 * And if an encoded word was last, intermediate whitespace must
396 * also be encoded, otherwise it would get stripped away! */
397 wcur
= n_UNCONST("");
398 if ((flags
& (_ENC_LAST
| _SPACE
)) != _SPACE
) {
399 /* Reinclude whitespace */
401 /* We don't need to place a separator at the very beginning */
402 if (!(flags
& _FIRST
))
403 wcur
= n_UNCONST(" ");
408 pstate
|= PS_HEADER_NEEDED_MIME
;
411 * An 'encoded-word' may not be more than 75 characters long,
412 * including 'charset', 'encoding', 'encoded-text', and
413 * delimiters. If it is desirable to encode more text than will
414 * fit in an 'encoded-word' of 75 characters, multiple
415 * 'encoded-word's (separated by CRLF SPACE) may be used.
417 * While there is no limit to the length of a multiple-line
418 * header field, each line of a header field that contains one
419 * or more 'encoded-word's is limited to 76 characters */
421 cin
.s
= n_UNCONST(wbot
);
422 cin
.l
= PTR2SIZE(wend
- wbot
);
428 xout
= b64_encode(&cout
, &cin
, B64_ISHEAD
| B64_ISENCWORD
);
430 xout
= qp_encode(&cout
, &cin
, QP_ISHEAD
| QP_ISENCWORD
);
437 /* (Avoid trigraphs in the RFC 2047 placeholder..) */
438 i
= j
+ (flags
& _8BIT
? cset8_len
: cset7_len
) + sizeof("=!!B!!=") -1;
443 /* Unfortunately RFC 2047 explicitly disallows encoded words to be
444 * longer (just like RFC 5322's "a line SHOULD fit in 78 but MAY be
445 * 998 characters long"), so we cannot use the _OVERLONG mechanism,
446 * even though all tested mailers seem to support it */
447 if (i
+ col
<= (/*flags & _OVERLONG ? MIME_LINELEN_MAX :*/ _MAXCOL
)) {
448 fprintf(fo
, "%.1s=?%s?%c?%.*s?=",
449 wcur
, (flags
& _8BIT
? cset8
: cset7
),
450 (flags
& _ENC_B64
? 'B' : 'Q'),
451 (int)cout
.l
, cout
.s
);
457 /* Doesn't fit, try to break the line first */
458 /* TODO I've commented out the _FIRST test since we (1) cannot do
459 * TODO _OVERLONG since (MUAs support but) the standard disallows,
460 * TODO and because of our iconv problem i prefer an empty first line
461 * TODO in favour of a possibly messed up multibytes character. :-( */
462 if (col
> 1 /* TODO && !(flags & _FIRST)*/) {
466 if (!(flags
& _SPACE
)) {
468 wcur
= n_UNCONST("");
469 /*flags |= _OVERLONG;*/
470 goto jenc_retry_same
;
472 putc((uc_i
)*wcur
, fo
);
473 if (whitechar(*(wcur
= wbot
)))
477 wcur
= n_UNCONST("");
479 /*flags &= ~_OVERLONG;*/
484 /* It is so long that it needs to be broken, effectively causing
485 * artificial data to be inserted (bad standard), yuck */
486 /* todo This is not multibyte safe, as above */
487 /*if (!(flags & _OVERLONG)) { Mechanism explicitly forbidden by 2047
492 /* FIXME OPT_UNICODE and parse using UTF-8 sync possibility! */
493 i
= PTR2SIZE(wend
- wbot
) + !!(flags
& _SPACE
);
494 j
= 3 + !(flags
& _ENC_B64
);
498 /* (Note the problem most likely is the transfer-encoding blow,
499 * which is why we test this *after* the decrements.. */
514 convhdra(char const *str
, size_t len
, FILE *fp
)
523 cin
.s
= n_UNCONST(str
);
527 if (iconvd
!= (iconv_t
)-1) {
529 if(n_iconv_str(iconvd
, n_ICONV_IGN_NOREVERSE
, &ciconv
, &cin
, NULL
) != 0){
530 n_iconv_reset(iconvd
);
536 ret
= mime_write_tohdr(&cin
, fp
);
539 if (ciconv
.s
!= NULL
)
547 mime_write_tohdr_a(struct str
*in
, FILE *f
) /* TODO error handling */
549 char const *cp
, *lastcp
;
555 if ((cp
= routeaddr(in
->s
)) != NULL
&& cp
> lastcp
) {
556 if ((sz
= convhdra(lastcp
, PTR2SIZE(cp
- lastcp
), f
)) < 0)
564 for ( ; *cp
!= '\0'; ++cp
) {
567 sz
+= fwrite(lastcp
, 1, PTR2SIZE(cp
- lastcp
+ 1), f
);
569 cp
= skip_comment(cp
);
571 if ((x
= convhdra(lastcp
, PTR2SIZE(cp
- lastcp
), f
)) < 0) {
583 if (*cp
== '\\' && cp
[1] != '\0')
590 sz
+= fwrite(lastcp
, 1, PTR2SIZE(cp
- lastcp
), f
);
597 _append_str(char **buf
, size_t *sz
, size_t *pos
, char const *str
, size_t len
)
600 *buf
= srealloc(*buf
, *sz
+= len
);
601 memcpy(&(*buf
)[*pos
], str
, len
);
607 _append_conv(char **buf
, size_t *sz
, size_t *pos
, char const *str
, size_t len
)
612 in
.s
= n_UNCONST(str
);
614 mime_fromhdr(&in
, &out
, TD_ISPR
| TD_ICONV
);
615 _append_str(buf
, sz
, pos
, out
.s
, out
.l
);
621 charset_get_7bit(void)
626 if ((t
= ok_vlook(charset_7bit
)) == NULL
)
634 charset_get_8bit(void)
639 if ((t
= ok_vlook(CHARSET_8BIT_OKEY
)) == NULL
)
652 if ((t
= ok_vlook(ttycharset
)) == NULL
)
659 charset_iter_reset(char const *a_charset_to_try_first
)
662 size_t sarrl
[3], len
;
665 n_UNUSED(a_charset_to_try_first
);
668 sarr
[0] = a_charset_to_try_first
;
669 if ((sarr
[1] = ok_vlook(sendcharsets
)) == NULL
&&
670 ok_blook(sendcharsets_else_ttycharset
))
671 sarr
[1] = charset_get_lc();
672 sarr
[2] = charset_get_8bit();
674 sarr
[2] = charset_get_lc();
677 sarrl
[2] = len
= strlen(sarr
[2]);
679 if ((cp
= n_UNCONST(sarr
[1])) != NULL
)
680 len
+= (sarrl
[1] = strlen(cp
));
683 if ((cp
= n_UNCONST(sarr
[0])) != NULL
)
684 len
+= (sarrl
[0] = strlen(cp
));
689 _cs_iter_base
= cp
= salloc(len
+ 1 + 1 +1);
692 if ((len
= sarrl
[0]) != 0) {
693 memcpy(cp
, sarr
[0], len
);
697 if ((len
= sarrl
[1]) != 0) {
698 memcpy(cp
, sarr
[1], len
);
704 memcpy(cp
, sarr
[2], len
);
709 return (_cs_iter
!= NULL
);
713 charset_iter_next(void)
719 rv
= (_cs_iter
!= NULL
);
725 charset_iter_is_valid(void)
730 rv
= (_cs_iter
!= NULL
);
747 charset_iter_or_fallback(void)
758 charset_iter_recurse(char *outer_storage
[2]) /* TODO LEGACY FUN, REMOVE */
761 outer_storage
[0] = _cs_iter_base
;
762 outer_storage
[1] = _cs_iter
;
767 charset_iter_restore(char *outer_storage
[2]) /* TODO LEGACY FUN, REMOVE */
770 _cs_iter_base
= outer_storage
[0];
771 _cs_iter
= outer_storage
[1];
777 need_hdrconv(struct header
*hp
) /* TODO once only, then iter */
779 struct n_header_field
*hfp
;
785 if((hfp
= hp
->h_user_headers
) != NULL
)
786 do if(_has_highbit(hfp
->hf_dat
+ hfp
->hf_nl
+1))
788 while((hfp
= hfp
->hf_next
) != NULL
);
790 if((hfp
= hp
->h_custom_headers
) != NULL
||
791 (hp
->h_custom_headers
= hfp
= n_customhdr_query()) != NULL
)
792 do if(_has_highbit(hfp
->hf_dat
+ hfp
->hf_nl
+1))
794 while((hfp
= hfp
->hf_next
) != NULL
);
796 if (hp
->h_mft
!= NULL
) {
797 if (_name_highbit(hp
->h_mft
))
800 if (hp
->h_from
!= NULL
) {
801 if (_name_highbit(hp
->h_from
))
803 } else if (_has_highbit(myaddrs(NULL
)))
806 if (_name_highbit(hp
->h_replyto
))
808 } else if (_has_highbit(ok_vlook(replyto
)))
811 if (_name_highbit(hp
->h_sender
))
813 } else if (_has_highbit(ok_vlook(sender
)))
816 if (_name_highbit(hp
->h_to
))
818 if (_name_highbit(hp
->h_cc
))
820 if (_name_highbit(hp
->h_bcc
))
822 if (_has_highbit(hp
->h_subject
))
824 rv
= _CS_ITER_GET(); /* TODO MIME/send: iter active? iter! else */
828 #endif /* HAVE_ICONV */
831 mime_fromhdr(struct str
const *in
, struct str
*out
, enum tdflags flags
)
833 /* TODO mime_fromhdr(): is called with strings that contain newlines;
834 * TODO this is the usual newline problem all around the codebase;
835 * TODO i.e., if we strip it, then the display misses it ;>
836 * TODO this is why it is so messy and why S-nail v14.2 plus additional
837 * TODO patch for v14.5.2 (and maybe even v14.5.3 subminor) occurred, and
838 * TODO why our display reflects what is contained in the message: the 1:1
839 * TODO relationship of message content and display!
840 * TODO instead a header line should be decoded to what it is (a single
841 * TODO line that is) and it should be objective to the backend whether
842 * TODO it'll be folded to fit onto the display or not, e.g., for search
843 * TODO purposes etc. then the only condition we have to honour in here
844 * TODO is that whitespace in between multiple adjacent MIME encoded words
845 * TODO á la RFC 2047 is discarded; i.e.: this function should deal with
846 * TODO RFC 2047 and be renamed: mime_fromhdr() -> mime_rfc2047_decode() */
847 struct str cin
, cout
;
848 char *p
, *op
, *upper
;
849 ui32_t convert
, lastenc
, lastoutl
;
853 iconv_t fhicd
= (iconv_t
)-1;
859 *(out
->s
= smalloc(1)) = '\0';
865 tcs
= charset_get_lc();
869 lastenc
= lastoutl
= 0;
873 if (*p
== '=' && *(p
+ 1) == '?') {
878 while (p
< upper
&& *p
!= '?')
879 ++p
; /* strip charset */
884 if (flags
& TD_ICONV
) {
885 size_t i
= PTR2SIZE(p
- cbeg
);
886 char *ltag
, *cs
= ac_alloc(i
);
888 memcpy(cs
, cbeg
, --i
);
890 /* RFC 2231 extends the RFC 2047 character set definition in
891 * encoded words by language tags - silently strip those off */
892 if ((ltag
= strchr(cs
, '*')) != NULL
)
895 if (fhicd
!= (iconv_t
)-1)
896 n_iconv_close(fhicd
);
897 fhicd
= asccasecmp(cs
, tcs
) ? n_iconv_open(tcs
, cs
) : (iconv_t
)-1;
903 convert
= CONV_FROMB64
;
906 convert
= CONV_FROMQP
;
908 default: /* invalid, ignore */
916 if (PTRCMP(p
+ 1, >=, upper
))
918 if (*p
++ == '?' && *p
== '=')
927 if (convert
== CONV_FROMB64
) {
928 if(!b64_decode_header(&cout
, &cin
))
929 n_str_assign_cp(&cout
, _("[Invalid Base64 encoding]"));
930 }else if(!qp_decode_header(&cout
, &cin
))
931 n_str_assign_cp(&cout
, _("[Invalid Quoted-Printable encoding]"));
935 if ((flags
& TD_ICONV
) && fhicd
!= (iconv_t
)-1) {
936 cin
.s
= NULL
, cin
.l
= 0; /* XXX string pool ! */
937 convert
= n_iconv_str(fhicd
, n_ICONV_UNIDEFAULT
, &cin
, &cout
, NULL
);
938 out
= n_str_add(out
, &cin
);
939 if (convert
) {/* EINVAL at EOS */
940 n_iconv_reset(fhicd
);
941 out
= n_str_add_buf(out
, "?", 1); /* TODO unicode replacement */
946 out
= n_str_add(out
, &cout
);
947 lastenc
= lastoutl
= out
->l
;
954 onlyws
= (lastenc
> 0);
958 if (op
[0] == '=' && (PTRCMP(op
+ 1, ==, upper
) || op
[1] == '?'))
960 if (onlyws
&& !blankchar(*op
))
964 out
= n_str_add_buf(out
, p
, PTR2SIZE(op
- p
));
966 if (!onlyws
|| lastoutl
!= lastenc
)
971 out
->s
[out
->l
] = '\0';
973 if (flags
& TD_ISPR
) {
974 makeprint(out
, &cout
);
978 if (flags
& TD_DELCTRL
)
979 out
->l
= delctrl(out
->s
, out
->l
);
981 if (fhicd
!= (iconv_t
)-1)
982 n_iconv_close(fhicd
);
990 mime_fromaddr(char const *name
)
992 char const *cp
, *lastcp
;
994 size_t ressz
= 1, rescur
= 0;
1000 res
= savestr(name
);
1004 if ((cp
= routeaddr(name
)) != NULL
&& cp
> name
) {
1005 _append_conv(&res
, &ressz
, &rescur
, name
, PTR2SIZE(cp
- name
));
1010 for ( ; *cp
; ++cp
) {
1013 _append_str(&res
, &ressz
, &rescur
, lastcp
, PTR2SIZE(cp
- lastcp
+ 1));
1015 cp
= skip_comment(cp
);
1017 _append_conv(&res
, &ressz
, &rescur
, lastcp
, PTR2SIZE(cp
- lastcp
));
1024 if (*cp
== '\\' && cp
[1] != '\0')
1031 _append_str(&res
, &ressz
, &rescur
, lastcp
, PTR2SIZE(cp
- lastcp
));
1032 /* TODO rescur==0: inserted to silence Coverity ...; check that */
1034 res
= n_UNCONST("");
1047 xmime_write(char const *ptr
, size_t size
, FILE *f
, enum conversion convert
,
1048 enum tdflags dflags
)
1051 struct quoteflt
*qf
;
1054 quoteflt_reset(qf
= quoteflt_dummy(), f
);
1055 rv
= mime_write(ptr
, size
, f
, convert
, dflags
, qf
, NULL
, NULL
);
1061 static sigjmp_buf __mimemw_actjmp
; /* TODO someday.. */
1062 static int __mimemw_sig
; /* TODO someday.. */
1063 static sighandler_type __mimemw_opipe
;
1065 __mimemw_onsig(int sig
) /* TODO someday, we won't need it no more */
1067 NYD_X
; /* Signal handler */
1069 siglongjmp(__mimemw_actjmp
, 1);
1073 mime_write(char const *ptr
, size_t size
, FILE *f
,
1074 enum conversion convert
, enum tdflags
volatile dflags
,
1075 struct quoteflt
*qf
, struct str
* volatile outrest
,
1076 struct str
* volatile inrest
)
1078 /* TODO note: after send/MIME layer rewrite we will have a string pool
1079 * TODO so that memory allocation count drops down massively; for now,
1080 * TODO v14.0 that is, we pay a lot & heavily depend on the allocator */
1082 ssize_t
volatile sz
;
1085 dflags
|= _TD_BUFCOPY
;
1087 in
.s
= n_UNCONST(ptr
);
1089 if(inrest
!= NULL
&& inrest
->l
> 0){
1090 out
.s
= smalloc(inrest
->l
+ size
+ 1);
1091 memcpy(out
.s
, inrest
->s
, inrest
->l
);
1093 memcpy(&out
.s
[inrest
->l
], in
.s
, size
);
1096 (in
.s
= out
.s
)[in
.l
= size
] = '\0';
1097 dflags
&= ~_TD_BUFCOPY
;
1103 if ((sz
= size
) == 0) {
1104 if (outrest
!= NULL
&& outrest
->l
!= 0)
1110 if ((dflags
& TD_ICONV
) && iconvd
!= (iconv_t
)-1 &&
1111 (convert
== CONV_TOQP
|| convert
== CONV_8BIT
||
1112 convert
== CONV_TOB64
|| convert
== CONV_TOHDR
)) {
1113 if (n_iconv_str(iconvd
, n_ICONV_IGN_NOREVERSE
, &out
, &in
, NULL
) != 0) {
1114 n_iconv_reset(iconvd
);
1115 /* TODO This causes hard-failure. We would need to have an action
1116 * TODO policy FAIL|IGNORE|SETERROR(but continue). Better huh? */
1122 dflags
&= ~_TD_BUFCOPY
;
1128 __mimemw_opipe
= safe_signal(SIGPIPE
, &__mimemw_onsig
);
1129 if (sigsetjmp(__mimemw_actjmp
, 1))
1134 if(!qp_decode_text(&out
, &in
, outrest
, inrest
)){
1135 n_err(_("Invalid Quoted-Printable encoding ignored\n"));
1136 sz
= 0; /* TODO sz = -1 stops outer levels! */
1141 if(qp_encode(&out
, &in
, QP_NONE
) == NULL
){
1142 sz
= 0; /* TODO sz = -1 stops outer levels! */
1147 sz
= quoteflt_push(qf
, in
.s
, in
.l
);
1150 if(!b64_decode_text(&out
, &in
, outrest
, inrest
))
1155 case CONV_FROMB64_T
:
1156 if(!b64_decode_text(&out
, &in
, outrest
, inrest
)){
1158 n_err(_("Invalid Base64 encoding ignored\n"));
1159 sz
= 0; /* TODO sz = -1 stops outer levels! */
1164 if ((sz
= out
.l
) != 0) {
1165 ui32_t opl
= qf
->qf_pfix_len
;
1166 sz
= _fwrite_td(&out
, (dflags
& ~_TD_BUFCOPY
), outrest
, qf
);
1167 qf
->qf_pfix_len
= opl
;
1171 if(b64_encode(&out
, &in
, B64_LF
| B64_MULTILINE
) == NULL
){
1176 sz
= fwrite(out
.s
, sizeof *out
.s
, out
.l
, f
);
1177 if (sz
!= (ssize_t
)out
.l
)
1181 mime_fromhdr(&in
, &out
, TD_ISPR
| TD_ICONV
| (dflags
& TD_DELCTRL
));
1182 sz
= quoteflt_push(qf
, out
.s
, out
.l
);
1185 sz
= mime_write_tohdr(&in
, f
);
1188 sz
= mime_write_tohdr_a(&in
, f
);
1191 sz
= _fwrite_td(&in
, dflags
, NULL
, qf
);
1199 safe_signal(SIGPIPE
, __mimemw_opipe
);
1200 if (__mimemw_sig
!= 0)
1201 n_raise(__mimemw_sig
);