1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
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
36 #define n_FILE sendout
38 #ifndef HAVE_AMALGAMATION
43 #define SEND_LINESIZE \
44 ((1024 / B64_ENCODE_INPUT_PER_LINE) * B64_ENCODE_INPUT_PER_LINE)
50 _FMT_GMASK
= FMT_COMMA
| FMT_FILES
52 CTA(!(_FMT_GMASK
& FMT_DOMIME
));
54 static char const *__sendout_ident
; /* TODO temporary hack; rewrite puthead() */
55 static char * _sendout_boundary
;
56 static si8_t _sendout_error
;
58 static enum okay
_putname(char const *line
, enum gfield w
,
59 enum sendaction action
, size_t *gotcha
,
60 char const *prefix
, FILE *fo
, struct name
**xp
,
61 enum gfield addflags
);
63 /* Place Content-Type:, Content-Transfer-Encoding:, Content-Disposition:
64 * headers, respectively */
65 static int _put_ct(FILE *fo
, char const *contenttype
,
67 SINLINE
int _put_cte(FILE *fo
, enum conversion conv
);
68 static int _put_cd(FILE *fo
, char const *cd
, char const *filename
);
70 /* Write an attachment to the file buffer, converting to MIME */
71 static int _attach_file(struct attachment
*ap
, FILE *fo
);
72 static int __attach_file(struct attachment
*ap
, FILE *fo
);
74 /* There are non-local receivers, collect credentials etc. */
75 static bool_t
_sendbundle_setup_creds(struct sendbundle
*sbpm
,
78 /* Put the signature file at fo. TODO layer rewrite: *integrate in body*!! */
79 static int put_signature(FILE *fo
, int convert
);
81 /* Attach a message to the file buffer */
82 static int attach_message(struct attachment
*ap
, FILE *fo
);
84 /* Generate the body of a MIME multipart message */
85 static int make_multipart(struct header
*hp
, int convert
, FILE *fi
,
86 FILE *fo
, char const *contenttype
, char const *charset
);
88 /* Prepend a header in front of the collected stuff and return the new file */
89 static FILE * infix(struct header
*hp
, FILE *fi
);
91 /* Dump many many headers to fo; gen_message says wether this will generate the
92 * final message to be send TODO puthead() must be rewritten ASAP! */
93 static int _puthead(bool_t gen_message
, struct header
*hp
, FILE *fo
,
94 enum gfield w
, enum sendaction action
,
95 enum conversion convert
, char const *contenttype
,
98 /* Check wether Disposition-Notification-To: is desired */
99 static bool_t
_check_dispo_notif(struct name
*mdn
, struct header
*hp
,
102 /* Send mail to a bunch of user names. The interface is through mail() */
103 static int sendmail_internal(void *v
, int recipient_record
);
105 /* Deal with file and pipe addressees */
106 static struct name
* _outof(struct name
*names
, FILE *fo
, bool_t
*senderror
);
108 /* Record outgoing mail if instructed to do so; in *record* unless to is set */
109 static bool_t
mightrecord(FILE *fp
, struct name
*to
);
111 static int __savemail(char const *name
, FILE *fp
);
114 static bool_t
_transfer(struct sendbundle
*sbp
);
116 static bool_t
__mta_start(struct sendbundle
*sbp
);
117 static char const ** __mta_prepare_args(struct name
*to
, struct header
*hp
);
118 static void __mta_debug(struct sendbundle
*sbp
, char const *mta
,
121 /* Create a Message-Id: header field. Use either host name or from address */
122 static char * _message_id(struct header
*hp
);
124 /* Format the given header line to not exceed 72 characters */
125 static int fmt(char const *str
, struct name
*np
, FILE *fo
,
128 /* Rewrite a message for resending, adding the Resent-Headers */
129 static int infix_resend(FILE *fi
, FILE *fo
, struct message
*mp
,
130 struct name
*to
, int add_resent
);
133 _putname(char const *line
, enum gfield w
, enum sendaction action
,
134 size_t *gotcha
, char const *prefix
, FILE *fo
, struct name
**xp
,
135 enum gfield addflags
)
141 np
= lextract(line
, GEXTRA
| GFULL
| addflags
);
146 else if (fmt(prefix
, np
, fo
, ((w
& GCOMMA
) |
147 ((action
!= SEND_TODISP
) ? FMT_DOMIME
: 0))))
149 else if (gotcha
!= NULL
)
156 _put_ct(FILE *fo
, char const *contenttype
, char const *charset
)
161 if ((rv
= fprintf(fo
, "Content-Type: %s", contenttype
)) < 0)
167 if (putc(';', fo
) == EOF
)
171 if (strlen(contenttype
) + sizeof("Content-Type: ;")-1 > 50) {
172 if (putc('\n', fo
) == EOF
)
177 if ((i
= fprintf(fo
, " charset=%s", charset
)) < 0)
182 if (putc('\n', fo
) == EOF
)
194 _put_cte(FILE *fo
, enum conversion conv
)
200 * This is the default value -- that is,
201 * "Content-Transfer-Encoding: 7BIT" is assumed if the
202 * Content-Transfer-Encoding header field is not present.
204 rv
= (conv
== CONV_7BIT
) ? 0
205 : fprintf(fo
, "Content-Transfer-Encoding: %s\n",
206 mime_enc_from_conversion(conv
));
212 _put_cd(FILE *fo
, char const *cd
, char const *filename
)
221 /* xxx Ugly with the trailing space in case of wrap! */
222 if ((rv
= fprintf(fo
, "Content-Disposition: %s; ", cd
)) < 0)
225 if (!(mpc
= mime_param_create(&f
, "filename", filename
)))
227 /* Always fold if result contains newlines */
228 if (mpc
< 0 || f
.l
+ rv
> MIME_LINELEN
) { /* FIXME MIME_LINELEN_MAX */
229 if (putc('\n', fo
) == EOF
|| putc(' ', fo
) == EOF
)
233 if (fputs(f
.s
, fo
) == EOF
|| putc('\n', fo
) == EOF
)
247 _attach_file(struct attachment
*ap
, FILE *fo
)
249 /* TODO of course, the MIME classification needs to performed once
250 * TODO only, not for each and every charset anew ... ;-// */
251 char *charset_iter_orig
[2];
256 /* Is this already in target charset? Simply copy over */
257 if (ap
->a_conv
== AC_TMPFILE
) {
258 err
= __attach_file(ap
, fo
);
260 DBG( ap
->a_tmpf
= NULL
; )
264 /* If we don't apply charset conversion at all (fixed input=ouput charset)
265 * we also simply copy over, since it's the users desire */
266 if (ap
->a_conv
== AC_FIX_INCS
) {
267 ap
->a_charset
= ap
->a_input_charset
;
268 err
= __attach_file(ap
, fo
);
272 /* Otherwise we need to iterate over all possible output charsets */
273 if ((offs
= ftell(fo
)) == -1) {
277 charset_iter_recurse(charset_iter_orig
);
278 for (charset_iter_reset(NULL
);; charset_iter_next()) {
279 if (!charset_iter_is_valid()) {
283 err
= __attach_file(ap
, fo
);
284 if (err
== 0 || (err
!= EILSEQ
&& err
!= EINVAL
))
287 if (fseek(fo
, offs
, SEEK_SET
) == -1) {
291 if (ap
->a_conv
!= AC_DEFAULT
) {
295 ap
->a_charset
= NULL
;
297 charset_iter_restore(charset_iter_orig
);
304 __attach_file(struct attachment
*ap
, FILE *fo
) /* XXX linelength */
306 int err
= 0, do_iconv
;
309 enum conversion convert
;
311 size_t bufsize
, lncnt
, inlen
;
314 /* Either charset-converted temporary file, or plain path */
315 if (ap
->a_conv
== AC_TMPFILE
) {
317 assert(ftell(fi
) == 0);
318 } else if ((fi
= Fopen(ap
->a_name
, "r")) == NULL
) {
320 n_err(_("\"%s\": %s\n"), ap
->a_name
, strerror(errno
));
324 /* MIME part header for attachment */
325 { char const *bn
= ap
->a_name
, *ct
;
327 if ((ct
= strrchr(bn
, '/')) != NULL
)
329 ct
= ap
->a_content_type
;
330 charset
= ap
->a_charset
;
331 convert
= mime_type_file_classify(fi
, (char const**)&ct
,
332 &charset
, &do_iconv
);
333 if (charset
== NULL
|| ap
->a_conv
== AC_FIX_INCS
||
334 ap
->a_conv
== AC_TMPFILE
)
337 if (fprintf(fo
, "\n--%s\n", _sendout_boundary
) < 0 ||
338 _put_ct(fo
, ct
, charset
) < 0 || _put_cte(fo
, convert
) < 0 ||
339 _put_cd(fo
, ap
->a_content_disposition
, bn
) < 0)
342 if ((bn
= ap
->a_content_id
) != NULL
&&
343 fprintf(fo
, "Content-ID: %s\n", bn
) == -1)
346 if ((bn
= ap
->a_content_description
) != NULL
&&
347 fprintf(fo
, "Content-Description: %s\n", bn
) == -1) /* TODO MIME! */
350 if (putc('\n', fo
) == EOF
) {
358 if (iconvd
!= (iconv_t
)-1)
359 n_iconv_close(iconvd
);
361 char const *tcs
= charset_get_lc();
362 if (asccasecmp(charset
, tcs
) &&
363 (iconvd
= n_iconv_open(charset
, tcs
)) == (iconv_t
)-1 &&
364 (err
= errno
) != 0) {
366 n_err(_("Cannot convert from %s to %s\n"), tcs
, charset
);
368 n_err(_("iconv_open: %s\n"), strerror(err
));
374 bufsize
= SEND_LINESIZE
;
375 buf
= smalloc(bufsize
);
376 if (convert
== CONV_TOQP
378 || iconvd
!= (iconv_t
)-1
383 if (convert
== CONV_TOQP
385 || iconvd
!= (iconv_t
)-1
388 if (fgetline(&buf
, &bufsize
, &lncnt
, &inlen
, fi
, 0) == NULL
)
390 } else if ((inlen
= fread(buf
, sizeof *buf
, bufsize
, fi
)) == 0)
392 if (xmime_write(buf
, inlen
, fo
, convert
, TD_ICONV
) < 0) {
402 if (ap
->a_conv
!= AC_TMPFILE
)
410 _sendbundle_setup_creds(struct sendbundle
*sbp
, bool_t signing_caps
)
412 bool_t v15
, rv
= FAL0
;
419 v15
= ok_blook(v15_compat
);
420 shost
= (v15
? ok_vlook(smtp_hostname
) : NULL
);
421 from
= ((signing_caps
|| !v15
|| shost
== NULL
)
422 ? skin(myorigin(sbp
->sb_hp
)) : NULL
);
427 n_err(_("No *from* address for signing specified\n"));
431 sbp
->sb_signer
.l
= strlen(sbp
->sb_signer
.s
= from
);
435 if ((smtp
= ok_vlook(smtp
)) == NULL
) {
440 if (!url_parse(&sbp
->sb_url
, CPROTO_SMTP
, smtp
))
447 sbp
->sb_url
.url_u_h
.l
= strlen(sbp
->sb_url
.url_u_h
.s
= from
);
449 __sendout_ident
= sbp
->sb_url
.url_u_h
.s
;
450 if (!ccred_lookup(&sbp
->sb_ccred
, &sbp
->sb_url
))
453 if (sbp
->sb_url
.url_had_user
|| sbp
->sb_url
.url_pass
.s
!= NULL
) {
454 n_err(_("New-style URL used without *v15-compat* being set\n"));
457 /* TODO part of the entire myorigin() disaster, get rid of this! */
460 n_err(_("Your configuration requires a *from* address, "
461 "but none was given\n"));
464 if (!ccred_lookup_old(&sbp
->sb_ccred
, CPROTO_SMTP
, from
))
466 sbp
->sb_url
.url_u_h
.l
= strlen(sbp
->sb_url
.url_u_h
.s
= from
);
470 #endif /* HAVE_SMTP */
471 #if defined HAVE_SSL || defined HAVE_SMTP
479 put_signature(FILE *fo
, int convert
)
481 char buf
[SEND_LINESIZE
], *sig
, c
= '\n';
487 if ((sig
= ok_vlook(signature
)) == NULL
|| *sig
== '\0') {
493 if ((sig
= file_expand(sig
)) == NULL
)
496 if ((fsig
= Fopen(sig
, "r")) == NULL
) {
500 while ((sz
= fread(buf
, sizeof *buf
, SEND_LINESIZE
, fsig
)) != 0) {
502 if (xmime_write(buf
, sz
, fo
, convert
, TD_NONE
) < 0)
522 attach_message(struct attachment
*ap
, FILE *fo
)
529 fprintf(fo
, "\n--%s\nContent-Type: message/rfc822\n"
530 "Content-Disposition: inline\n", _sendout_boundary
);
531 if ((ccp
= ap
->a_content_description
) != NULL
)
532 fprintf(fo
, "Content-Description: %s\n", ccp
);/* TODO MIME! */
535 mp
= message
+ ap
->a_msgno
- 1;
537 rv
= (sendmp(mp
, fo
, 0, NULL
, SEND_RFC822
, NULL
) < 0) ? -1 : 0;
543 make_multipart(struct header
*hp
, int convert
, FILE *fi
, FILE *fo
,
544 char const *contenttype
, char const *charset
)
546 struct attachment
*att
;
550 fputs("This is a multi-part message in MIME format.\n", fo
);
551 if (fsize(fi
) != 0) {
553 size_t sz
, bufsize
, cnt
;
555 if (fprintf(fo
, "\n--%s\n", _sendout_boundary
) < 0 ||
556 _put_ct(fo
, contenttype
, charset
) < 0 ||
557 _put_cte(fo
, convert
) < 0 ||
558 fprintf(fo
, "Content-Disposition: inline\n\n") < 0)
561 buf
= smalloc(bufsize
= SEND_LINESIZE
);
562 if (convert
== CONV_TOQP
564 || iconvd
!= (iconv_t
)-1
571 if (convert
== CONV_TOQP
573 || iconvd
!= (iconv_t
)-1
576 if (fgetline(&buf
, &bufsize
, &cnt
, &sz
, fi
, 0) == NULL
)
578 } else if ((sz
= fread(buf
, sizeof *buf
, bufsize
, fi
)) == 0)
581 if (xmime_write(buf
, sz
, fo
, convert
, TD_ICONV
) < 0) {
591 put_signature(fo
, convert
);
594 for (att
= hp
->h_attach
; att
!= NULL
; att
= att
->a_flink
) {
596 if (attach_message(att
, fo
) != 0)
598 } else if (_attach_file(att
, fo
) != 0)
602 /* the final boundary with two attached dashes */
603 fprintf(fo
, "\n--%s--\n", _sendout_boundary
);
611 infix(struct header
*hp
, FILE *fi
) /* TODO check */
613 FILE *nfo
, *nfi
= NULL
;
615 char const *contenttype
, *charset
= NULL
;
616 enum conversion convert
;
617 int do_iconv
= 0, err
;
619 char const *tcs
, *convhdr
= NULL
;
623 if ((nfo
= Ftmp(&tempMail
, "infix", OF_WRONLY
| OF_HOLDSIGS
| OF_REGISTER
,
625 n_perr(_("temporary mail file"), 0);
628 if ((nfi
= Fopen(tempMail
, "r")) == NULL
) {
632 Ftmp_release(&tempMail
);
636 pstate
&= ~PS_HEADER_NEEDED_MIME
; /* TODO a hack should be carrier tracked */
638 contenttype
= "text/plain"; /* XXX mail body - always text/plain, want XX? */
639 convert
= mime_type_file_classify(fi
, &contenttype
, &charset
, &do_iconv
);
642 tcs
= charset_get_lc();
643 if ((convhdr
= need_hdrconv(hp
, GTO
| GSUBJECT
| GCC
| GBCC
| GIDENT
))) {
644 if (iconvd
!= (iconv_t
)-1) /* XXX */
645 n_iconv_close(iconvd
);
646 if (asccasecmp(convhdr
, tcs
) != 0 &&
647 (iconvd
= n_iconv_open(convhdr
, tcs
)) == (iconv_t
)-1 &&
652 if (_puthead(TRU1
, hp
, nfo
,
653 (GTO
| GSUBJECT
| GCC
| GBCC
| GNL
| GCOMMA
| GUA
| GMIME
| GMSGID
|
654 GIDENT
| GREF
| GDATE
), SEND_MBOX
, convert
, contenttype
, charset
))
657 if (iconvd
!= (iconv_t
)-1)
658 n_iconv_close(iconvd
);
662 if (do_iconv
&& charset
!= NULL
) { /*TODO charset->mime_type_file_classify*/
663 if (asccasecmp(charset
, tcs
) != 0 &&
664 (iconvd
= n_iconv_open(charset
, tcs
)) == (iconv_t
)-1 &&
665 (err
= errno
) != 0) {
668 n_err(_("Cannot convert from %s to %s\n"), tcs
, charset
);
670 n_perr("iconv_open", 0);
676 if (hp
->h_attach
!= NULL
) {
677 if (make_multipart(hp
, convert
, fi
, nfo
, contenttype
, charset
) != 0)
680 size_t sz
, bufsize
, cnt
;
683 if (convert
== CONV_TOQP
685 || iconvd
!= (iconv_t
)-1
691 buf
= smalloc(bufsize
= SEND_LINESIZE
);
693 if (convert
== CONV_TOQP
695 || iconvd
!= (iconv_t
)-1
698 if (fgetline(&buf
, &bufsize
, &cnt
, &sz
, fi
, 0) == NULL
)
700 } else if ((sz
= fread(buf
, sizeof *buf
, bufsize
, fi
)) == 0)
702 if (xmime_write(buf
, sz
, nfo
, convert
, TD_ICONV
) < 0) {
709 if (err
|| ferror(fi
)) {
714 if (iconvd
!= (iconv_t
)-1)
715 n_iconv_close(iconvd
);
721 put_signature(nfo
, convert
); /* XXX if (text/) !! */
725 if (iconvd
!= (iconv_t
)-1)
726 n_iconv_close(iconvd
);
730 if ((err
= ferror(nfo
)))
731 n_perr(_("temporary mail file"), 0);
746 _puthead(bool_t gen_message
, struct header
*hp
, FILE *fo
, enum gfield w
,
747 enum sendaction action
, enum conversion convert
, char const *contenttype
,
750 #define FMT_CC_AND_BCC() \
752 if (hp->h_cc != NULL && (w & GCC)) {\
753 if (fmt("Cc:", hp->h_cc, fo, ff))\
757 if (hp->h_bcc != NULL && (w & GBCC)) {\
758 if (fmt("Bcc:", hp->h_bcc, fo, ff))\
766 struct name
*np
, *fromasender
= NULL
;
767 int stealthmua
, rv
= 1;
772 if ((addr
= ok_vlook(stealthmua
)) != NULL
)
773 stealthmua
= !strcmp(addr
, "noagent") ? -1 : 1;
777 nodisp
= (action
!= SEND_TODISP
);
778 ff
= (w
& (GCOMMA
| GFILES
)) | (nodisp
? FMT_DOMIME
: 0);
781 mkdate(fo
, "Date"), ++gotcha
;
783 struct name
*fromf
= NULL
, *senderf
= NULL
;
785 /* If -t parsed or composed From: then take it. With -t we otherwise
786 * want -r to be honoured in favour of *from* in order to have
787 * a behaviour that is compatible with what users would expect from e.g.
789 if ((fromf
= hp
->h_from
) != NULL
||
790 ((pstate
& PS_t_FLAG
) && (fromf
= option_r_arg
) != NULL
)) {
791 if (fmt("From:", fromf
, fo
, ff
))
794 } else if ((addr
= myaddrs(hp
)) != NULL
) {
795 if (_putname(addr
, w
, action
, &gotcha
, "From:", fo
, &fromf
,
802 if ((senderf
= hp
->h_sender
) != NULL
) {
803 if (fmt("Sender:", senderf
, fo
, ff
))
806 } else if ((addr
= ok_vlook(sender
)) != NULL
) {
807 if (_putname(addr
, w
, action
, &gotcha
, "Sender:", fo
, &senderf
,
812 hp
->h_sender
= senderf
;
814 if ((fromasender
= UNCONST(check_from_and_sender(fromf
,senderf
))) == NULL
)
816 /* Note that fromasender is (NULL,) 0x1 or real sender here */
818 if (((addr
= hp
->h_organization
) != NULL
||
819 (addr
= ok_vlook(ORGANIZATION
)) != NULL
) &&
820 (l
= strlen(addr
)) > 0) {
821 fwrite("Organization: ", sizeof(char), 14, fo
);
822 if (xmime_write(addr
, l
, fo
, (!nodisp
? CONV_NONE
: CONV_TOHDR
),
823 (!nodisp
? TD_ISPR
| TD_ICONV
: TD_ICONV
)) < 0)
830 if (hp
->h_to
!= NULL
&& w
& GTO
) {
831 if (fmt("To:", hp
->h_to
, fo
, ff
))
836 if (!ok_blook(bsdcompat
) && !ok_blook(bsdorder
))
839 if (hp
->h_subject
!= NULL
&& (w
& GSUBJECT
)) {
840 char *sub
= subject_re_trim(hp
->h_subject
);
841 size_t sublen
= strlen(sub
);
843 fwrite("Subject: ", sizeof(char), 9, fo
);
844 /* Trimmed something, (re-)add Re: */
845 if (sub
!= hp
->h_subject
) {
846 fwrite("Re: ", sizeof(char), 4, fo
); /* RFC mandates english "Re: " */
848 xmime_write(sub
, sublen
, fo
, (!nodisp
? CONV_NONE
: CONV_TOHDR
),
849 (!nodisp
? TD_ISPR
| TD_ICONV
: TD_ICONV
)) < 0)
852 /* This may be, e.g., a Fwd: XXX yes, unfortunately we do like that */
853 else if (*sub
!= '\0') {
854 if (xmime_write(sub
, sublen
, fo
, (!nodisp
? CONV_NONE
: CONV_TOHDR
),
855 (!nodisp
? TD_ISPR
| TD_ICONV
: TD_ICONV
)) < 0)
862 if (ok_blook(bsdcompat
) || ok_blook(bsdorder
))
865 if ((w
& GMSGID
) && stealthmua
<= 0 && (addr
= _message_id(hp
)) != NULL
) {
871 if ((np
= hp
->h_ref
) != NULL
&& (w
& GREF
)) {
872 if (fmt("References:", np
, fo
, 0))
874 if (hp
->h_in_reply_to
== NULL
&& np
->n_name
!= NULL
) {
875 while (np
->n_flink
!= NULL
)
877 if (!is_addr_invalid(np
, /* TODO check that on parser side! */
878 /*EACM_STRICT | TODO '/' valid!! */ EACM_NOLOG
| EACM_NONAME
)) {
879 fprintf(fo
, "In-Reply-To: <%s>\n", np
->n_name
);/*TODO RFC 5322 3.6.4*/
882 n_err(_("Invalid address in mail header: \"%s\"\n"), np
->n_name
);
887 if ((np
= hp
->h_in_reply_to
) != NULL
&& (w
& GREF
)) {
888 fprintf(fo
, "In-Reply-To: <%s>\n", np
->n_name
);/*TODO RFC 5322 3.6.4*/
893 /* Reply-To:. Be careful not to destroy a possible user input, duplicate
894 * the list first.. TODO it is a terrible codebase.. */
895 if ((np
= hp
->h_replyto
) != NULL
)
896 np
= namelist_dup(np
, np
->n_type
);
897 else if ((addr
= ok_vlook(replyto
)) != NULL
)
898 np
= lextract(addr
, GEXTRA
| GFULL
);
901 checkaddrs(usermap(np
, TRU1
), EACM_STRICT
| EACM_NOLOG
,
903 if (fmt("Reply-To:", np
, fo
, ff
))
909 if ((w
& GIDENT
) && gen_message
) {
910 /* Mail-Followup-To: TODO factor out this huge block of code */
911 /* Place ourselfs in there if any non-subscribed list is an addressee */
912 if ((hp
->h_flags
& HF_LIST_REPLY
) || hp
->h_mft
!= NULL
||
913 ok_blook(followup_to
)) {
914 enum {_ANYLIST
=1<<(HF__NEXT_SHIFT
+0), _HADMFT
=1<<(HF__NEXT_SHIFT
+1)};
916 ui32_t f
= hp
->h_flags
| (hp
->h_mft
!= NULL
? _HADMFT
: 0);
917 struct name
*mft
, *x
;
919 /* But for that, we have to remove all incarnations of ourselfs first.
920 * TODO It is total crap that we have delete_alternates(), is_myname()
921 * TODO or whatever; these work only with variables, not with data
922 * TODO that is _currently_ in some header fields!!! v15.0: complete
923 * TODO rewrite, object based, lazy evaluated, on-the-fly marked.
924 * TODO then this should be a really cheap thing in here... */
925 np
= elide(delete_alternates(cat(
926 namelist_dup(hp
->h_to
, GEXTRA
| GFULL
),
927 namelist_dup(hp
->h_cc
, GEXTRA
| GFULL
))));
928 addr
= hp
->h_list_post
;
930 for (mft
= NULL
; (x
= np
) != NULL
;) {
934 if ((ml
= is_mlist(x
->n_name
, FAL0
)) == MLIST_OTHER
&&
935 addr
!= NULL
&& !asccasecmp(addr
, x
->n_name
))
938 /* Any non-subscribed list? Add ourselves */
943 case MLIST_SUBSCRIBED
:
947 if (!(f
& HF_LIST_REPLY
)) {
949 if (!is_addr_invalid(x
,
950 EACM_STRICT
| EACM_NOLOG
| EACM_NONAME
)) {
953 } /* XXX write some warning? if verbose?? */
956 /* And if this is a reply that honoured a MFT: header then we'll
957 * also add all members of the original MFT: that are still
958 * addressed by us, regardless of all other circumstances */
959 else if (f
& _HADMFT
) {
961 for (ox
= hp
->h_mft
; ox
!= NULL
; ox
= ox
->n_flink
)
962 if (!asccasecmp(ox
->n_name
, x
->n_name
))
969 if (f
& (_ANYLIST
| _HADMFT
) && mft
!= NULL
) {
970 if (((f
& HF_MFT_SENDER
) ||
971 ((f
& (_ANYLIST
| _HADMFT
)) == _HADMFT
)) &&
972 (np
= fromasender
) != NULL
&& np
!= (struct name
*)0x1) {
973 np
= ndup(np
, (np
->n_type
& ~GMASK
) | GEXTRA
| GFULL
);
978 if (fmt("Mail-Followup-To:", mft
, fo
, ff
))
984 if (!_check_dispo_notif(fromasender
, hp
, fo
))
988 if ((w
& GUA
) && stealthmua
== 0)
989 fprintf(fo
, "User-Agent: %s %s\n", uagent
, ok_vlook(version
)), ++gotcha
;
991 /* We don't need MIME unless.. we need MIME?! */
992 if ((w
& GMIME
) && ((pstate
& PS_HEADER_NEEDED_MIME
) ||
993 hp
->h_attach
!= NULL
|| convert
!= CONV_7BIT
||
994 asccasecmp(charset
, "US-ASCII"))) {
996 fputs("MIME-Version: 1.0\n", fo
);
997 if (hp
->h_attach
!= NULL
) {
998 _sendout_boundary
= mime_param_boundary_create();/*TODO carrier*/
999 fprintf(fo
, "Content-Type: multipart/mixed;\n boundary=\"%s\"\n",
1002 if (_put_ct(fo
, contenttype
, charset
) < 0 || _put_cte(fo
, convert
) < 0)
1007 if (gotcha
&& (w
& GNL
))
1013 #undef FMT_CC_AND_BCC
1017 _check_dispo_notif(struct name
*mdn
, struct header
*hp
, FILE *fo
)
1023 /* TODO smtp_disposition_notification (RFC 3798): relation to return-path
1024 * TODO not yet checked */
1025 if (!ok_blook(disposition_notification_send
))
1028 if (mdn
!= NULL
&& mdn
!= (struct name
*)0x1)
1030 else if ((from
= myorigin(hp
)) == NULL
) {
1031 if (options
& OPT_D_V
)
1032 n_err(_("*disposition-notification-send*: no *from* set\n"));
1036 if (fmt("Disposition-Notification-To:", nalloc(UNCONST(from
), 0), fo
, 0))
1044 sendmail_internal(void *v
, int recipient_record
)
1051 memset(&head
, 0, sizeof head
);
1052 head
.h_to
= lextract(str
, GTO
| GFULL
);
1053 rv
= mail1(&head
, 0, NULL
, NULL
, recipient_record
, 0);
1058 static struct name
*
1059 _outof(struct name
*names
, FILE *fo
, bool_t
*senderror
)
1061 ui32_t pipecnt
, xcnt
, i
;
1065 FILE *fin
= NULL
, *fout
;
1068 /* Look through all recipients and do a quick return if no file or pipe
1069 * addressee is found */
1070 fda
= NULL
; /* Silence cc */
1071 for (pipecnt
= xcnt
= 0, np
= names
; np
!= NULL
; np
= np
->n_flink
) {
1072 if (np
->n_type
& GDEL
)
1074 switch (np
->n_flags
& NAME_ADDRSPEC_ISFILEORPIPE
) {
1075 case NAME_ADDRSPEC_ISFILE
:
1078 case NAME_ADDRSPEC_ISPIPE
:
1083 if (pipecnt
== 0 && xcnt
== 0)
1086 /* Otherwise create an array of file descriptors for each found pipe
1087 * addressee to get around the dup(2)-shared-file-offset problem, i.e.,
1088 * each pipe subprocess needs its very own file descriptor, and we need
1089 * to deal with that.
1090 * To make our life a bit easier let's just use the auto-reclaimed
1092 if (pipecnt
== 0 || (options
& OPT_DEBUG
)) {
1097 fda
= salloc(sizeof(int) * pipecnt
);
1098 for (i
= 0; i
< pipecnt
; ++i
)
1100 if ((sh
= ok_vlook(SHELL
)) == NULL
)
1104 for (np
= names
; np
!= NULL
; np
= np
->n_flink
) {
1105 if (!(np
->n_flags
& NAME_ADDRSPEC_ISFILEORPIPE
))
1108 /* In days of old we removed the entry from the the list; now for sake of
1109 * header expansion we leave it in and mark it as deleted */
1112 if (options
& OPT_DEBUG
) {
1113 n_err(_(">>> Would write message via \"%s\"\n"), np
->n_name
);
1116 if (options
& OPT_VERBVERB
)
1117 n_err(_(">>> Writing message via \"%s\"\n"), np
->n_name
);
1119 /* See if we have copied the complete message out yet. If not, do so */
1124 if ((fout
= Ftmp(&tempEdit
, "outof",
1125 OF_WRONLY
| OF_HOLDSIGS
| OF_REGISTER
, 0600)) == NULL
) {
1126 n_perr(_("Creation of temporary image"), 0);
1130 if ((image
= open(tempEdit
, O_RDWR
| _O_CLOEXEC
)) >= 0) {
1131 _CLOEXEC_SET(image
);
1132 for (i
= 0; i
< pipecnt
; ++i
) {
1133 int fd
= open(tempEdit
, O_RDONLY
| _O_CLOEXEC
);
1144 Ftmp_release(&tempEdit
);
1147 n_perr(_("Creating descriptor duplicate of temporary image"), 0);
1153 fprintf(fout
, "From %s %s", myname
, time_current
.tc_ctime
);
1155 while (i
= c
, (c
= getc(fo
)) != EOF
)
1163 n_perr(_("Finalizing write of temporary image"), 0);
1169 /* If we have to serve file addressees, open reader */
1170 if (xcnt
!= 0 && (fin
= Fdopen(image
, "r", FAL0
)) == NULL
) {
1171 n_perr(_("Failed to open a temporary image duplicate"), 0);
1179 /* From now on use xcnt as a counter for pipecnt */
1183 /* Now either copy "image" to the desired file or give it as the standard
1184 * input to the desired program as appropriate */
1185 if (np
->n_flags
& NAME_ADDRSPEC_ISPIPE
) {
1190 sigaddset(&nset
, SIGHUP
);
1191 sigaddset(&nset
, SIGINT
);
1192 sigaddset(&nset
, SIGQUIT
);
1193 pid
= start_command(sh
, &nset
, fda
[xcnt
++], -1, "-c",
1194 np
->n_name
+ 1, NULL
, NULL
);
1196 n_err(_("Piping message to \"%s\" failed\n"), np
->n_name
);
1203 char *fname
= file_expand(np
->n_name
);
1205 if (fname
== NULL
) {
1210 if ((fout
= Zopen(fname
, "a")) == NULL
) {
1211 n_err(_("Writing message to \"%s\" failed: %s\n"),
1212 fname
, strerror(errno
));
1217 while ((c
= getc(fin
)) != EOF
)
1220 n_err(_("Writing message to \"%s\" failed: %s\n"),
1221 fname
, _("write error"));
1235 for (i
= 0; i
< pipecnt
; ++i
)
1245 while (np
!= NULL
) {
1246 if (np
->n_flags
& NAME_ADDRSPEC_ISFILEORPIPE
)
1254 mightrecord(FILE *fp
, struct name
*to
)
1261 if (options
& OPT_DEBUG
)
1263 else if (to
!= NULL
) {
1264 cp
= savestr(skinned_name(to
));
1265 for (cq
= cp
; *cq
!= '\0' && *cq
!= '@'; ++cq
)
1269 cp
= ok_vlook(record
);
1272 if ((ep
= expand(cp
)) == NULL
) {
1277 if (*ep
!= '/' && *ep
!= '+' && ok_blook(outfolder
) &&
1278 which_protocol(ep
) == PROTO_FILE
) {
1279 size_t i
= strlen(cp
);
1280 cq
= salloc(i
+ 1 +1);
1282 memcpy(cq
+ 1, cp
, i
+1);
1284 if ((ep
= file_expand(cp
)) == NULL
) {
1290 if (__savemail(ep
, fp
) != 0) {
1292 n_err(_("Failed to save message in \"%s\" - message not sent\n"), ep
);
1293 exit_status
|= EXIT_ERR
;
1294 savedeadletter(fp
, 1);
1303 __savemail(char const *name
, FILE *fp
)
1307 size_t bufsize
, buflen
, cnt
;
1308 int prependnl
= 0, rv
= -1;
1312 buf
= smalloc(bufsize
= LINESIZE
);
1314 if ((fo
= Zopen(name
, "a+")) == NULL
) {
1315 if ((fo
= Zopen(name
, "wx")) == NULL
) {
1320 if (fseek(fo
, -2L, SEEK_END
) == 0) {
1321 switch (fread(buf
, sizeof *buf
, 2, fo
)) {
1323 if (buf
[1] != '\n') {
1345 fprintf(fo
, "From %s %s", myname
, time_current
.tc_ctime
);
1350 while (fgetline(&buf
, &bufsize
, &cnt
, &buflen
, fp
, 0) != NULL
) {
1351 #ifdef HAVE_DEBUG /* TODO assert legacy */
1352 assert(!is_head(buf
, buflen
, TRU1
));
1355 if (emptyline
&& is_head(buf
, buflen
, TRU1
))
1358 emptyline
= (buflen
> 0 && *buf
== '\n');
1359 fwrite(buf
, sizeof *buf
, buflen
, fo
);
1361 if (buflen
&& *(buf
+ buflen
- 1) != '\n')
1371 if (Fclose(fo
) != 0)
1381 _transfer(struct sendbundle
*sbp
)
1388 for (cnt
= 0, np
= sbp
->sb_to
; np
!= NULL
;) {
1389 char const k
[] = "smime-encrypt-";
1390 size_t nl
= strlen(np
->n_name
);
1391 char *cp
, *vs
= ac_alloc(sizeof(k
)-1 + nl
+1);
1392 memcpy(vs
, k
, sizeof(k
) -1);
1393 memcpy(vs
+ sizeof(k
) -1, np
->n_name
, nl
+1);
1395 if ((cp
= vok_vlook(vs
)) != NULL
) {
1399 if ((ef
= smime_encrypt(sbp
->sb_input
, cp
, np
->n_name
)) != NULL
) {
1400 FILE *fisave
= sbp
->sb_input
;
1401 struct name
*nsave
= sbp
->sb_to
;
1403 sbp
->sb_to
= ndup(np
, np
->n_type
& ~(GFULL
| GSKIN
));
1405 if (!__mta_start(sbp
))
1408 sbp
->sb_input
= fisave
;
1413 n_err(_("No SSL support compiled in\n"));
1416 n_err(_("Message not sent to \"%s\"\n"), np
->n_name
);
1417 _sendout_error
= TRU1
;
1421 rewind(sbp
->sb_input
);
1423 if (np
->n_flink
!= NULL
)
1424 np
->n_flink
->n_blink
= np
->n_blink
;
1425 if (np
->n_blink
!= NULL
)
1426 np
->n_blink
->n_flink
= np
->n_flink
;
1427 if (np
== sbp
->sb_to
)
1428 sbp
->sb_to
= np
->n_flink
;
1437 if (cnt
> 0 && (ok_blook(smime_force_encryption
) || !__mta_start(sbp
)))
1444 __mta_start(struct sendbundle
*sbp
)
1446 char const **args
= NULL
, *mta
, *smtp
;
1452 if ((smtp
= ok_vlook(smtp
)) == NULL
) {
1453 if ((mta
= ok_vlook(sendmail
)) != NULL
) {
1454 if ((mta
= file_expand(mta
)) == NULL
)
1459 args
= __mta_prepare_args(sbp
->sb_to
, sbp
->sb_hp
);
1460 if (options
& OPT_DEBUG
) {
1461 __mta_debug(sbp
, mta
, args
);
1466 UNINIT(mta
, NULL
); /* Silence cc */
1468 n_err(_("No SMTP support compiled in\n"));
1471 if (options
& OPT_DEBUG
) {
1472 (void)smtp_mta(sbp
);
1479 /* Fork, set up the temporary mail file as standard input for "mail", and
1480 * exec with the user list we generated far above */
1481 if ((pid
= fork_child()) == -1) {
1484 savedeadletter(sbp
->sb_input
, 0);
1485 _sendout_error
= TRU1
;
1490 sigaddset(&nset
, SIGHUP
);
1491 sigaddset(&nset
, SIGINT
);
1492 sigaddset(&nset
, SIGQUIT
);
1493 sigaddset(&nset
, SIGTSTP
);
1494 sigaddset(&nset
, SIGTTIN
);
1495 sigaddset(&nset
, SIGTTOU
);
1496 freopen("/dev/null", "r", stdin
);
1499 prepare_child(&nset
, 0, 1);
1507 prepare_child(&nset
, fileno(sbp
->sb_input
), -1);
1508 /* If *record* is set then savemail() will move the file position;
1509 * it'll call rewind(), but that may optimize away the systemcall if
1510 * possible, and since dup2() shares the position with the original FD
1511 * the MTA may end up reading nothing */
1512 lseek(0, 0, SEEK_SET
);
1513 execv(mta
, UNCONST(args
));
1515 smtp
= (e
!= ENOENT
) ? strerror(e
)
1516 : _("executable not found (adjust *sendmail* variable)");
1517 n_err(_("Cannot start \"%s\": %s\n"), mta
, smtp
);
1519 savedeadletter(sbp
->sb_input
, 1);
1520 n_err(_("... message not sent\n"));
1524 if ((options
& (OPT_DEBUG
| OPT_VERB
)) || ok_blook(sendwait
)) {
1525 if (wait_child(pid
, NULL
))
1528 _sendout_error
= TRU1
;
1538 static char const **
1539 __mta_prepare_args(struct name
*to
, struct header
*hp
)
1541 size_t vas_count
, i
, j
;
1547 if ((cp
= ok_vlook(sendmail_arguments
)) == NULL
) {
1551 /* Don't assume anything on the content but do allocate exactly j slots */
1553 vas
= ac_alloc(sizeof(*vas
) * j
);
1554 vas_count
= (size_t)getrawlist(cp
, j
, vas
, (int)j
, FAL0
);
1557 i
= 4 + smopts_count
+ vas_count
+ 4 + 1 + count(to
) + 1;
1558 args
= salloc(i
* sizeof(char*));
1560 if ((args
[0] = ok_vlook(sendmail_progname
)) == NULL
|| *args
[0] == '\0')
1561 args
[0] = SENDMAIL_PROGNAME
;
1563 if ((snda
= ok_blook(sendmail_no_default_arguments
)))
1568 if (ok_blook(metoo
))
1570 if (options
& OPT_VERB
)
1574 for (j
= 0; j
< smopts_count
; ++j
, ++i
)
1575 args
[i
] = smopts
[j
];
1577 for (j
= 0; j
< vas_count
; ++j
, ++i
)
1580 /* -r option? In conjunction with -t we act compatible to postfix(1) and
1581 * ignore it (it is -f / -F there) if the message specified From:/Sender:.
1582 * The interdependency with -t has been resolved in _puthead() */
1583 if (!snda
&& (options
& OPT_r_FLAG
)) {
1584 struct name
const *np
;
1586 if (hp
!= NULL
&& (np
= hp
->h_from
) != NULL
) {
1587 /* However, what wasn't resolved there was the case that the message
1588 * specified multiple From: addresses and a Sender: */
1589 if ((pstate
& PS_t_FLAG
) && hp
->h_sender
!= NULL
)
1592 if (np
->n_fullextra
!= NULL
) {
1594 args
[i
++] = np
->n_fullextra
;
1598 assert(option_r_arg
== NULL
);
1599 cp
= skin(myorigin(NULL
));
1608 /* Terminate option list to avoid false interpretation of system-wide
1609 * aliases that start with hyphen */
1612 /* Receivers follow */
1613 for (; to
!= NULL
; to
= to
->n_flink
)
1614 if (!(to
->n_type
& GDEL
))
1615 args
[i
++] = to
->n_name
;
1625 __mta_debug(struct sendbundle
*sbp
, char const *mta
, char const **args
)
1627 size_t cnt
, bufsize
;
1631 n_err(_(">>> MTA: \"%s\", arguments:"), mta
);
1632 for (; *args
!= NULL
; ++args
)
1633 n_err(" \"%s\"", *args
);
1636 fflush_rewind(sbp
->sb_input
);
1638 cnt
= fsize(sbp
->sb_input
);
1641 while (fgetline(&buf
, &bufsize
, &cnt
, NULL
, sbp
->sb_input
, 1) != NULL
)
1642 n_err(">>> %s", buf
);
1649 _message_id(struct header
*hp
)
1651 char *rv
= NULL
, sep
;
1657 if (hp
!= NULL
&& hp
->h_message_id
!= NULL
) {
1658 i
= strlen(hp
->h_message_id
->n_name
);
1659 rl
= sizeof("Message-ID: <>") -1;
1660 rv
= salloc(rl
+ i
+1);
1661 memcpy(rv
, "Message-ID: <", --rl
);
1662 memcpy(rv
+ rl
, hp
->h_message_id
->n_name
, i
);
1669 if (ok_blook(message_id_disable
))
1674 if ((h
= __sendout_ident
) != NULL
)
1676 if (ok_vlook(hostname
) != NULL
) {
1682 if (hp
!= NULL
&& (h
= skin(myorigin(hp
))) != NULL
&& strchr(h
, '@') != NULL
)
1688 tmp
= &time_current
.tc_gm
;
1689 i
= sizeof("Message-ID: <%04d%02d%02d%02d%02d%02d.%s%c%s>") -1 +
1692 snprintf(rv
, i
, "Message-ID: <%04d%02d%02d%02d%02d%02d.%s%c%s>",
1693 tmp
->tm_year
+ 1900, tmp
->tm_mon
+ 1, tmp
->tm_mday
,
1694 tmp
->tm_hour
, tmp
->tm_min
, tmp
->tm_sec
,
1695 getrandstring(rl
), sep
, h
);
1696 rv
[i
] = '\0'; /* Because we don't test snprintf(3) return */
1703 fmt(char const *str
, struct name
*np
, FILE *fo
, enum fmt_flags ff
)
1711 } m
= (ff
& GCOMMA
) ? m_COMMA
: 0;
1718 fwrite(str
, sizeof *str
, col
, fo
);
1720 #define _X(S) (col == sizeof(S) -1 && !asccasecmp(str, S))
1723 } else if (_X("reply-to:") || _X("mail-followup-to:") ||
1724 _X("references:") || _X("disposition-notification-to:"))
1725 m
|= m_NOPF
| m_NONAME
;
1726 else if (ok_blook(add_file_recipients
)) {
1728 } else if (_X("to:") || _X("cc:") || _X("bcc:") || _X("resent-to:"))
1733 for (; np
!= NULL
; np
= np
->n_flink
) {
1734 if (is_addr_invalid(np
,
1735 EACM_NOLOG
| (m
& m_NONAME
? EACM_NONAME
: EACM_NONE
)))
1737 /* File and pipe addresses only printed with set *add-file-recipients* */
1738 if ((m
& m_NOPF
) && is_fileorpipe_addr(np
))
1741 if ((m
& (m_INIT
| m_COMMA
)) == (m_INIT
| m_COMMA
)) {
1742 if (putc(',', fo
) == EOF
)
1748 len
= strlen(np
->n_fullname
);
1749 if (np
->n_flags
& GREF
)
1751 ++col
; /* The separating space */
1752 if ((m
& m_INIT
) && /*col > 1 &&*/ UICMP(z
, col
+ len
, >, 72)) {
1753 if (fputs("\n ", fo
) == EOF
)
1759 m
= (m
& ~m_CSEEN
) | m_INIT
;
1762 char *hb
= np
->n_fullname
;
1763 /* GREF needs to be placed in angle brackets, but which are missing */
1764 if (np
->n_type
& GREF
) {
1765 hb
= ac_alloc(len
+ 2 +1);
1769 memcpy(hb
+ 1, np
->n_fullname
, len
);
1772 len
= xmime_write(hb
, len
, fo
,
1773 ((ff
& FMT_DOMIME
) ? CONV_TOHDR_A
: CONV_NONE
), TD_ICONV
);
1774 if (np
->n_type
& GREF
)
1782 if (putc('\n', fo
) != EOF
)
1790 infix_resend(FILE *fi
, FILE *fo
, struct message
*mp
, struct name
*to
,
1793 size_t cnt
, c
, bufsize
= 0;
1796 struct name
*fromfield
= NULL
, *senderfield
= NULL
, *mdn
;
1802 /* Write the Resent-Fields */
1804 fputs("Resent-", fo
);
1806 if ((cp
= myaddrs(NULL
)) != NULL
) {
1807 if (_putname(cp
, GCOMMA
, SEND_MBOX
, NULL
, "Resent-From:", fo
,
1811 /* TODO RFC 5322: Resent-Sender SHOULD NOT be used if it's EQ -From: */
1812 if ((cp
= ok_vlook(sender
)) != NULL
) {
1813 if (_putname(cp
, GCOMMA
, SEND_MBOX
, NULL
, "Resent-Sender:", fo
,
1817 if (fmt("Resent-To:", to
, fo
, FMT_COMMA
))
1819 if (((cp
= ok_vlook(stealthmua
)) == NULL
|| !strcmp(cp
, "noagent")) &&
1820 (cp
= _message_id(NULL
)) != NULL
)
1821 fprintf(fo
, "Resent-%s\n", cp
);
1824 if ((mdn
= UNCONST(check_from_and_sender(fromfield
, senderfield
))) == NULL
)
1826 if (!_check_dispo_notif(mdn
, NULL
, fo
))
1829 /* Write the original headers */
1831 if (fgetline(&buf
, &bufsize
, &cnt
, &c
, fi
, 0) == NULL
)
1833 /* XXX more checks: The From_ line may be seen when resending */
1834 /* During headers is_head() is actually overkill, so ^From_ is sufficient
1835 * && !is_head(buf, c, TRU1) */
1836 if (ascncasecmp("status:", buf
, 7) && strncmp("From ", buf
, 5) &&
1837 ascncasecmp("disposition-notification-to:", buf
, 28))
1838 fwrite(buf
, sizeof *buf
, c
, fo
);
1839 if (cnt
> 0 && *buf
== '\n')
1843 /* Write the message body */
1845 if (fgetline(&buf
, &bufsize
, &cnt
, &c
, fi
, 0) == NULL
)
1847 if (cnt
== 0 && *buf
== '\n')
1849 fwrite(buf
, sizeof *buf
, c
, fo
);
1854 n_perr(_("temporary mail file"), 0);
1864 mail(struct name
*to
, struct name
*cc
, struct name
*bcc
, char *subject
,
1865 struct attachment
*attach
, char *quotefile
, int recipient_record
)
1871 memset(&head
, 0, sizeof head
);
1873 /* The given subject may be in RFC1522 format. */
1874 if (subject
!= NULL
) {
1876 in
.l
= strlen(subject
);
1877 mime_fromhdr(&in
, &out
, /* TODO ??? TD_ISPR |*/ TD_ICONV
);
1878 head
.h_subject
= out
.s
;
1883 head
.h_attach
= attach
;
1885 mail1(&head
, 0, NULL
, quotefile
, recipient_record
, 0);
1887 if (subject
!= NULL
)
1899 rv
= sendmail_internal(v
, 0);
1910 rv
= sendmail_internal(v
, 1);
1916 mail1(struct header
*hp
, int printheaders
, struct message
*quote
,
1917 char *quotefile
, int recipient_record
, int doprefix
)
1919 struct sendbundle sb
;
1924 enum okay rv
= STOP
;
1927 _sendout_error
= FAL0
;
1928 __sendout_ident
= NULL
;
1930 /* Update some globals we likely need first */
1931 time_current_update(&time_current
, TRU1
);
1934 if ((cp
= ok_vlook(autocc
)) != NULL
&& *cp
!= '\0')
1935 hp
->h_cc
= cat(hp
->h_cc
, checkaddrs(lextract(cp
, GCC
| GFULL
),
1936 EACM_NORMAL
, &_sendout_error
));
1937 if ((cp
= ok_vlook(autobcc
)) != NULL
&& *cp
!= '\0')
1938 hp
->h_bcc
= cat(hp
->h_bcc
, checkaddrs(lextract(cp
, GBCC
| GFULL
),
1939 EACM_NORMAL
, &_sendout_error
));
1941 if (_sendout_error
< 0) {
1942 n_err(_("Some addressees in *autocc* or *autobcc* were "
1943 "classified as \"hard error\"\n"));
1947 /* Collect user's mail from standard input. Get the result as mtf */
1948 mtf
= collect(hp
, printheaders
, quote
, quotefile
, doprefix
, &_sendout_error
);
1954 if (options
& OPT_INTERACTIVE
) {
1957 if ((eot
= (ok_blook(bsdcompat
) || ok_blook(askatend
)))) {
1958 if (hp
->h_cc
== NULL
&& ok_blook(askcc
))
1959 eot
= FAL0
, grab_headers(hp
, GCC
, 1);
1960 if (hp
->h_bcc
== NULL
&& ok_blook(askbcc
))
1961 eot
= FAL0
, grab_headers(hp
, GBCC
, 1);
1964 if (hp
->h_attach
== NULL
&& ok_blook(askattach
))
1965 eot
= FAL0
, edit_attachments(&hp
->h_attach
);
1967 if (ok_blook(asksign
))
1968 eot
= FAL0
, dosign
= getapproval(_("Sign this message (y/n)? "), TRU1
);
1976 if (fsize(mtf
) == 0) {
1977 if (options
& OPT_E_FLAG
)
1979 if (hp
->h_subject
== NULL
)
1980 printf(_("No message, no subject; hope that's ok\n"));
1981 else if (ok_blook(bsdcompat
) || ok_blook(bsdmsgs
))
1982 printf(_("Null message body; hope that's ok\n"));
1985 if (dosign
== TRUM1
)
1986 dosign
= ok_blook(smime_sign
); /* TODO USER@HOST <-> *from* +++!!! */
1989 n_err(_("No SSL support compiled in\n"));
1994 /* XXX Update time_current again; once collect() offers editing of more
1995 * XXX headers, including Date:, this must only happen if Date: is the
1996 * XXX same that it was before collect() (e.g., postponing etc.).
1997 * XXX But *do* update otherwise because the mail seems to be backdated
1998 * XXX if the user edited some time, which looks odd and it happened
1999 * XXX to me that i got mis-dated response mails due to that... */
2000 time_current_update(&time_current
, TRU1
);
2002 /* TODO hrmpf; the MIME/send layer rewrite MUST address the init crap:
2003 * TODO setup the header ONCE; note this affects edit.c, collect.c ...,
2004 * TODO but: offer a hook that rebuilds/expands/checks/fixates all
2005 * TODO header fields ONCE, call that ONCE after user editing etc. has
2006 * TODO completed (one edit cycle) */
2008 /* Take the user names from the combined to and cc lists and do all the
2009 * alias processing. The POSIX standard says:
2010 * The names shall be substituted when alias is used as a recipient
2011 * address specified by the user in an outgoing message (that is,
2012 * other recipients addressed indirectly through the reply command
2013 * shall not be substituted in this manner).
2014 * S-nail thus violates POSIX, as has been pointed out correctly by
2015 * Martin Neitzel, but logic and usability of POSIX standards is not seldom
2016 * disputable anyway. Go for user friendliness */
2018 to
= namelist_vaporise_head(hp
,
2020 (!(expandaddr_to_eaf() & EAF_NAME
) ? EACM_NONAME
: EACM_NONE
)),
2021 TRU1
, &_sendout_error
);
2023 n_err(_("No recipients specified\n"));
2026 if (_sendout_error
< 0) {
2027 n_err(_("Some addressees were classified as \"hard error\"\n"));
2032 memset(&sb
, 0, sizeof sb
);
2036 if ((dosign
|| count_nonlocal(to
) > 0) &&
2037 !_sendbundle_setup_creds(&sb
, (dosign
> 0)))
2038 /* TODO saving $DEAD and recovering etc is not yet well defined */
2041 /* 'Bit ugly kind of control flow until we find a charset that does it */
2042 for (charset_iter_reset(hp
->h_charset
);; charset_iter_next()) {
2045 if (!charset_iter_is_valid())
2047 else if ((nmtf
= infix(hp
, mtf
)) != NULL
)
2049 else if ((err
= errno
) == EILSEQ
|| err
== EINVAL
) {
2054 n_perr(_("Failed to create encoded message"), 0);
2062 if ((nmtf
= smime_sign(mtf
, sb
.sb_signer
.s
)) == NULL
)
2069 /* TODO truly - i still don't get what follows: (1) we deliver file
2070 * TODO and pipe addressees, (2) we mightrecord() and (3) we transfer
2071 * TODO even if (1) savedeadletter() etc. To me this doesn't make sense? */
2073 /* Deliver pipe and file addressees */
2074 to
= _outof(to
, mtf
, &_sendout_error
);
2076 savedeadletter(mtf
, FAL0
);
2078 to
= elide(to
); /* XXX needed only to drop GDELs due to _outof()! */
2080 { ui32_t cnt
= count(to
);
2081 if ((!recipient_record
|| cnt
> 0) &&
2082 !mightrecord(mtf
, (recipient_record
? to
: NULL
)))
2090 } else if (!_sendout_error
)
2097 exit_status
|= EXIT_SEND_ERROR
;
2102 _sendout_error
= TRU1
;
2103 savedeadletter(mtf
, TRU1
);
2104 n_err(_("... message not sent\n"));
2109 mkdate(FILE *fo
, char const *field
)
2111 struct tm tmpgm
, *tmptr
;
2112 int tzdiff
, tzdiff_hour
, tzdiff_min
, rv
;
2115 memcpy(&tmpgm
, &time_current
.tc_gm
, sizeof tmpgm
);
2116 tzdiff
= time_current
.tc_time
- mktime(&tmpgm
);
2117 tzdiff_hour
= (int)(tzdiff
/ 60);
2118 tzdiff_min
= tzdiff_hour
% 60;
2120 tmptr
= &time_current
.tc_local
;
2121 if (tmptr
->tm_isdst
> 0)
2123 rv
= fprintf(fo
, "%s: %s, %02d %s %04d %02d:%02d:%02d %+05d\n",
2125 weekday_names
[tmptr
->tm_wday
],
2126 tmptr
->tm_mday
, month_names
[tmptr
->tm_mon
],
2127 tmptr
->tm_year
+ 1900, tmptr
->tm_hour
,
2128 tmptr
->tm_min
, tmptr
->tm_sec
,
2129 tzdiff_hour
* 100 + tzdiff_min
);
2135 puthead(struct header
*hp
, FILE *fo
, enum gfield w
, enum sendaction action
,
2136 enum conversion convert
, char const *contenttype
, char const *charset
)
2141 rv
= _puthead(FAL0
, hp
, fo
, w
, action
, convert
, contenttype
, charset
);
2147 resend_msg(struct message
*mp
, struct name
*to
, int add_resent
) /* TODO check */
2149 struct sendbundle sb
;
2150 FILE *ibuf
, *nfo
, *nfi
;
2152 enum okay rv
= STOP
;
2155 _sendout_error
= FAL0
;
2156 __sendout_ident
= NULL
;
2158 /* Update some globals we likely need first */
2159 time_current_update(&time_current
, TRU1
);
2161 if ((to
= checkaddrs(to
,
2163 (!(expandaddr_to_eaf() & EAF_NAME
) ? EACM_NONAME
: EACM_NONE
)),
2164 &_sendout_error
)) == NULL
)
2166 /* For the _sendout_error<0 case we want to wait until we can write DEAD! */
2167 if (_sendout_error
< 0)
2168 n_err(_("Some addressees were classified as \"hard error\"\n"));
2170 if ((nfo
= Ftmp(&tempMail
, "resend", OF_WRONLY
| OF_HOLDSIGS
| OF_REGISTER
,
2172 _sendout_error
= TRU1
;
2173 n_perr(_("temporary mail file"), 0);
2176 if ((nfi
= Fopen(tempMail
, "r")) == NULL
)
2177 n_perr(tempMail
, 0);
2178 Ftmp_release(&tempMail
);
2182 if ((ibuf
= setinput(&mb
, mp
, NEED_BODY
)) == NULL
)
2185 memset(&sb
, 0, sizeof sb
);
2188 if (count_nonlocal(to
) > 0 && !_sendbundle_setup_creds(&sb
, FAL0
))
2189 /* ..wait until we can write DEAD */
2190 _sendout_error
= -1;
2192 if (infix_resend(ibuf
, nfo
, mp
, to
, add_resent
) != 0) {
2194 savedeadletter(nfi
, TRU1
);
2195 n_err(_("... message not sent\n"));
2200 _sendout_error
= TRU1
;
2204 if (_sendout_error
< 0)
2210 to
= _outof(to
, nfi
, &_sendout_error
);
2213 savedeadletter(nfi
, FAL0
);
2215 if (count(to
= elide(to
)) != 0) {
2216 if (!ok_blook(record_resent
) || mightrecord(nfi
, NULL
)) {
2218 /*sb.sb_input = nfi;*/
2222 } else if (!_sendout_error
)
2228 exit_status
|= EXIT_SEND_ERROR
;
2233 #undef SEND_LINESIZE