1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ Mail to mail folders and displays.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2015 Steffen (Daode) Nurpmeso <sdaoden@users.sf.net>.
8 * Copyright (c) 1980, 1993
9 * The Regents of the University of California. 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. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
38 #ifndef HAVE_AMALGAMATION
42 static sigjmp_buf _send_pipejmp
;
44 /* Going for user display, print Part: info string */
45 static void _print_part_info(FILE *obuf
, struct mimepart
const *mpp
,
46 struct ignoretab
*doign
, int level
,
47 struct quoteflt
*qf
, ui64_t
*stats
);
49 /* Create a pipe; if mpp is not NULL, place some NAILENV_* environment
50 * variables accordingly */
51 static FILE * _pipefile(struct mime_handler
*mhp
,
52 struct mimepart
const *mpp
, FILE **qbuf
,
53 char const *tmpname
, int term_infd
);
55 /* Call mime_write() as approbiate and adjust statistics */
56 SINLINE ssize_t
_out(char const *buf
, size_t len
, FILE *fp
,
57 enum conversion convert
, enum sendaction action
,
58 struct quoteflt
*qf
, ui64_t
*stats
, struct str
*rest
);
61 static void _send_onpipe(int signo
);
64 static int sendpart(struct message
*zmp
, struct mimepart
*ip
,
65 FILE *obuf
, struct ignoretab
*doign
,
66 struct quoteflt
*qf
, enum sendaction action
,
67 ui64_t
*stats
, int level
);
69 /* Get a file for an attachment */
70 static FILE * newfile(struct mimepart
*ip
, bool_t
*ispipe
);
72 static void pipecpy(FILE *pipebuf
, FILE *outbuf
, FILE *origobuf
,
73 struct quoteflt
*qf
, ui64_t
*stats
);
75 /* Output a reasonable looking status field */
76 static void statusput(const struct message
*mp
, FILE *obuf
,
77 struct quoteflt
*qf
, ui64_t
*stats
);
78 static void xstatusput(const struct message
*mp
, FILE *obuf
,
79 struct quoteflt
*qf
, ui64_t
*stats
);
81 static void put_from_(FILE *fp
, struct mimepart
*ip
, ui64_t
*stats
);
84 _print_part_info(FILE *obuf
, struct mimepart
const *mpp
, /* TODO strtofmt.. */
85 struct ignoretab
*doign
, int level
, struct quoteflt
*qf
, ui64_t
*stats
)
88 struct str ti
= {NULL
, 0}, to
;
89 struct str
const *cpre
, *csuf
;
95 struct n_colour_pen
*cpen
= n_colour_pen_create(n_COLOUR_ID_VIEW_PARTINFO
,
97 if ((cpre
= n_colour_pen_to_str(cpen
)) != NULL
)
98 csuf
= n_colour_reset_to_str();
106 /* Take care of "99.99", i.e., 5 */
107 if ((cp
= mpp
->m_partstring
) == NULL
|| cp
[0] == '\0')
109 if (level
|| (cp
[0] != '1' && cp
[1] == '\0'))
110 _out("\n", 1, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
112 _out(cpre
->s
, cpre
->l
, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
113 _out("[-- #", 5, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
114 _out(cp
, strlen(cp
), obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
116 to
.l
= snprintf(buf
, sizeof buf
, " %" PRIuZ
"/%" PRIuZ
" ",
117 (uiz_t
)mpp
->m_lines
, (uiz_t
)mpp
->m_size
);
118 _out(buf
, to
.l
, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
120 if ((cp
= mpp
->m_ct_type_usr_ovwr
) != NULL
)
121 _out("+", 1, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
123 cp
= mpp
->m_ct_type_plain
;
124 if ((to
.l
= strlen(cp
)) > 30 && is_asccaseprefix(cp
, "application/")) {
125 size_t const al
= sizeof("appl../") -1, fl
= sizeof("application/") -1;
126 size_t i
= to
.l
- fl
;
127 char *x
= salloc(al
+ i
+1);
129 memcpy(x
, "appl../", al
);
130 memcpy(x
+ al
, cp
+ fl
, i
+1);
134 _out(cp
, to
.l
, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
136 if (mpp
->m_multipart
== NULL
/* TODO */ && (cp
= mpp
->m_ct_enc
) != NULL
) {
137 _out(", ", 2, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
138 if (to
.l
> 25 && !asccasecmp(cp
, "quoted-printable"))
140 _out(cp
, strlen(cp
), obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
143 if (mpp
->m_multipart
== NULL
/* TODO */ && (cp
= mpp
->m_charset
) != NULL
) {
144 _out(", ", 2, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
145 _out(cp
, strlen(cp
), obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
148 _out(" --]", 4, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
150 _out(csuf
->s
, csuf
->l
, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
151 _out("\n", 1, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
153 if (is_ign("content-disposition", 19, doign
) && mpp
->m_filename
!= NULL
&&
154 *mpp
->m_filename
!= '\0') {
155 makeprint(n_str_add_cp(&ti
, mpp
->m_filename
), &to
);
157 to
.l
= delctrl(to
.s
, to
.l
);
160 _out(cpre
->s
, cpre
->l
, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
161 _out("[-- ", 4, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
162 _out(to
.s
, to
.l
, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
163 _out(" --]", 4, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
165 _out(csuf
->s
, csuf
->l
, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
166 _out("\n", 1, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
174 _pipefile(struct mime_handler
*mhp
, struct mimepart
const *mpp
, FILE **qbuf
,
175 char const *tmpname
, int term_infd
)
178 char const *env_addon
[8], *cp
, *sh
;
184 if (mhp
->mh_flags
& MIME_HDL_ISQUOTE
) {
185 if ((*qbuf
= Ftmp(NULL
, "sendp", OF_RDWR
| OF_UNLINK
| OF_REGISTER
)) ==
187 n_perr(_("tmpfile"), 0);
192 if ((mhp
->mh_flags
& MIME_HDL_TYPE_MASK
) == MIME_HDL_PTF
) {
193 union {int (*ptf
)(void); char const *sh
;} u
;
196 if (*qbuf
!= stdout
) /* xxx never? v15: it'll be a filter anyway */
200 if((rbuf
= Popen((char*)-1, "W", u
.sh
, NULL
, fileno(*qbuf
))) == NULL
)
206 if (mpp
== NULL
|| (cp
= mpp
->m_filename
) == NULL
)
208 env_addon
[0] = str_concat_csvl(&s
, NAILENV_FILENAME
, "=", cp
, NULL
)->s
;
210 /* NAIL_FILENAME_GENERATED *//* TODO pathconf NAME_MAX; but user can create
211 * TODO a file wherever he wants! *Do* create a zero-size temporary file
212 * TODO and give *that* path as NAIL_FILENAME_TEMPORARY, clean it up once
213 * TODO the pipe returns? Like this we *can* verify path/name issues! */
214 env_addon
[1] = str_concat_csvl(&s
, NAILENV_FILENAME_GENERATED
, "=",
215 getrandstring(MIN(NAME_MAX
/ 4, 16)), NULL
)->s
;
217 /* NAIL_CONTENT{,_EVIDENCE} */
218 if (mpp
== NULL
|| (cp
= mpp
->m_ct_type_plain
) == NULL
)
220 env_addon
[2] = str_concat_csvl(&s
, NAILENV_CONTENT
, "=", cp
, NULL
)->s
;
222 if (mpp
!= NULL
&& mpp
->m_ct_type_usr_ovwr
!= NULL
)
223 cp
= mpp
->m_ct_type_usr_ovwr
;
224 env_addon
[3] = str_concat_csvl(&s
, NAILENV_CONTENT_EVIDENCE
, "=", cp
,
227 env_addon
[4] = str_concat_csvl(&s
, NAILENV_TMPDIR
, "=", tempdir
, NULL
)->s
;
228 env_addon
[5] = str_concat_csvl(&s
, "TMPDIR", "=", tempdir
, NULL
)->s
;
232 /* NAIL_FILENAME_TEMPORARY? */
233 if (tmpname
!= NULL
) {
234 env_addon
[6] = str_concat_csvl(&s
, NAILENV_FILENAME_TEMPORARY
, "=",
239 if ((sh
= ok_vlook(SHELL
)) == NULL
)
242 if (mhp
->mh_flags
& MIME_HDL_NEEDSTERM
) {
247 pid
= run_command(sh
, NULL
, term_infd
, COMMAND_FD_PASS
, "-c",
248 mhp
->mh_shell_cmd
, NULL
, env_addon
);
249 rbuf
= (pid
< 0) ? NULL
: (FILE*)-1;
251 rbuf
= Popen(mhp
->mh_shell_cmd
, "W", sh
, env_addon
,
252 (mhp
->mh_flags
& MIME_HDL_ASYNC
? -1 : fileno(*qbuf
)));
255 n_err(_("Cannot run MIME type handler \"%s\": %s\n"),
256 mhp
->mh_msg
, strerror(errno
));
269 _out(char const *buf
, size_t len
, FILE *fp
, enum conversion convert
, enum
270 sendaction action
, struct quoteflt
*qf
, ui64_t
*stats
, struct str
*rest
)
277 Well
... it turns out to
not work like that since of course a valid
278 RFC
4155 compliant parser
, like S
-nail
, takes care
for From_ lines only
279 after an empty line has been seen
, which cannot be detected that easily
281 ifdef HAVE_DEBUG
/* TODO assert legacy */
282 /* TODO if at all, this CAN only happen for SEND_DECRYPT, since all
283 * TODO other input situations handle RFC 4155 OR, if newly generated,
284 * TODO enforce quoted-printable if there is From_, as "required" by
285 * TODO RFC 5751. The SEND_DECRYPT case is not yet overhauled;
286 * TODO if it may happen in this path, we should just treat decryption
287 * TODO as we do for the other input paths; i.e., handle it in SSL!! */
288 if (action
== SEND_MBOX
|| action
== SEND_DECRYPT
)
289 assert(!is_head(buf
, len
, TRU1
));
291 if ((/*action == SEND_MBOX ||*/ action
== SEND_DECRYPT
) &&
292 is_head(buf
, len
, TRU1
)) {
298 flags
= ((int)action
& _TD_EOF
);
300 n
= mime_write(buf
, len
, fp
,
301 action
== SEND_MBOX
? CONV_NONE
: convert
,
302 flags
| ((action
== SEND_TODISP
|| action
== SEND_TODISP_ALL
||
303 action
== SEND_QUOTE
|| action
== SEND_QUOTE_ALL
)
305 : (action
== SEND_TOSRCH
|| action
== SEND_TOPIPE
)
306 ? TD_ICONV
: (action
== SEND_SHOW
? TD_ISPR
: TD_NONE
)),
320 _send_onpipe(int signo
)
322 NYD_X
; /* Signal handler */
324 siglongjmp(_send_pipejmp
, 1);
327 static sigjmp_buf __sendp_actjmp
; /* TODO someday.. */
328 static int __sendp_sig
; /* TODO someday.. */
329 static sighandler_type __sendp_opipe
;
331 __sendp_onsig(int sig
) /* TODO someday, we won't need it no more */
333 NYD_X
; /* Signal handler */
335 siglongjmp(__sendp_actjmp
, 1);
338 static sigjmp_buf __sndalter_actjmp
; /* TODO someday.. */
339 static int __sndalter_sig
; /* TODO someday.. */
341 __sndalter_onsig(int sig
) /* TODO someday, we won't need it no more */
343 NYD_X
; /* Signal handler */
344 __sndalter_sig
= sig
;
345 siglongjmp(__sndalter_actjmp
, 1);
349 sendpart(struct message
*zmp
, struct mimepart
*ip
, FILE * volatile obuf
,
350 struct ignoretab
*doign
, struct quoteflt
*qf
,
351 enum sendaction
volatile action
, ui64_t
* volatile stats
, int level
)
354 struct mime_handler mh
;
356 char *line
= NULL
, *cp
, *cp2
, *start
;
357 char const *tmpname
= NULL
;
358 size_t linesize
= 0, linelen
, cnt
;
359 int volatile term_infd
;
361 struct mimepart
*volatile np
;
362 FILE * volatile ibuf
= NULL
, * volatile pbuf
= obuf
,
363 * volatile qbuf
= obuf
, *origobuf
= obuf
;
364 enum conversion
volatile convert
;
365 sighandler_type
volatile oldpipe
= SIG_DFL
;
368 if (ip
->m_mimecontent
== MIME_PKCS7
&& ip
->m_multipart
&&
369 action
!= SEND_MBOX
&& action
!= SEND_RFC822
&& action
!= SEND_SHOW
)
375 if (!is_ign("status", 6, doign
))
377 if (!is_ign("x-status", 8, doign
))
382 if ((ibuf
= setinput(&mb
, (struct message
*)ip
, NEED_BODY
)) == NULL
) {
388 if (ip
->m_mimecontent
== MIME_DISCARD
)
391 if (!(ip
->m_flag
& MNOFROM
))
392 while (cnt
&& (c
= getc(ibuf
)) != EOF
) {
397 convert
= (action
== SEND_TODISP
|| action
== SEND_TODISP_ALL
||
398 action
== SEND_QUOTE
|| action
== SEND_QUOTE_ALL
||
399 action
== SEND_TOSRCH
)
400 ? CONV_FROMHDR
: CONV_NONE
;
402 /* Work the headers */
403 quoteflt_reset(qf
, obuf
);
414 while (fgetline(&line
, &linesize
, &cnt
, &linelen
, ibuf
, 0)) {
416 if (line
[0] == '\n') {
417 /* If line is blank, we've reached end of headers, so force out
418 * status: field and note that we are no longer in header fields */
420 statusput(zmp
, obuf
, qf
, stats
);
422 xstatusput(zmp
, obuf
, qf
, stats
);
423 if (doign
!= allignore
)
424 _out("\n", 1, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
429 if ((hps
& HPS_IN_FIELD
) && blankchar(line
[0])) {
430 /* If this line is a continuation (SP / HT) of a previous header
431 * field, determine if the start of the line is a MIME encoded word */
432 if (hps
& HPS_ISENC_2
) {
433 for (cp
= line
; blankchar(*cp
); ++cp
)
435 if (cp
> line
&& linelen
- PTR2SIZE(cp
- line
) > 8 &&
436 cp
[0] == '=' && cp
[1] == '?')
440 /* Pick up the header field if we have one */
441 for (cp
= line
; (c
= *cp
& 0377) && c
!= ':' && !spacechar(c
); ++cp
)
444 while (spacechar(*cp
))
448 n_err(_("Malformed message: headers and body not separated "
449 "(with empty line)\n"));
450 /* Not a header line, force out status: This happens in uucp style
451 * mail where there are no headers at all */
452 if (level
== 0 /*&& lineno == 1*/) {
454 statusput(zmp
, obuf
, qf
, stats
);
456 xstatusput(zmp
, obuf
, qf
, stats
);
458 if (doign
!= allignore
)
459 _out("\n", 1, obuf
, CONV_NONE
,SEND_MBOX
, qf
, stats
, NULL
);
463 /* If it is an ignored field and we care about such things, skip it.
464 * Misuse dostat also for another bit xxx use a bitenum + for more */
465 if (ok_blook(keep_content_length
))
468 *cp2
= 0; /* temporarily null terminate */
469 if ((doign
&& is_ign(line
, PTR2SIZE(cp2
- line
), doign
)) ||
470 (action
== SEND_MBOX
&& !(dostat
& (1 << 2)) &&
471 (!asccasecmp(line
, "content-length") ||
472 !asccasecmp(line
, "lines"))))
474 else if (!asccasecmp(line
, "status")) {
475 /* If field is "status," go compute and print real Status: field */
477 statusput(zmp
, obuf
, qf
, stats
);
481 } else if (!asccasecmp(line
, "x-status")) {
482 /* If field is "status," go compute and print real Status: field */
484 xstatusput(zmp
, obuf
, qf
, stats
);
490 /* For colourization we need the complete line, so save it */
491 /* XXX This is all temporary (colour belongs into backend), so
492 * XXX use tmpname as a temporary storage in the meanwhile */
494 if (pstate
& PS_COLOUR_ACTIVE
)
495 tmpname
= savestrbuf(line
, PTR2SIZE(cp2
- line
));
503 /* Determine if the end of the line is a MIME encoded word */
504 /* TODO geeeh! all this lengthy stuff that follows is about is dealing
505 * TODO with header follow lines, and it should be up to the backend
506 * TODO what happens and what not, i.e., it doesn't matter wether it's
507 * TODO a MIME-encoded word or not, as long as a single separating space
508 * TODO remains in between lines (the MIME stuff will correctly remove
509 * TODO whitespace in between multiple adjacent encoded words) */
511 if (cnt
&& (c
= getc(ibuf
)) != EOF
) {
513 cp
= line
+ linelen
- 1;
514 if (linelen
> 0 && *cp
== '\n')
516 while (cp
>= line
&& whitechar(*cp
))
518 if (PTR2SIZE(cp
- line
> 8) && cp
[0] == '=' && cp
[-1] == '?')
524 if (!(hps
& HPS_IGNORE
)) {
525 size_t len
= linelen
;
527 if (action
== SEND_TODISP
|| action
== SEND_TODISP_ALL
||
528 action
== SEND_QUOTE
|| action
== SEND_QUOTE_ALL
||
529 action
== SEND_TOSRCH
) {
530 /* Strip blank characters if two MIME-encoded words follow on
531 * continuing lines */
532 if (hps
& HPS_ISENC_1
)
533 while (len
> 0 && blankchar(*start
)) {
537 if (hps
& HPS_ISENC_2
)
538 if (len
> 0 && start
[len
- 1] == '\n')
540 while (len
> 0 && blankchar(start
[len
- 1]))
545 bool_t colour_stripped
= FAL0
;
546 if (tmpname
!= NULL
) {
547 n_colour_put(obuf
, n_COLOUR_ID_VIEW_HEADER
, tmpname
);
548 if (len
> 0 && start
[len
- 1] == '\n') {
549 colour_stripped
= TRU1
;
554 _out(start
, len
, obuf
, convert
, action
, qf
, stats
, NULL
);
556 if (tmpname
!= NULL
) {
557 n_colour_reset(obuf
);
577 memset(&mh
, 0, sizeof mh
);
579 switch (ip
->m_mimecontent
) {
583 case SEND_TODISP_ALL
:
586 if (ok_blook(rfc822_body_from_
)) {
587 if (qf
->qf_pfix_len
> 0) {
588 size_t i
= fwrite(qf
->qf_pfix
, sizeof *qf
->qf_pfix
,
589 qf
->qf_pfix_len
, obuf
);
590 if (i
== qf
->qf_pfix_len
&& stats
!= NULL
)
593 put_from_(obuf
, ip
->m_multipart
, stats
);
601 if (ok_blook(rfc822_body_from_
))
602 put_from_(obuf
, ip
->m_multipart
, stats
);
612 case MIME_TEXT_PLAIN
:
615 case SEND_TODISP_ALL
:
618 switch (mime_type_handler(&mh
, ip
, action
)) {
620 _out(mh
.mh_msg
.s
, mh
.mh_msg
.l
, obuf
, CONV_NONE
, SEND_MBOX
, qf
,
622 /* We would print this as plain text, so better force going home */
633 if (action
!= SEND_DECRYPT
)
637 if (action
!= SEND_MBOX
&& action
!= SEND_RFC822
&&
638 action
!= SEND_SHOW
&& ip
->m_multipart
!= NULL
)
644 case SEND_TODISP_ALL
:
647 switch (mime_type_handler(&mh
, ip
, action
)) {
649 _out(mh
.mh_msg
.s
, mh
.mh_msg
.l
, obuf
, CONV_NONE
, SEND_MBOX
, qf
,
651 /* We would print this as plain text, so better force going home */
654 /* FIXME WE NEED TO DO THAT IF WE ARE THE ONLY MAIL
655 * FIXME CONTENT !! */
660 if (level
== 0 && cnt
) {
661 char const *x
= _("[-- Binary content --]\n");
662 _out(x
, strlen(x
), obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
677 case MIME_ALTERNATIVE
:
678 if ((action
== SEND_TODISP
|| action
== SEND_QUOTE
) &&
679 !ok_blook(print_alternatives
)) {
680 /* XXX This (a) should not remain (b) should be own fun
681 * TODO (despite the fact that v15 will do this completely differently
682 * TODO by having an action-specific "manager" that will traverse the
683 * TODO parsed MIME tree and decide for each part wether it'll be
684 * TODO displayed or not *before* we walk the tree for doing action */
686 struct mpstack
*outer
;
688 } outermost
, * volatile curr
, * volatile mpsp
;
689 bool_t
volatile neednl
, hadpart
;
690 sighandler_type
volatile opsh
, oish
, ohsh
;
692 (curr
= &outermost
)->outer
= NULL
;
694 neednl
= hadpart
= FAL0
;
697 opsh
= safe_signal(SIGPIPE
, &__sndalter_onsig
);
698 oish
= safe_signal(SIGINT
, &__sndalter_onsig
);
699 ohsh
= safe_signal(SIGHUP
, &__sndalter_onsig
);
700 if (sigsetjmp(__sndalter_actjmp
, 1)) {
705 for (np
= ip
->m_multipart
;;) {
707 for (; np
!= NULL
; np
= np
->m_nextpart
) {
708 if (action
!= SEND_QUOTE
&& np
->m_ct_type_plain
!= NULL
) {
710 _out("\n", 1, obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
711 _print_part_info(obuf
, np
, doign
, level
, qf
, stats
);
715 switch (np
->m_mimecontent
) {
716 case MIME_ALTERNATIVE
:
720 mpsp
= salloc(sizeof *mpsp
);
722 mpsp
->mp
= np
->m_multipart
;
731 switch (mime_type_handler(&mh
, np
, action
)) {
733 mh
.mh_flags
= MIME_HDL_NULL
;
734 continue; /* break; break; */
736 if (!ok_blook(mime_alternative_favour_rich
)) {/* TODO */
737 struct mimepart
*x
= np
;
739 while ((x
= x
->m_nextpart
) != NULL
) {
740 struct mime_handler mhx
;
742 if (x
->m_mimecontent
== MIME_TEXT_PLAIN
||
743 mime_type_handler(&mhx
, x
, action
) ==
748 continue; /* break; break; */
756 case MIME_TEXT_PLAIN
:
759 if (ok_blook(mime_alternative_favour_rich
)) { /* TODO */
760 struct mimepart
*x
= np
;
762 /* TODO twice TODO, we should dive into /related and
763 * TODO check wether that has rich parts! */
764 while ((x
= x
->m_nextpart
) != NULL
) {
765 struct mime_handler mhx
;
767 switch (mime_type_handler(&mhx
, x
, action
)) {
776 continue; /* break; break; */
780 if (action
== SEND_QUOTE
&& hadpart
) {
781 struct quoteflt
*dummy
= quoteflt_dummy();
782 _out("\n", 1, obuf
, CONV_NONE
, SEND_MBOX
, dummy
, stats
,
784 quoteflt_flush(dummy
);
788 rv
= sendpart(zmp
, np
, obuf
, doign
, qf
, action
, stats
,
790 quoteflt_reset(qf
, origobuf
);
794 curr
= &outermost
; /* Cause overall loop termination */
803 np
= curr
->mp
->m_nextpart
;
805 safe_signal(SIGHUP
, ohsh
);
806 safe_signal(SIGINT
, oish
);
807 safe_signal(SIGPIPE
, opsh
);
808 if (__sndalter_sig
!= 0)
809 n_raise(__sndalter_sig
);
818 case SEND_TODISP_ALL
:
826 if ((action
== SEND_TODISP
|| action
== SEND_TODISP_ALL
) &&
827 ip
->m_multipart
!= NULL
&&
828 ip
->m_multipart
->m_mimecontent
== MIME_DISCARD
&&
829 ip
->m_multipart
->m_nextpart
== NULL
) {
830 char const *x
= _("[Missing multipart boundary - use \"show\" "
831 "to display the raw message]\n");
832 _out(x
, strlen(x
), obuf
, CONV_NONE
, SEND_MBOX
, qf
, stats
, NULL
);
835 for (np
= ip
->m_multipart
; np
!= NULL
; np
= np
->m_nextpart
) {
838 if (np
->m_mimecontent
== MIME_DISCARD
&& action
!= SEND_DECRYPT
)
844 if (np
->m_partstring
&& !strcmp(np
->m_partstring
, "1"))
847 /* TODO Always open multipart on /dev/null, it's a hack to be
848 * TODO able to dive into that structure, and still better
849 * TODO than asking the user for something stupid.
850 * TODO oh, wait, we did ask for a filename for this MIME mail,
851 * TODO and that outer container is useless anyway ;-P */
852 if (np
->m_multipart
!= NULL
) {
853 if ((obuf
= Fopen("/dev/null", "w")) == NULL
)
855 } else if ((obuf
= newfile(np
, &ispipe
)) == NULL
)
859 if (sigsetjmp(_send_pipejmp
, 1)) {
863 oldpipe
= safe_signal(SIGPIPE
, &_send_onpipe
);
866 case SEND_TODISP_ALL
:
867 if (ip
->m_mimecontent
!= MIME_ALTERNATIVE
&&
868 ip
->m_mimecontent
!= MIME_RELATED
&&
869 ip
->m_mimecontent
!= MIME_DIGEST
&&
870 ip
->m_mimecontent
!= MIME_MULTI
)
872 _print_part_info(obuf
, np
, doign
, level
, qf
, stats
);
886 if ((action
== SEND_QUOTE
|| action
== SEND_QUOTE_ALL
) &&
887 np
->m_multipart
== NULL
&& ip
->m_parent
!= NULL
) {
888 struct quoteflt
*dummy
= quoteflt_dummy();
889 _out("\n", 1, obuf
, CONV_NONE
, SEND_MBOX
, dummy
, stats
,
891 quoteflt_flush(dummy
);
893 if (sendpart(zmp
, np
, obuf
, doign
, qf
, action
, stats
, level
+1) < 0)
895 quoteflt_reset(qf
, origobuf
);
897 if (action
== SEND_QUOTE
) {
898 if (ip
->m_mimecontent
!= MIME_RELATED
)
901 if (action
== SEND_TOFILE
&& obuf
!= origobuf
) {
906 safe_signal(SIGPIPE
, SIG_IGN
);
908 safe_signal(SIGPIPE
, oldpipe
);
921 /* Copy out message body */
922 if (doign
== allignore
&& level
== 0) /* skip final blank line */
924 switch (ip
->m_mime_enc
) {
931 convert
= CONV_FROMQP
;
934 switch (ip
->m_mimecontent
) {
936 case MIME_TEXT_PLAIN
:
938 convert
= CONV_FROMB64_T
;
941 switch (mh
.mh_flags
& MIME_HDL_TYPE_MASK
) {
944 convert
= CONV_FROMB64_T
;
947 convert
= CONV_FROMB64
;
957 if (action
== SEND_DECRYPT
|| action
== SEND_MBOX
||
958 action
== SEND_RFC822
|| action
== SEND_SHOW
)
961 if ((action
== SEND_TODISP
|| action
== SEND_TODISP_ALL
||
962 action
== SEND_QUOTE
|| action
== SEND_QUOTE_ALL
||
963 action
== SEND_TOSRCH
) &&
964 (ip
->m_mimecontent
== MIME_TEXT_PLAIN
||
965 ip
->m_mimecontent
== MIME_TEXT_HTML
||
966 ip
->m_mimecontent
== MIME_TEXT
||
967 (mh
.mh_flags
& MIME_HDL_TYPE_MASK
) == MIME_HDL_TEXT
||
968 (mh
.mh_flags
& MIME_HDL_TYPE_MASK
) == MIME_HDL_PTF
)) {
969 char const *tcs
= charset_get_lc();
971 if (iconvd
!= (iconv_t
)-1)
972 n_iconv_close(iconvd
);
973 /* TODO Since Base64 has an odd 4:3 relation in between input
974 * TODO and output an input line may end with a partial
975 * TODO multibyte character; this is no problem at all unless
976 * TODO we send to the display or whatever, i.e., ensure
977 * TODO makeprint() or something; to avoid this trap, *force*
978 * TODO iconv(), in which case this layer will handle leftovers
980 if (convert
== CONV_FROMB64_T
|| (asccasecmp(tcs
, ip
->m_charset
) &&
981 asccasecmp(charset_get_7bit(), ip
->m_charset
))) {
982 iconvd
= n_iconv_open(tcs
, ip
->m_charset
);
984 * TODO errors should DEFINETELY not be scrolled away!
985 * TODO what about an error buffer (think old shsp(1)),
986 * TODO re-dump errors since last snapshot when the
987 * TODO command loop enters again? i.e., at least print
988 * TODO "There were errors ?" before the next prompt,
989 * TODO so that the user can look at the error buffer?
991 if (iconvd
== (iconv_t
)-1 && errno
== EINVAL
) {
992 n_err(_("Cannot convert from %s to %s\n"), ip
->m_charset
, tcs
);
993 /*rv = 1; goto jleave;*/
999 switch (mh
.mh_flags
& MIME_HDL_TYPE_MASK
) {
1005 term_infd
= COMMAND_FD_PASS
;
1006 if (mh
.mh_flags
& (MIME_HDL_TMPF
| MIME_HDL_NEEDSTERM
)) {
1009 of
= OF_RDWR
| OF_REGISTER
;
1010 if (!(mh
.mh_flags
& MIME_HDL_TMPF
)) {
1012 mh
.mh_flags
|= MIME_HDL_TMPF_FILL
;
1014 } else if (mh
.mh_flags
& MIME_HDL_TMPF_UNLINK
)
1015 of
|= OF_REGISTER_UNLINK
;
1017 if ((pbuf
= Ftmp((mh
.mh_flags
& MIME_HDL_TMPF
? &cp
: NULL
),
1018 (mh
.mh_flags
& MIME_HDL_TMPF_FILL
? "mimehdlfill" : "mimehdl"),
1022 if (mh
.mh_flags
& MIME_HDL_TMPF
) {
1023 tmpname
= savestr(cp
);
1027 if (mh
.mh_flags
& MIME_HDL_TMPF_FILL
) {
1029 term_infd
= fileno(pbuf
);
1035 pbuf
= _pipefile(&mh
, ip
, UNVOLATILE(&qbuf
), tmpname
, term_infd
);
1041 } else if ((mh
.mh_flags
& MIME_HDL_NEEDSTERM
) && pbuf
== (FILE*)-1) {
1046 action
= SEND_TOPIPE
;
1048 oldpipe
= safe_signal(SIGPIPE
, &_send_onpipe
);
1049 if (sigsetjmp(_send_pipejmp
, 1))
1055 mh
.mh_flags
= MIME_HDL_NULL
;
1062 bool_t
volatile eof
;
1063 ui32_t save_qf_pfix_len
= qf
->qf_pfix_len
;
1064 ui64_t
*save_stats
= stats
;
1066 if (pbuf
!= origobuf
) {
1067 qf
->qf_pfix_len
= 0; /* XXX legacy (remove filter instead) */
1076 __sendp_opipe
= safe_signal(SIGPIPE
, &__sendp_onsig
);
1077 if (sigsetjmp(__sendp_actjmp
, 1)) {
1082 if (iconvd
!= (iconv_t
)-1)
1083 n_iconv_close(iconvd
);
1085 safe_signal(SIGPIPE
, __sendp_opipe
);
1086 n_raise(__sendp_sig
);
1090 quoteflt_reset(qf
, pbuf
);
1091 while (!eof
&& fgetline(&line
, &linesize
, &cnt
, &linelen
, ibuf
, 0)) {
1093 if (_out(line
, linelen
, pbuf
, convert
, action
, qf
, stats
, &rest
) < 0 ||
1095 rv
= -1; /* XXX Should bail away?! */
1099 if (!eof
&& rest
.l
!= 0) {
1107 if (mh
.mh_flags
& MIME_HDL_TMPF_FILL
) {
1108 mh
.mh_flags
&= ~MIME_HDL_TMPF_FILL
;
1110 really_rewind(pbuf
);
1111 /* Don't Fclose() the Ftmp() thing due to OF_REGISTER_UNLINK++ */
1112 goto jpipe_for_real
;
1116 safe_signal(SIGPIPE
, __sendp_opipe
);
1121 if (pbuf
!= origobuf
) {
1122 qf
->qf_pfix_len
= save_qf_pfix_len
;
1131 safe_signal(SIGPIPE
, SIG_IGN
);
1132 Pclose(pbuf
, !(mh
.mh_flags
& MIME_HDL_ASYNC
));
1133 safe_signal(SIGPIPE
, oldpipe
);
1134 if (qbuf
!= NULL
&& qbuf
!= obuf
)
1135 pipecpy(qbuf
, obuf
, origobuf
, qf
, stats
);
1138 if (iconvd
!= (iconv_t
)-1)
1139 n_iconv_close(iconvd
);
1147 newfile(struct mimepart
*ip
, bool_t
*ispipe
)
1157 if (f
!= NULL
&& f
!= (char*)-1) {
1160 makeprint(&in
, &out
);
1161 out
.l
= delctrl(out
.s
, out
.l
);
1162 f
= savestrbuf(out
.s
, out
.l
);
1166 if (options
& OPT_INTERACTIVE
) {
1170 /* TODO Generic function which asks for filename.
1171 * TODO If the current part is the first textpart the target
1172 * TODO is implicit from outer `write' etc! */
1173 /* I18N: Filename input prompt with file type indication */
1174 str_concat_csvl(&prompt
, _("Enter filename for part "),
1175 (ip
->m_partstring
!= NULL
) ? ip
->m_partstring
: _("?"),
1176 _(" ("), ip
->m_ct_type_plain
, _("): "), NULL
);
1178 f2
= n_input_cp_addhist(prompt
.s
, ((f
!= (char*)-1 && f
!= NULL
)
1179 ? fexpand_nshell_quote(f
) : NULL
), TRU1
);
1181 while(spacechar(*f2
))
1183 if (f2
== NULL
|| *f2
== '\0') {
1184 if (options
& OPT_D_V
)
1185 n_err(_("... skipping this\n"));
1191 /* Pipes are expanded by the shell */
1193 else if ((f3
= fexpand(f2
, FEXP_LOCAL
| FEXP_NSHELL
)) == NULL
)
1194 /* (Error message written by fexpand()) */
1199 if (f
== NULL
|| f
== (char*)-1) {
1207 cp
= ok_vlook(SHELL
);
1210 fp
= Popen(f
+ 1, "w", cp
, NULL
, 1);
1211 if (!(*ispipe
= (fp
!= NULL
)))
1214 if ((fp
= Fopen(f
, "w")) == NULL
)
1215 n_err(_("Cannot open \"%s\"\n"), f
);
1223 pipecpy(FILE *pipebuf
, FILE *outbuf
, FILE *origobuf
, struct quoteflt
*qf
,
1226 char *line
= NULL
; /* TODO line pool */
1227 size_t linesize
= 0, linelen
, cnt
;
1233 cnt
= fsize(pipebuf
);
1236 quoteflt_reset(qf
, outbuf
);
1237 while (fgetline(&line
, &linesize
, &cnt
, &linelen
, pipebuf
, 0) != NULL
) {
1238 if ((sz
= quoteflt_push(qf
, line
, linelen
)) < 0)
1242 if ((sz
= quoteflt_flush(qf
)) > 0)
1247 if (all_sz
> 0 && outbuf
== origobuf
&& stats
!= NULL
)
1254 statusput(const struct message
*mp
, FILE *obuf
, struct quoteflt
*qf
,
1257 char statout
[3], *cp
= statout
;
1260 if (mp
->m_flag
& MREAD
)
1262 if (!(mp
->m_flag
& MNEW
))
1266 int i
= fprintf(obuf
, "%.*sStatus: %s\n", (int)qf
->qf_pfix_len
,
1267 (qf
->qf_pfix_len
> 0 ? qf
->qf_pfix
: 0), statout
);
1268 if (i
> 0 && stats
!= NULL
)
1275 xstatusput(const struct message
*mp
, FILE *obuf
, struct quoteflt
*qf
,
1279 char *xp
= xstatout
;
1282 if (mp
->m_flag
& MFLAGGED
)
1284 if (mp
->m_flag
& MANSWERED
)
1286 if (mp
->m_flag
& MDRAFTED
)
1290 int i
= fprintf(obuf
, "%.*sX-Status: %s\n", (int)qf
->qf_pfix_len
,
1291 (qf
->qf_pfix_len
> 0 ? qf
->qf_pfix
: 0), xstatout
);
1292 if (i
> 0 && stats
!= NULL
)
1299 put_from_(FILE *fp
, struct mimepart
*ip
, ui64_t
*stats
)
1301 char const *froma
, *date
, *nl
;
1305 if (ip
!= NULL
&& ip
->m_from
!= NULL
) {
1307 date
= fakedate(ip
->m_time
);
1311 date
= time_current
.tc_ctime
;
1315 n_COLOUR( n_colour_put(fp
, n_COLOUR_ID_VIEW_FROM_
, NULL
); )
1316 i
= fprintf(fp
, "From %s %s%s", froma
, date
, nl
);
1317 n_COLOUR( n_colour_reset(fp
); )
1318 if (i
> 0 && stats
!= NULL
)
1324 sendmp(struct message
*mp
, FILE *obuf
, struct ignoretab
*doign
,
1325 char const *prefix
, enum sendaction action
, ui64_t
*stats
)
1330 enum mime_parse_flags mpf
;
1331 struct mimepart
*ip
;
1335 if (mp
== dot
&& action
!= SEND_TOSRCH
)
1336 pstate
|= PS_DID_PRINT_DOT
;
1339 quoteflt_init(&qf
, prefix
);
1341 /* First line is the From_ line, so no headers there to worry about */
1342 if ((ibuf
= setinput(&mb
, mp
, NEED_BODY
)) == NULL
)
1348 char const *cpre
= "", *csuf
= "";
1350 struct n_colour_pen
*cpen
= n_colour_pen_create(n_COLOUR_ID_VIEW_FROM_
,NULL
);
1351 struct str
const *sp
= n_colour_pen_to_str(cpen
);
1355 sp
= n_colour_reset_to_str();
1360 if (mp
->m_flag
& MNOFROM
) {
1361 if (doign
!= allignore
&& doign
!= fwdignore
&& action
!= SEND_RFC822
)
1362 sz
= fprintf(obuf
, "%s%.*sFrom %s %s%s\n",
1363 cpre
, (int)qf
.qf_pfix_len
,
1364 (qf
.qf_pfix_len
!= 0 ? qf
.qf_pfix
: ""), fakefrom(mp
),
1365 fakedate(mp
->m_time
), csuf
);
1366 } else if (doign
!= allignore
&& doign
!= fwdignore
&&
1367 action
!= SEND_RFC822
) {
1368 if (qf
.qf_pfix_len
> 0) {
1369 i
= fwrite(qf
.qf_pfix
, sizeof *qf
.qf_pfix
, qf
.qf_pfix_len
, obuf
);
1370 if (i
!= qf
.qf_pfix_len
)
1377 cpre
= (char const*)0x1;
1381 while (cnt
> 0 && (c
= getc(ibuf
)) != EOF
) {
1383 if (c
== '\n' && csuf
!= NULL
) {
1384 cpre
= (char const*)0x1;
1396 if (csuf
!= NULL
&& cpre
!= (char const*)0x1)
1400 while (cnt
> 0 && (c
= getc(ibuf
)) != EOF
) {
1407 if (sz
> 0 && stats
!= NULL
)
1410 mpf
= MIME_PARSE_NONE
;
1411 if (action
!= SEND_MBOX
&& action
!= SEND_RFC822
&& action
!= SEND_SHOW
)
1412 mpf
|= MIME_PARSE_DECRYPT
| MIME_PARSE_PARTS
;
1413 if ((ip
= mime_parse_msg(mp
, mpf
)) == NULL
)
1416 rv
= sendpart(mp
, ip
, obuf
, doign
, &qf
, action
, stats
, 0);
1418 quoteflt_destroy(&qf
);