2 * Copyright notice from original mutt:
3 * Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
5 * This file is part of mutt-ng, see http://www.muttng.org/.
6 * It's licensed under the GNU General Public License,
7 * please see the file GPL in the top level source directory.
22 #include "mutt_curses.h"
28 #include "mutt_crypt.h"
34 #include "lib/debug.h"
36 #define BUFI_SIZE 1000
37 #define BUFO_SIZE 2000
40 typedef void handler_f (BODY *, STATE *);
41 typedef handler_f *handler_t;
43 int Index_hex[128] = {
44 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
45 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
46 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
47 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, -1, -1, -1, -1, -1, -1,
48 -1, 10, 11, 12, 13, 14, 15, -1, -1, -1, -1, -1, -1, -1, -1, -1,
49 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
50 -1, 10, 11, 12, 13, 14, 15, -1, -1, -1, -1, -1, -1, -1, -1, -1,
51 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1
55 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
56 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
57 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 62, -1, -1, -1, 63,
58 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, -1, -1, -1, -1, -1, -1,
59 -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
60 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, -1, -1, -1, -1, -1,
61 -1, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
62 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -1, -1, -1, -1, -1
65 static void state_prefix_put (const char *d, size_t dlen, STATE * s)
69 state_prefix_putc (*d++, s);
71 fwrite (d, dlen, 1, s->fpout);
74 void mutt_convert_to_state (iconv_t cd, char *bufi, size_t * l, STATE * s)
82 if (cd != (iconv_t) (-1)) {
83 ob = bufo, obl = sizeof (bufo);
84 iconv (cd, 0, 0, &ob, &obl);
86 state_prefix_put (bufo, ob - bufo, s);
88 if (Quotebuf[0] != '\0')
89 state_prefix_putc ('\n', s);
93 if (cd == (iconv_t) (-1)) {
94 state_prefix_put (bufi, *l, s);
101 ob = bufo, obl = sizeof (bufo);
102 mutt_iconv (cd, &ib, &ibl, &ob, &obl, 0, "?");
105 state_prefix_put (bufo, ob - bufo, s);
107 memmove (bufi, ib, ibl);
111 void mutt_decode_xbit (STATE * s, long len, int istext, iconv_t cd)
114 char bufi[BUFI_SIZE];
118 state_set_prefix (s);
120 while ((c = fgetc (s->fpin)) != EOF && len--) {
121 if (c == '\r' && len) {
122 if ((ch = fgetc (s->fpin)) == '\n') {
127 ungetc (ch, s->fpin);
131 if (l == sizeof (bufi))
132 mutt_convert_to_state (cd, bufi, &l, s);
135 mutt_convert_to_state (cd, bufi, &l, s);
136 mutt_convert_to_state (cd, 0, 0, s);
138 state_reset_prefix (s);
141 mutt_copy_bytes (s->fpin, s->fpout, len);
144 static int qp_decode_triple (char *s, char *d)
146 /* soft line break */
147 if (*s == '=' && !(*(s + 1)))
150 /* quoted-printable triple */
152 isxdigit ((unsigned char) *(s + 1)) &&
153 isxdigit ((unsigned char) *(s + 2))) {
154 *d = (hexval (*(s + 1)) << 4) | hexval (*(s + 2));
162 static void qp_decode_line (char *dest, char *src, size_t * l, int last)
170 /* decode the line */
172 for (d = dest, s = src; *s;) {
173 switch ((kind = qp_decode_triple (s, &c))) {
177 break; /* qp triple */
180 break; /* single character */
184 break; /* soft line break */
188 if (!soft && last == '\n')
196 * Decode an attachment encoded with quoted-printable.
198 * Why doesn't this overflow any buffers? First, it's guaranteed
199 * that the length of a line grows when you _en_-code it to
200 * quoted-printable. That means that we always can store the
201 * result in a buffer of at most the _same_ size.
203 * Now, we don't special-case if the line we read with fgets()
204 * isn't terminated. We don't care about this, since STRING > 78,
205 * so corrupted input will just be corrupted a bit more. That
206 * implies that STRING+1 bytes are always sufficient to store the
207 * result of qp_decode_line.
209 * Finally, at soft line breaks, some part of a multibyte character
210 * may have been left over by mutt_convert_to_state(). This shouldn't
211 * be more than 6 characters, so STRING + 7 should be sufficient
212 * memory to store the decoded data.
214 * Just to make sure that I didn't make some off-by-one error
215 * above, we just use STRING*2 for the target buffer's size.
219 void mutt_decode_quoted (STATE * s, long len, int istext, iconv_t cd)
222 char decline[2 * STRING];
224 size_t linelen; /* number of input bytes in `line' */
227 int last; /* store the last character in the input line */
230 state_set_prefix (s);
236 * It's ok to use a fixed size buffer for input, even if the line turns
237 * out to be longer than this. Just process the line in chunks. This
238 * really shouldn't happen according the MIME spec, since Q-P encoded
239 * lines are at most 76 characters, but we should be liberal about what
242 if (fgets (line, MIN ((ssize_t) sizeof (line), len + 1), s->fpin) == NULL)
245 linelen = mutt_strlen (line);
249 * inspect the last character we read so we can tell if we got the
252 last = linelen ? line[linelen - 1] : 0;
254 /* chop trailing whitespace if we got the full line */
256 while (linelen > 0 && ISSPACE (line[linelen - 1]))
261 /* decode and do character set conversion */
262 qp_decode_line (decline + l, line, &l3, last);
264 mutt_convert_to_state (cd, decline, &l, s);
267 mutt_convert_to_state (cd, 0, 0, s);
268 state_reset_prefix (s);
271 void mutt_decode_base64 (STATE * s, long len, int istext, iconv_t cd)
274 int c1, c2, c3, c4, ch, cr = 0, i;
275 char bufi[BUFI_SIZE];
281 state_set_prefix (s);
284 for (i = 0; i < 4 && len > 0; len--) {
285 if ((ch = fgetc (s->fpin)) == EOF)
287 if (ch >= 0 && ch < 128 && (base64val (ch) != -1 || ch == '='))
291 debug_print (2, ("didn't get a multiple of 4 chars.\n"));
295 c1 = base64val (buf[0]);
296 c2 = base64val (buf[1]);
297 ch = (c1 << 2) | (c2 >> 4);
299 if (cr && ch != '\n')
304 if (istext && ch == '\r')
311 c3 = base64val (buf[2]);
312 ch = ((c2 & 0xf) << 4) | (c3 >> 2);
314 if (cr && ch != '\n')
319 if (istext && ch == '\r')
326 c4 = base64val (buf[3]);
327 ch = ((c3 & 0x3) << 6) | c4;
329 if (cr && ch != '\n')
333 if (istext && ch == '\r')
338 if (l + 8 >= sizeof (bufi))
339 mutt_convert_to_state (cd, bufi, &l, s);
345 mutt_convert_to_state (cd, bufi, &l, s);
346 mutt_convert_to_state (cd, 0, 0, s);
348 state_reset_prefix (s);
351 unsigned char decode_byte (char ch)
358 void mutt_decode_uuencoded (STATE * s, long len, int istext, iconv_t cd)
360 char tmps[SHORT_STRING];
361 char linelen, c, l, out;
363 char bufi[BUFI_SIZE];
367 state_set_prefix (s);
370 if ((fgets (tmps, sizeof (tmps), s->fpin)) == NULL)
372 len -= mutt_strlen (tmps);
373 if ((!safe_strncmp (tmps, "begin", 5)) && ISSPACE (tmps[5]))
377 if ((fgets (tmps, sizeof (tmps), s->fpin)) == NULL)
379 len -= mutt_strlen (tmps);
380 if (!safe_strncmp (tmps, "end", 3))
383 linelen = decode_byte (*pt);
385 for (c = 0; c < linelen;) {
386 for (l = 2; l <= 6; l += 2) {
387 out = decode_byte (*pt) << l;
389 out |= (decode_byte (*pt) >> (6 - l));
395 mutt_convert_to_state (cd, bufi, &k, s);
400 mutt_convert_to_state (cd, bufi, &k, s);
401 mutt_convert_to_state (cd, 0, 0, s);
403 state_reset_prefix (s);
406 /* ----------------------------------------------------------------------------
407 * A (not so) minimal implementation of RFC1563.
410 #define IndentSize (4)
412 enum { RICH_PARAM = 0, RICH_BOLD, RICH_UNDERLINE, RICH_ITALIC, RICH_NOFILL,
413 RICH_INDENT, RICH_INDENT_RIGHT, RICH_EXCERPT, RICH_CENTER, RICH_FLUSHLEFT,
414 RICH_FLUSHRIGHT, RICH_COLOR, RICH_LAST_TAG
418 const char *tag_name;
422 "param", RICH_PARAM}, {
423 "bold", RICH_BOLD}, {
424 "italic", RICH_ITALIC}, {
425 "underline", RICH_UNDERLINE}, {
426 "nofill", RICH_NOFILL}, {
427 "excerpt", RICH_EXCERPT}, {
428 "indent", RICH_INDENT}, {
429 "indentright", RICH_INDENT_RIGHT}, {
430 "center", RICH_CENTER}, {
431 "flushleft", RICH_FLUSHLEFT}, {
432 "flushright", RICH_FLUSHRIGHT}, {
433 "flushboth", RICH_FLUSHLEFT}, {
434 "color", RICH_COLOR}, {
435 "x-color", RICH_COLOR}, {
439 struct enriched_state {
452 int tag_level[RICH_LAST_TAG];
457 static void enriched_wrap (struct enriched_state *stte)
462 if (stte->line_len) {
463 if (stte->tag_level[RICH_CENTER] || stte->tag_level[RICH_FLUSHRIGHT]) {
464 /* Strip trailing white space */
465 size_t y = stte->line_used - 1;
467 while (y && ISSPACE (stte->line[y])) {
468 stte->line[y] = '\0';
473 if (stte->tag_level[RICH_CENTER]) {
474 /* Strip leading whitespace */
477 while (stte->line[y] && ISSPACE (stte->line[y]))
482 for (z = y; z <= stte->line_used; z++) {
483 stte->line[z - y] = stte->line[z];
487 stte->line_used -= y;
492 extra = stte->WrapMargin - stte->line_len - stte->indent_len -
493 (stte->tag_level[RICH_INDENT_RIGHT] * IndentSize);
495 if (stte->tag_level[RICH_CENTER]) {
498 state_putc (' ', stte->s);
502 else if (stte->tag_level[RICH_FLUSHRIGHT]) {
505 state_putc (' ', stte->s);
510 state_puts (stte->line, stte->s);
513 state_putc ('\n', stte->s);
514 stte->line[0] = '\0';
517 stte->indent_len = 0;
518 if (stte->s->prefix) {
519 state_puts (stte->s->prefix, stte->s);
520 stte->indent_len += mutt_strlen (stte->s->prefix);
523 if (stte->tag_level[RICH_EXCERPT]) {
524 x = stte->tag_level[RICH_EXCERPT];
526 if (stte->s->prefix) {
527 state_puts (stte->s->prefix, stte->s);
528 stte->indent_len += mutt_strlen (stte->s->prefix);
531 state_puts ("> ", stte->s);
532 stte->indent_len += mutt_strlen ("> ");
538 stte->indent_len = 0;
539 if (stte->tag_level[RICH_INDENT]) {
540 x = stte->tag_level[RICH_INDENT] * IndentSize;
541 stte->indent_len += x;
543 state_putc (' ', stte->s);
549 static void enriched_flush (struct enriched_state *stte, int wrap)
551 if (!stte->tag_level[RICH_NOFILL] && (stte->line_len + stte->word_len >
553 (stte->tag_level[RICH_INDENT_RIGHT] *
554 IndentSize) - stte->indent_len)))
555 enriched_wrap (stte);
557 if (stte->buff_used) {
558 stte->buffer[stte->buff_used] = '\0';
559 stte->line_used += stte->buff_used;
560 if (stte->line_used > stte->line_max) {
561 stte->line_max = stte->line_used;
562 safe_realloc (&stte->line, stte->line_max + 1);
564 strcat (stte->line, stte->buffer); /* __STRCAT_CHECKED__ */
565 stte->line_len += stte->word_len;
570 enriched_wrap (stte);
574 static void enriched_putc (int c, struct enriched_state *stte)
576 if (stte->tag_level[RICH_PARAM]) {
577 if (stte->tag_level[RICH_COLOR]) {
578 if (stte->param_used + 1 >= stte->param_len)
579 safe_realloc (&stte->param, (stte->param_len += STRING));
581 stte->param[stte->param_used++] = c;
583 return; /* nothing to do */
586 /* see if more space is needed (plus extra for possible rich characters) */
587 if (stte->buff_len < stte->buff_used + 3) {
588 stte->buff_len += LONG_STRING;
589 safe_realloc (&stte->buffer, stte->buff_len + 1);
592 if ((!stte->tag_level[RICH_NOFILL] && ISSPACE (c)) || c == '\0') {
594 stte->word_len += 8 - (stte->line_len + stte->word_len) % 8;
598 stte->buffer[stte->buff_used++] = c;
599 enriched_flush (stte, 0);
602 if (stte->s->flags & M_DISPLAY) {
603 if (stte->tag_level[RICH_BOLD]) {
604 stte->buffer[stte->buff_used++] = c;
605 stte->buffer[stte->buff_used++] = '\010';
606 stte->buffer[stte->buff_used++] = c;
608 else if (stte->tag_level[RICH_UNDERLINE]) {
610 stte->buffer[stte->buff_used++] = '_';
611 stte->buffer[stte->buff_used++] = '\010';
612 stte->buffer[stte->buff_used++] = c;
614 else if (stte->tag_level[RICH_ITALIC]) {
615 stte->buffer[stte->buff_used++] = c;
616 stte->buffer[stte->buff_used++] = '\010';
617 stte->buffer[stte->buff_used++] = '_';
620 stte->buffer[stte->buff_used++] = c;
624 stte->buffer[stte->buff_used++] = c;
630 static void enriched_puts (char *s, struct enriched_state *stte)
634 if (stte->buff_len < stte->buff_used + mutt_strlen (s)) {
635 stte->buff_len += LONG_STRING;
636 safe_realloc (&stte->buffer, stte->buff_len + 1);
640 stte->buffer[stte->buff_used++] = *c;
645 static void enriched_set_flags (const char *tag, struct enriched_state *stte)
647 const char *tagptr = tag;
653 for (i = 0, j = -1; EnrichedTags[i].tag_name; i++)
654 if (ascii_strcasecmp (EnrichedTags[i].tag_name, tagptr) == 0) {
655 j = EnrichedTags[i].index;
660 if (j == RICH_CENTER || j == RICH_FLUSHLEFT || j == RICH_FLUSHRIGHT)
661 enriched_flush (stte, 1);
664 if (stte->tag_level[j]) /* make sure not to go negative */
665 stte->tag_level[j]--;
666 if ((stte->s->flags & M_DISPLAY) && j == RICH_PARAM
667 && stte->tag_level[RICH_COLOR]) {
668 stte->param[stte->param_used] = '\0';
669 if (!ascii_strcasecmp (stte->param, "black")) {
670 enriched_puts ("\033[30m", stte);
672 else if (!ascii_strcasecmp (stte->param, "red")) {
673 enriched_puts ("\033[31m", stte);
675 else if (!ascii_strcasecmp (stte->param, "green")) {
676 enriched_puts ("\033[32m", stte);
678 else if (!ascii_strcasecmp (stte->param, "yellow")) {
679 enriched_puts ("\033[33m", stte);
681 else if (!ascii_strcasecmp (stte->param, "blue")) {
682 enriched_puts ("\033[34m", stte);
684 else if (!ascii_strcasecmp (stte->param, "magenta")) {
685 enriched_puts ("\033[35m", stte);
687 else if (!ascii_strcasecmp (stte->param, "cyan")) {
688 enriched_puts ("\033[36m", stte);
690 else if (!ascii_strcasecmp (stte->param, "white")) {
691 enriched_puts ("\033[37m", stte);
694 if ((stte->s->flags & M_DISPLAY) && j == RICH_COLOR) {
695 enriched_puts ("\033[0m", stte);
698 /* flush parameter buffer when closing the tag */
699 if (j == RICH_PARAM) {
700 stte->param_used = 0;
701 stte->param[0] = '\0';
705 stte->tag_level[j]++;
707 if (j == RICH_EXCERPT)
708 enriched_flush (stte, 1);
712 void text_enriched_handler (BODY * a, STATE * s)
715 TEXT, LANGLE, TAG, BOGUS_TAG, NEWLINE, ST_EOF, DONE
718 long bytes = a->length;
719 struct enriched_state stte;
722 char tag[LONG_STRING + 1];
724 memset (&stte, 0, sizeof (stte));
727 ((s->flags & M_DISPLAY) ? (COLS - 4) : ((COLS - 4) <
728 72) ? (COLS - 4) : 72);
729 stte.line_max = stte.WrapMargin * 4;
730 stte.line = (char *) safe_calloc (1, stte.line_max + 1);
731 stte.param = (char *) safe_calloc (1, STRING);
733 stte.param_len = STRING;
737 state_puts (s->prefix, s);
738 stte.indent_len += mutt_strlen (s->prefix);
741 while (state != DONE) {
742 if (state != ST_EOF) {
743 if (!bytes || (c = fgetc (s->fpin)) == EOF)
757 if (stte.tag_level[RICH_NOFILL]) {
758 enriched_flush (&stte, 1);
761 enriched_putc (' ', &stte);
767 enriched_putc (c, &stte);
773 enriched_putc (c, &stte);
781 /* Yes, fall through (it wasn't a <<, so this char is first in TAG) */
785 enriched_set_flags (tag, &stte);
788 else if (tag_len < LONG_STRING) /* ignore overly long tags */
801 enriched_flush (&stte, 1);
810 enriched_putc ('\0', &stte);
811 enriched_flush (&stte, 1);
815 case DONE: /* not reached, but gcc complains if this is absent */
820 state_putc ('\n', s); /* add a final newline */
822 FREE (&(stte.buffer));
824 FREE (&(stte.param));
828 * An implementation of RFC 2646.
830 * NOTE: This still has to be made UTF-8 aware.
834 #define FLOWED_MAX 77
836 static int get_quote_level (char *line)
840 for (quoted = 0; line[quoted] == '>'; quoted++);
844 static void print_flowed_line (char *line, STATE * s, int ql)
848 int len = mutt_strlen (line);
851 if (MaxLineLength > 0) {
852 width = MaxLineLength - WrapMargin - ql - 1;
853 if (option (OPTSTUFFQUOTED))
856 width = MaxLineLength;
859 if (option (OPTMBOXPANE))
860 width = COLS - SidebarWidth - WrapMargin - ql - 1;
862 width = COLS - WrapMargin - ql - 1;
864 if (option (OPTSTUFFQUOTED))
870 /* fprintf(stderr,"print_flowed_line will print `%s' with ql = %d\n",line,ql); */
872 if (mutt_strlen (line) == 0) {
873 if (option (OPTQUOTEEMPTY)) {
875 state_puts(s->prefix,s);
876 for (i=0;i<ql;++i) state_putc('>',s);
877 if (option(OPTSTUFFQUOTED))
884 pos = line + ql + width;
886 if (ql > 0 && ISBLANK (*oldpos))
889 /* fprintf(stderr,"oldpos = %p line+len = %p\n",oldpos,line+len); */
891 for (; oldpos < line + len; pos += width) {
892 /* fprintf(stderr,"outer for loop\n"); */
893 if (pos < line + len) { /* only search a new position when we're not over the end of the string w/ pos */
894 /* fprintf(stderr,"if 1\n"); */
896 /* fprintf(stderr,"if 2: good luck! found a space\n"); */
901 /* fprintf(stderr,"if 2: else\n"); */
904 while (pos >= oldpos && !isspace (*pos)) {
905 /* fprintf(stderr,"pos(%p) > oldpos(%p)\n",pos,oldpos); */
909 /* fprintf(stderr,"wow, no space found, searching the other direction\n"); */
911 while (pos < line + len && *pos && !isspace (*pos)) {
912 /* fprintf(stderr,"pos(%p) < line+len(%p)\n",pos,line+len); */
915 /* fprintf(stderr,"found a space pos = %p\n",pos); */
922 /* fprintf(stderr,"if 1 else\n"); */
925 state_puts (s->prefix, s);
926 for (i = 0; i < ql; ++i)
928 if (option (OPTSTUFFQUOTED) && (ql > 0 || s->prefix))
930 state_puts (oldpos, s);
931 /* fprintf(stderr,"print_flowed_line: `%s'\n",oldpos); */
932 if (pos < line + len)
934 state_putc ('\n', s);
937 /*state_puts(line,s);
938 state_putc('\n',s); */
941 static void text_plain_flowed_handler (BODY * a, STATE * s)
943 int bytes = a->length;
944 char buf[LONG_STRING];
945 char *curline = strdup ("");
947 unsigned int curline_len = 1;
948 unsigned int quotelevel = 0, newql = 0;
951 while (bytes > 0 && fgets (buf, sizeof (buf), s->fpin)) {
953 bytes -= mutt_strlen (buf);
955 newql = get_quote_level (buf);
957 if ((t = strrchr (buf, '\n')) || (t = strrchr (buf, '\r'))) {
959 if (mutt_strlen (curline) > 0 && curline[mutt_strlen (curline) - 1] == ' '
960 && newql == quotelevel
961 && strcmp (curline + quotelevel, "-- ") != 0) {
962 if (buf[newql] == ' ')
963 curline[mutt_strlen (curline) - 1] = '\0';
965 curline = realloc (curline, curline_len + mutt_strlen (buf));
966 if (curline_len == 1)
968 curline_len += mutt_strlen (buf);
969 safe_strncat (curline, curline_len, buf + newql,
970 mutt_strlen (buf + newql));
977 print_flowed_line (curline, s, quotelevel);
981 curline = realloc (curline, curline_len + mutt_strlen (buf));
982 if (curline_len == 1)
984 curline_len += mutt_strlen (buf);
985 safe_strncat (curline, curline_len, buf, mutt_strlen (buf));
989 else if (bytes == 0) {
990 /* in case there's no line end it's likely the last line
991 * so append to current (if any) */
992 if (buf[newql] == ' ')
993 curline[mutt_strlen (curline) - 1] = '\0';
994 curline = realloc (curline, curline_len + mutt_strlen (buf));
995 if (curline_len == 1)
997 curline_len += mutt_strlen (buf);
998 safe_strncat (curline, curline_len, buf + newql,
999 mutt_strlen (buf + newql));
1004 print_flowed_line (curline, s, quotelevel);
1011 #define TXTENRICHED 3
1013 static void alternative_handler (BODY * a, STATE * s)
1015 BODY *choice = NULL;
1022 if (a->encoding == ENCBASE64 || a->encoding == ENCQUOTEDPRINTABLE ||
1023 a->encoding == ENCUUENCODED) {
1027 fstat (fileno (s->fpin), &st);
1028 b = mutt_new_body ();
1029 b->length = (long) st.st_size;
1030 b->parts = mutt_parse_multipart (s->fpin,
1031 mutt_get_parameter ("boundary",
1034 ascii_strcasecmp ("digest",
1042 /* First, search list of prefered types */
1043 t = AlternativeOrderList;
1044 while (t && !choice) {
1046 int btlen; /* length of basetype */
1047 int wild; /* do we have a wildcard to match all subtypes? */
1049 c = strchr (t->data, '/');
1051 wild = (c[1] == '*' && c[2] == 0);
1052 btlen = c - t->data;
1056 btlen = mutt_strlen (t->data);
1064 const char *bt = TYPE (b);
1066 if (!ascii_strncasecmp (bt, t->data, btlen) && bt[btlen] == 0) {
1067 /* the basetype matches */
1068 if (wild || !ascii_strcasecmp (t->data + btlen + 1, b->subtype)) {
1077 /* Next, look for an autoviewable type */
1084 snprintf (buf, sizeof (buf), "%s/%s", TYPE (b), b->subtype);
1085 if (mutt_is_autoview (b, buf)) {
1086 rfc1524_entry *entry = rfc1524_new_entry ();
1088 if (rfc1524_mailcap_lookup (b, buf, entry, M_AUTOVIEW)) {
1091 rfc1524_free_entry (&entry);
1097 /* Then, look for a text entry */
1104 if (b->type == TYPETEXT) {
1105 if (!ascii_strcasecmp ("plain", b->subtype) && type <= TXTPLAIN) {
1109 else if (!ascii_strcasecmp ("enriched", b->subtype)
1110 && type <= TXTENRICHED) {
1114 else if (!ascii_strcasecmp ("html", b->subtype) && type <= TXTHTML) {
1123 /* Finally, look for other possibilities */
1130 if (mutt_can_decode (b))
1137 if (s->flags & M_DISPLAY && !option (OPTWEED)) {
1138 fseek (s->fpin, choice->hdr_offset, 0);
1139 mutt_copy_bytes (s->fpin, s->fpout,
1140 choice->offset - choice->hdr_offset);
1142 mutt_body_handler (choice, s);
1144 else if (s->flags & M_DISPLAY) {
1145 /* didn't find anything that we could display! */
1146 state_mark_attach (s);
1148 ("[-- Error: Could not display any parts of Multipart/Alternative! --]\n"),
1153 mutt_free_body (&a);
1156 /* handles message/rfc822 body parts */
1157 void message_handler (BODY * a, STATE * s)
1163 off_start = ftell (s->fpin);
1164 if (a->encoding == ENCBASE64 || a->encoding == ENCQUOTEDPRINTABLE ||
1165 a->encoding == ENCUUENCODED) {
1166 fstat (fileno (s->fpin), &st);
1167 b = mutt_new_body ();
1168 b->length = (long) st.st_size;
1169 b->parts = mutt_parse_messageRFC822 (s->fpin, b);
1175 mutt_copy_hdr (s->fpin, s->fpout, off_start, b->parts->offset,
1176 (((s->flags & M_WEED)
1177 || ((s->flags & (M_DISPLAY | M_PRINTING))
1178 && option (OPTWEED))) ? (CH_WEED | CH_REORDER) : 0) |
1179 (s->prefix ? CH_PREFIX : 0) | CH_DECODE | CH_FROM,
1183 state_puts (s->prefix, s);
1184 state_putc ('\n', s);
1186 mutt_body_handler (b->parts, s);
1189 if (a->encoding == ENCBASE64 || a->encoding == ENCQUOTEDPRINTABLE ||
1190 a->encoding == ENCUUENCODED)
1191 mutt_free_body (&b);
1194 /* returns 1 if decoding the attachment will produce output */
1195 int mutt_can_decode (BODY * a)
1199 snprintf (type, sizeof (type), "%s/%s", TYPE (a), a->subtype);
1200 if (mutt_is_autoview (a, type))
1201 return (rfc1524_mailcap_lookup (a, type, NULL, M_AUTOVIEW));
1202 else if (a->type == TYPETEXT)
1204 else if (a->type == TYPEMESSAGE)
1206 else if (a->type == TYPEMULTIPART) {
1210 if (ascii_strcasecmp (a->subtype, "signed") == 0 ||
1211 ascii_strcasecmp (a->subtype, "encrypted") == 0)
1215 for (p = a->parts; p; p = p->next) {
1216 if (mutt_can_decode (p))
1221 else if (WithCrypto && a->type == TYPEAPPLICATION) {
1222 if ((WithCrypto & APPLICATION_PGP) && mutt_is_application_pgp (a))
1224 if ((WithCrypto & APPLICATION_SMIME) && mutt_is_application_smime (a))
1231 void multipart_handler (BODY * a, STATE * s)
1238 if (a->encoding == ENCBASE64 || a->encoding == ENCQUOTEDPRINTABLE ||
1239 a->encoding == ENCUUENCODED) {
1240 fstat (fileno (s->fpin), &st);
1241 b = mutt_new_body ();
1242 b->length = (long) st.st_size;
1243 b->parts = mutt_parse_multipart (s->fpin,
1244 mutt_get_parameter ("boundary",
1247 ascii_strcasecmp ("digest",
1253 for (p = b->parts, count = 1; p; p = p->next, count++) {
1254 if (s->flags & M_DISPLAY) {
1255 state_mark_attach (s);
1256 state_printf (s, _("[-- Attachment #%d"), count);
1257 if (p->description || p->filename || p->form_name) {
1258 state_puts (": ", s);
1259 state_puts (p->description ? p->description :
1260 p->filename ? p->filename : p->form_name, s);
1262 state_puts (" --]\n", s);
1264 mutt_pretty_size (length, sizeof (length), p->length);
1266 state_mark_attach (s);
1267 state_printf (s, _("[-- Type: %s/%s, Encoding: %s, Size: %s --]\n"),
1268 TYPE (p), p->subtype, ENCODING (p->encoding), length);
1269 if (!option (OPTWEED)) {
1270 fseek (s->fpin, p->hdr_offset, 0);
1271 mutt_copy_bytes (s->fpin, s->fpout, p->offset - p->hdr_offset);
1274 state_putc ('\n', s);
1277 if (p->description && mutt_can_decode (p))
1278 state_printf (s, "Content-Description: %s\n", p->description);
1281 state_printf (s, "%s: \n", p->form_name);
1284 mutt_body_handler (p, s);
1285 state_putc ('\n', s);
1286 if ((s->flags & M_REPLYING)
1287 && (option (OPTINCLUDEONLYFIRST)) && (s->flags & M_FIRSTDONE))
1291 if (a->encoding == ENCBASE64 || a->encoding == ENCQUOTEDPRINTABLE ||
1292 a->encoding == ENCUUENCODED)
1293 mutt_free_body (&b);
1296 void autoview_handler (BODY * a, STATE * s)
1298 rfc1524_entry *entry = rfc1524_new_entry ();
1299 char buffer[LONG_STRING];
1301 char command[LONG_STRING];
1302 char tempfile[_POSIX_PATH_MAX] = "";
1310 snprintf (type, sizeof (type), "%s/%s", TYPE (a), a->subtype);
1311 rfc1524_mailcap_lookup (a, type, entry, M_AUTOVIEW);
1313 fname = safe_strdup (a->filename);
1314 mutt_sanitize_filename (fname, 1);
1315 rfc1524_expand_filename (entry->nametemplate, fname, tempfile,
1319 if (entry->command) {
1320 strfcpy (command, entry->command, sizeof (command));
1322 /* rfc1524_expand_command returns 0 if the file is required */
1324 rfc1524_expand_command (a, tempfile, type, command, sizeof (command));
1326 if (s->flags & M_DISPLAY) {
1327 state_mark_attach (s);
1328 state_printf (s, _("[-- Autoview using %s --]\n"), command);
1329 mutt_message (_("Invoking autoview command: %s"), command);
1332 if ((fpin = safe_fopen (tempfile, "w+")) == NULL) {
1333 mutt_perror ("fopen");
1334 rfc1524_free_entry (&entry);
1338 mutt_copy_bytes (s->fpin, fpin, a->length);
1341 safe_fclose (&fpin);
1342 thepid = mutt_create_filter (command, NULL, &fpout, &fperr);
1348 thepid = mutt_create_filter_fd (command, NULL, &fpout, &fperr,
1349 fileno (fpin), -1, -1);
1353 mutt_perror (_("Can't create filter"));
1355 if (s->flags & M_DISPLAY) {
1356 state_mark_attach (s);
1357 state_printf (s, _("[-- Can't run %s. --]\n"), command);
1363 while (fgets (buffer, sizeof (buffer), fpout) != NULL) {
1364 state_puts (s->prefix, s);
1365 state_puts (buffer, s);
1367 /* check for data on stderr */
1368 if (fgets (buffer, sizeof (buffer), fperr)) {
1369 if (s->flags & M_DISPLAY) {
1370 state_mark_attach (s);
1371 state_printf (s, _("[-- Autoview stderr of %s --]\n"), command);
1374 state_puts (s->prefix, s);
1375 state_puts (buffer, s);
1376 while (fgets (buffer, sizeof (buffer), fperr) != NULL) {
1377 state_puts (s->prefix, s);
1378 state_puts (buffer, s);
1383 mutt_copy_stream (fpout, s->fpout);
1384 /* Check for stderr messages */
1385 if (fgets (buffer, sizeof (buffer), fperr)) {
1386 if (s->flags & M_DISPLAY) {
1387 state_mark_attach (s);
1388 state_printf (s, _("[-- Autoview stderr of %s --]\n"), command);
1391 state_puts (buffer, s);
1392 mutt_copy_stream (fperr, s->fpout);
1397 safe_fclose (&fpout);
1398 safe_fclose (&fperr);
1400 mutt_wait_filter (thepid);
1402 safe_fclose (&fpin);
1404 mutt_unlink (tempfile);
1406 if (s->flags & M_DISPLAY)
1407 mutt_clear_error ();
1409 rfc1524_free_entry (&entry);
1412 static void external_body_handler (BODY * b, STATE * s)
1414 const char *access_type;
1415 const char *expiration;
1418 access_type = mutt_get_parameter ("access-type", b->parameter);
1420 if (s->flags & M_DISPLAY) {
1421 state_mark_attach (s);
1423 ("[-- Error: message/external-body has no access-type parameter --]\n"),
1429 expiration = mutt_get_parameter ("expiration", b->parameter);
1431 expire = mutt_parse_date (expiration, NULL);
1435 if (!ascii_strcasecmp (access_type, "x-mutt-deleted")) {
1436 if (s->flags & (M_DISPLAY | M_PRINTING)) {
1438 char pretty_size[10];
1440 state_mark_attach (s);
1441 state_printf (s, _("[-- This %s/%s attachment "),
1442 TYPE (b->parts), b->parts->subtype);
1443 length = mutt_get_parameter ("length", b->parameter);
1445 mutt_pretty_size (pretty_size, sizeof (pretty_size),
1446 strtol (length, NULL, 10));
1447 state_printf (s, _("(size %s bytes) "), pretty_size);
1449 state_puts (_("has been deleted --]\n"), s);
1452 state_mark_attach (s);
1453 state_printf (s, _("[-- on %s --]\n"), expiration);
1455 if (b->parts->filename) {
1456 state_mark_attach (s);
1457 state_printf (s, _("[-- name: %s --]\n"), b->parts->filename);
1460 mutt_copy_hdr (s->fpin, s->fpout, ftell (s->fpin), b->parts->offset,
1461 (option (OPTWEED) ? (CH_WEED | CH_REORDER) : 0) |
1465 else if (expiration && expire < time (NULL)) {
1466 if (s->flags & M_DISPLAY) {
1467 state_mark_attach (s);
1468 state_printf (s, _("[-- This %s/%s attachment is not included, --]\n"),
1469 TYPE (b->parts), b->parts->subtype);
1470 state_attach_puts (_("[-- and the indicated external source has --]\n"
1471 "[-- expired. --]\n"), s);
1473 mutt_copy_hdr (s->fpin, s->fpout, ftell (s->fpin), b->parts->offset,
1474 (option (OPTWEED) ? (CH_WEED | CH_REORDER) : 0) |
1479 if (s->flags & M_DISPLAY) {
1480 state_mark_attach (s);
1482 _("[-- This %s/%s attachment is not included, --]\n"),
1483 TYPE (b->parts), b->parts->subtype);
1484 state_mark_attach (s);
1487 ("[-- and the indicated access-type %s is unsupported --]\n"),
1489 mutt_copy_hdr (s->fpin, s->fpout, ftell (s->fpin), b->parts->offset,
1490 (option (OPTWEED) ? (CH_WEED | CH_REORDER) : 0) |
1496 void mutt_decode_attachment (BODY * b, STATE * s)
1498 int istext = mutt_is_text_part (b);
1499 iconv_t cd = (iconv_t) (-1);
1504 if (s->flags & M_CHARCONV) {
1505 char *charset = mutt_get_parameter ("charset", b->parameter);
1507 if (!option (OPTSTRICTMIME) && !charset)
1508 charset = mutt_get_first_charset (AssumedCharset);
1509 if (charset && Charset)
1510 cd = mutt_iconv_open (Charset, charset, M_ICONV_HOOK_FROM);
1513 if (b->file_charset)
1514 cd = mutt_iconv_open (Charset, b->file_charset, M_ICONV_HOOK_FROM);
1518 fseek (s->fpin, b->offset, 0);
1519 switch (b->encoding) {
1520 case ENCQUOTEDPRINTABLE:
1521 mutt_decode_quoted (s, b->length, istext, cd);
1524 mutt_decode_base64 (s, b->length, istext, cd);
1527 mutt_decode_uuencoded (s, b->length, istext, cd);
1530 mutt_decode_xbit (s, b->length, istext, cd);
1534 if (cd != (iconv_t) (-1))
1538 void mutt_body_handler (BODY * b, STATE * s)
1543 char tempfile[_POSIX_PATH_MAX];
1544 handler_t handler = NULL;
1546 size_t tmplength = 0;
1549 int oflags = s->flags;
1551 /* first determine which handler to use to process this part */
1553 snprintf (type, sizeof (type), "%s/%s", TYPE (b), b->subtype);
1554 if (mutt_is_autoview (b, type)) {
1555 rfc1524_entry *entry = rfc1524_new_entry ();
1557 if (rfc1524_mailcap_lookup (b, type, entry, M_AUTOVIEW)) {
1558 handler = autoview_handler;
1559 s->flags &= ~M_CHARCONV;
1561 rfc1524_free_entry (&entry);
1563 else if (b->type == TYPETEXT) {
1564 if (ascii_strcasecmp ("plain", b->subtype) == 0) {
1565 /* avoid copying this part twice since removing the transfer-encoding is
1566 * the only operation needed.
1568 if ((WithCrypto & APPLICATION_PGP) && mutt_is_application_pgp (b))
1569 handler = crypt_pgp_application_pgp_handler;
1571 if (ascii_strcasecmp
1572 ("flowed", mutt_get_parameter ("format", b->parameter)) == 0)
1573 handler = text_plain_flowed_handler;
1577 else if (ascii_strcasecmp ("enriched", b->subtype) == 0)
1578 handler = text_enriched_handler;
1579 else /* text body type without a handler */
1582 else if (b->type == TYPEMESSAGE) {
1583 if (mutt_is_message_type (b->type, b->subtype))
1584 handler = message_handler;
1585 else if (!ascii_strcasecmp ("delivery-status", b->subtype))
1587 else if (!ascii_strcasecmp ("external-body", b->subtype))
1588 handler = external_body_handler;
1590 else if (b->type == TYPEMULTIPART) {
1593 if (ascii_strcasecmp ("alternative", b->subtype) == 0)
1594 handler = alternative_handler;
1595 else if (WithCrypto && ascii_strcasecmp ("signed", b->subtype) == 0) {
1596 p = mutt_get_parameter ("protocol", b->parameter);
1599 mutt_error (_("Error: multipart/signed has no protocol."));
1601 else if (s->flags & M_VERIFY)
1602 handler = mutt_signed_handler;
1604 else if ((WithCrypto & APPLICATION_PGP)
1605 && safe_strcasecmp ("encrypted", b->subtype) == 0) {
1606 p = mutt_get_parameter ("protocol", b->parameter);
1610 ("Error: multipart/encrypted has no protocol parameter!"));
1612 else if (ascii_strcasecmp ("application/pgp-encrypted", p) == 0)
1613 handler = crypt_pgp_encrypted_handler;
1617 handler = multipart_handler;
1619 else if (WithCrypto && b->type == TYPEAPPLICATION) {
1620 if ((WithCrypto & APPLICATION_PGP) && mutt_is_application_pgp (b))
1621 handler = crypt_pgp_application_pgp_handler;
1622 if ((WithCrypto & APPLICATION_SMIME) && mutt_is_application_smime (b))
1623 handler = crypt_smime_application_smime_handler;
1627 if (plaintext || handler) {
1628 fseek (s->fpin, b->offset, 0);
1630 /* see if we need to decode this part before processing it */
1631 if (b->encoding == ENCBASE64 || b->encoding == ENCQUOTEDPRINTABLE || b->encoding == ENCUUENCODED || plaintext || mutt_is_text_part (b)) { /* text subtypes may
1633 * set conversion even
1634 * with 8bit encoding.
1636 int origType = b->type;
1637 char *savePrefix = NULL;
1640 /* decode to a tempfile, saving the original destination */
1642 mutt_mktemp (tempfile);
1643 if ((s->fpout = safe_fopen (tempfile, "w")) == NULL) {
1644 mutt_error _("Unable to open temporary file!");
1648 /* decoding the attachment changes the size and offset, so save a copy
1649 * of the "real" values now, and restore them after processing
1651 tmplength = b->length;
1652 tmpoffset = b->offset;
1654 /* if we are decoding binary bodies, we don't want to prefix each
1655 * line with the prefix or else the data will get corrupted.
1657 savePrefix = s->prefix;
1665 mutt_decode_attachment (b, s);
1668 b->length = ftell (s->fpout);
1672 /* restore final destination and substitute the tempfile for input */
1675 s->fpin = safe_fopen (tempfile, "r");
1678 /* restore the prefix */
1679 s->prefix = savePrefix;
1685 /* process the (decoded) body part */
1690 b->length = tmplength;
1691 b->offset = tmpoffset;
1693 /* restore the original source stream */
1698 s->flags |= M_FIRSTDONE;
1700 else if (s->flags & M_DISPLAY) {
1701 state_mark_attach (s);
1702 state_printf (s, _("[-- %s/%s is unsupported "), TYPE (b), b->subtype);
1703 if (!option (OPTVIEWATTACH)) {
1705 (type, sizeof (type),
1706 km_find_func (MENU_PAGER, OP_VIEW_ATTACHMENTS)))
1707 fprintf (s->fpout, _("(use '%s' to view this part)"), type);
1709 fputs (_("(need 'view-attachments' bound to key!)"), s->fpout);
1711 fputs (" --]\n", s->fpout);
1715 s->flags = oflags | (s->flags & M_FIRSTDONE);