1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ Routines for processing and detecting headlines.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2013 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. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by the University of
22 * California, Berkeley and its contributors.
23 * 4. Neither the name of the University nor the names of its contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
27 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
44 # include <stringprep.h>
48 size_t tlen
; /* Length of .tdata */
49 char const *tdata
; /* Template date - see _cmatch_data[] */
53 * Template characters for cmatch_data.tdata:
54 * 'A' An upper case char
55 * 'a' A lower case char
58 * 'O' An optional digit or space
60 * '+' Either a plus or a minus sign
62 static struct cmatch_data
const _cmatch_data
[] = {
63 { 24, "Aaa Aaa O0 00:00:00 0000" }, /* BSD/ISO C90 ctime */
64 { 28, "Aaa Aaa O0 00:00:00 AAA 0000" }, /* BSD tmz */
65 { 21, "Aaa Aaa O0 00:00 0000" }, /* SysV ctime */
66 { 25, "Aaa Aaa O0 00:00 AAA 0000" }, /* SysV tmz */
68 * RFC 822-alike From_ lines do not conform to RFC 4155, but seem to
69 * be used in the wild by UW-imap
71 { 30, "Aaa Aaa O0 00:00:00 0000 +0000" },
72 /* RFC 822 with zone spec; 1. military, 2. UT, 3. north america time
73 * zone strings; note that 1. is strictly speaking not correct as some
74 * letters are not used, and 2. is not because only "UT" is defined */
75 #define __reuse "Aaa Aaa O0 00:00:00 0000 AAA"
76 { 28 - 2, __reuse
}, { 28 - 1, __reuse
}, { 28 - 0, __reuse
},
79 #define _DATE_MINLEN 21
81 /* Skip over "word" as found in From_ line */
82 static char const * _from__skipword(char const *wp
);
84 /* Match the date string against the date template (tp), return if match.
85 * See _cmatch_data[] for template character description */
86 static int _cmatch(size_t len
, char const *date
, char const *tp
);
88 /* Check wether date is a valid 'From_' date.
89 * (Rather ctime(3) generated dates, according to RFC 4155) */
90 static int _is_date(char const *date
);
92 /* Convert the domain part of a skinned address to IDNA.
93 * If an error occurs before Unicode information is available, revert the IDNA
94 * error to a normal CHAR one so that the error message doesn't talk Unicode */
96 static struct addrguts
* _idna_apply(struct addrguts
*agp
);
99 /* Classify and check a (possibly skinned) header body according to RFC
100 * *addr-spec* rules; if it (is assumed to has been) skinned it may however be
101 * also a file or a pipe command, so check that first, then.
102 * Otherwise perform content checking and isolate the domain part (for IDNA) */
103 static int _addrspec_check(int doskin
, struct addrguts
*agp
);
105 static int gethfield(FILE *f
, char **linebuf
, size_t *linesize
, int rem
,
107 static int msgidnextc(const char **cp
, int *status
);
108 static int charcount(char *str
, int c
);
111 _from__skipword(char const *wp
)
116 while ((c
= *wp
++) != '\0' && ! blankchar(c
)) {
118 while ((c
= *wp
++) != '\0' && c
!= '"')
124 for (; blankchar(c
); c
= *wp
++)
127 return (c
== 0 ? NULL
: wp
- 1);
131 _cmatch(size_t len
, char const *date
, char const *tp
)
155 if (c
!= ' ' && ! digitchar(c
))
163 if (c
!= '+' && c
!= '-')
174 _is_date(char const *date
)
176 struct cmatch_data
const *cmdp
;
177 size_t dl
= strlen(date
);
180 if (dl
>= _DATE_MINLEN
)
181 for (cmdp
= _cmatch_data
; cmdp
->tdata
!= NULL
; ++cmdp
)
182 if (dl
== cmdp
->tlen
&&
183 (ret
= _cmatch(dl
, date
, cmdp
->tdata
)))
189 static struct addrguts
*
190 _idna_apply(struct addrguts
*agp
)
192 char *idna_utf8
, *idna_ascii
, *cs
;
194 int strict
= (value("idna-strict-checks") != NULL
);
196 sz
= agp
->ag_slen
- agp
->ag_sdom_start
;
198 idna_utf8
= ac_alloc(sz
+ 1);
199 memcpy(idna_utf8
, agp
->ag_skinned
+ agp
->ag_sdom_start
, sz
);
200 idna_utf8
[sz
] = '\0';
202 /* GNU Libidn settles on top of iconv(3) without having any fallback,
203 * so let's just let it perform the charset conversion, if any should
206 char const *tcs
= charset_get_lc();
207 idna_ascii
= idna_utf8
;
208 idna_utf8
= stringprep_convert(idna_ascii
, "UTF-8", tcs
);
209 i
= (idna_utf8
== NULL
&& errno
== EINVAL
);
211 if (idna_utf8
== NULL
) {
213 fprintf(stderr
, tr(179,
214 "Cannot convert from %s to %s\n"),
216 agp
->ag_n_flags
^= NAME_ADDRSPEC_ERR_IDNA
|
217 NAME_ADDRSPEC_ERR_CHAR
;
222 if (idna_to_ascii_8z(idna_utf8
, &idna_ascii
,
223 strict
? IDNA_USE_STD3_ASCII_RULES
: 0)
225 agp
->ag_n_flags
^= NAME_ADDRSPEC_ERR_IDNA
|
226 NAME_ADDRSPEC_ERR_CHAR
;
230 /* Replace the domain part of .ag_skinned with IDNA version */
231 sz
= strlen(idna_ascii
);
232 i
= agp
->ag_sdom_start
;
233 cs
= salloc(agp
->ag_slen
- i
+ sz
+ 1);
234 memcpy(cs
, agp
->ag_skinned
, i
);
235 memcpy(cs
+ i
, idna_ascii
, sz
);
239 agp
->ag_skinned
= cs
;
241 NAME_ADDRSPEC_ERR_SET(agp
->ag_n_flags
,
242 NAME_NAME_SALLOC
|NAME_SKINNED
|NAME_IDNA
, 0);
256 _addrspec_check(int skinned
, struct addrguts
*agp
)
258 char *addr
, *p
, in_quote
, in_domain
, hadat
;
259 union {char c
; unsigned char u
;} c
;
261 uc_it use_idna
= ! boption("idna-disable");
264 agp
->ag_n_flags
|= NAME_ADDRSPEC_CHECKED
;
265 addr
= agp
->ag_skinned
;
267 if (agp
->ag_iaddr_aend
- agp
->ag_iaddr_start
== 0) {
268 NAME_ADDRSPEC_ERR_SET(agp
->ag_n_flags
, NAME_ADDRSPEC_ERR_EMPTY
,
273 /* If the field is not a recipient, it cannot be a file or a pipe */
278 * Excerpt from nail.1:
280 * Recipient address specifications
281 * The rules are: Any name which starts with a `|' character specifies
282 * a pipe, the command string following the `|' is executed and
283 * the message is sent to its standard input; any other name which
284 * contains a `@' character is treated as a mail address; any other
285 * name which starts with a `+' character specifies a folder name; any
286 * other name which contains a `/' character but no `!' or `%'
287 * character before also specifies a folder name; what remains is
288 * treated as a mail address.
291 agp
->ag_n_flags
|= NAME_ADDRSPEC_ISPIPE
;
294 if (memchr(addr
, '@', agp
->ag_slen
) == NULL
) {
297 for (p
= addr
; (c
.c
= *p
); ++p
) {
298 if (c
.c
== '!' || c
.c
== '%')
301 jisfile
: agp
->ag_n_flags
|= NAME_ADDRSPEC_ISFILE
;
308 in_quote
= in_domain
= hadat
= 0;
310 for (p
= addr
; (c
.c
= *p
++) != '\0';) {
312 in_quote
= ! in_quote
;
313 } else if (c
.u
< 040 || c
.u
>= 0177) {
315 if (in_domain
&& use_idna
) {
317 NAME_ADDRSPEC_ERR_SET(agp
->ag_n_flags
,
318 NAME_ADDRSPEC_ERR_IDNA
, c
.u
);
323 } else if (in_domain
== 2) {
324 if ((c
.c
== ']' && *p
!= '\0') || c
.c
== '\\' ||
327 } else if (in_quote
&& in_domain
== 0) {
329 } else if (c
.c
== '\\' && *p
!= '\0') {
331 } else if (c
.c
== '@') {
333 NAME_ADDRSPEC_ERR_SET(agp
->ag_n_flags
,
334 NAME_ADDRSPEC_ERR_ATSEQ
, c
.u
);
337 agp
->ag_sdom_start
= (size_t)(p
- addr
);
338 in_domain
= (*p
== '[') ? 2 : 1;
340 } else if (c
.c
== '(' || c
.c
== ')' ||
341 c
.c
== '<' || c
.c
== '>' ||
342 c
.c
== ',' || c
.c
== ';' || c
.c
== ':' ||
343 c
.c
== '\\' || c
.c
== '[' || c
.c
== ']')
349 NAME_ADDRSPEC_ERR_SET(agp
->ag_n_flags
, NAME_ADDRSPEC_ERR_CHAR
,
356 agp
= _idna_apply(agp
);
360 return ((agp
->ag_n_flags
& NAME_ADDRSPEC_INVALID
) != 0);
364 myaddrs(struct header
*hp
)
368 char const *ret
= NULL
;
370 if (hp
!= NULL
&& (np
= hp
->h_from
) != NULL
) {
371 if ((ret
= np
->n_fullname
) != NULL
)
373 if ((ret
= np
->n_name
) != NULL
)
376 if ((ret
= value("from")) != NULL
)
379 * When invoking sendmail directly, it's its task
380 * to generate an otherwise undeterminable From: address.
382 if (value("smtp") == NULL
)
384 if ((ret
= addr
) == NULL
) {
385 char *hn
= nodename(1);
386 size_t sz
= strlen(myname
) + strlen(hn
) + 2;
387 ret
= addr
= smalloc(sz
);
388 snprintf(addr
, sz
, "%s@%s", myname
, hn
);
395 myorigin(struct header
*hp
)
397 char const *ret
= NULL
, *ccp
;
400 if ((ccp
= myaddrs(hp
)) != NULL
&&
401 (np
= lextract(ccp
, GEXTRA
|GFULL
)) != NULL
)
402 ret
= np
->n_flink
!= NULL
? value("sender") : ccp
;
407 is_head(char const *linebuf
, size_t linelen
) /* XXX verbose WARN */
409 char date
[FROM_DATEBUF
];
411 return ((linelen
<= 5 || memcmp(linebuf
, "From ", 5) != 0 ||
412 ! extract_date_from_from_(linebuf
, linelen
, date
) ||
413 ! _is_date(date
)) ? 0 : 1);
417 extract_date_from_from_(char const *line
, size_t linelen
,
418 char datebuf
[FROM_DATEBUF
])
421 char const *cp
= line
;
424 cp
= _from__skipword(cp
);
428 cp
= _from__skipword(cp
);
431 if (cp
[0] == 't' && cp
[1] == 't' && cp
[2] == 'y') {
432 cp
= _from__skipword(cp
);
437 linelen
-= (size_t)(cp
- line
);
438 if (linelen
< _DATE_MINLEN
)
440 if (cp
[linelen
- 1] == '\n') {
442 /* (Rather IMAP/POP3 only) */
443 if (cp
[linelen
- 1] == '\r')
445 if (linelen
< _DATE_MINLEN
)
448 if (linelen
>= FROM_DATEBUF
)
452 jleave
: memcpy(datebuf
, cp
, linelen
);
453 datebuf
[linelen
] = '\0';
456 jerr
: cp
= tr(213, "<Unknown date>");
457 linelen
= strlen(cp
);
458 if (linelen
>= FROM_DATEBUF
)
459 linelen
= FROM_DATEBUF
;
464 extract_header(FILE *fp
, struct header
*hp
) /* XXX no header occur-cnt check */
466 struct header nh
, *hq
= &nh
;
467 char *linebuf
= NULL
, *colon
;
469 int seenfields
= 0, lc
, c
;
470 char const *val
, *cp
;
472 memset(hq
, 0, sizeof *hq
);
473 for (lc
= 0; readline_restart(fp
, &linebuf
, &linesize
, 0) > 0; lc
++)
476 while ((lc
= gethfield(fp
, &linebuf
, &linesize
, lc
, &colon
)) >= 0) {
477 if ((val
= thisfield(linebuf
, "to")) != NULL
) {
479 hq
->h_to
= cat(hq
->h_to
, checkaddrs(
480 lextract(val
, GTO
|GFULL
)));
481 } else if ((val
= thisfield(linebuf
, "cc")) != NULL
) {
483 hq
->h_cc
= cat(hq
->h_cc
, checkaddrs(
484 lextract(val
, GCC
|GFULL
)));
485 } else if ((val
= thisfield(linebuf
, "bcc")) != NULL
) {
487 hq
->h_bcc
= cat(hq
->h_bcc
, checkaddrs(
488 lextract(val
, GBCC
|GFULL
)));
489 } else if ((val
= thisfield(linebuf
, "from")) != NULL
) {
491 hq
->h_from
= cat(hq
->h_from
, checkaddrs(
492 lextract(val
, GEXTRA
|GFULL
)));
493 } else if ((val
= thisfield(linebuf
, "reply-to")) != NULL
) {
495 hq
->h_replyto
= cat(hq
->h_replyto
, checkaddrs(
496 lextract(val
, GEXTRA
|GFULL
)));
497 } else if ((val
= thisfield(linebuf
, "sender")) != NULL
) {
499 hq
->h_sender
= cat(hq
->h_sender
, checkaddrs(
500 lextract(val
, GEXTRA
|GFULL
)));
501 } else if ((val
= thisfield(linebuf
,
502 "organization")) != NULL
) {
504 for (cp
= val
; blankchar(*cp
); cp
++)
506 hq
->h_organization
= hq
->h_organization
?
507 save2str(hq
->h_organization
, cp
) :
509 } else if ((val
= thisfield(linebuf
, "subject")) != NULL
||
510 (val
= thisfield(linebuf
, "subj")) != NULL
) {
512 for (cp
= val
; blankchar(*cp
); cp
++)
514 hq
->h_subject
= hq
->h_subject
?
515 save2str(hq
->h_subject
, cp
) :
518 fprintf(stderr
, tr(266,
519 "Ignoring header field \"%s\"\n"),
523 * In case the blank line after the header has been edited out.
524 * Otherwise, fetch the header separator.
527 if (linebuf
[0] != '\0') {
528 for (cp
= linebuf
; *(++cp
) != '\0'; );
529 fseek(fp
, (long)-(1 + cp
- linebuf
), SEEK_CUR
);
531 if ((c
= getc(fp
)) != '\n' && c
!= EOF
)
538 hp
->h_bcc
= hq
->h_bcc
;
539 hp
->h_from
= hq
->h_from
;
540 hp
->h_replyto
= hq
->h_replyto
;
541 hp
->h_sender
= hq
->h_sender
;
542 hp
->h_organization
= hq
->h_organization
;
543 hp
->h_subject
= hq
->h_subject
;
545 fprintf(stderr
, tr(267, "Restoring deleted header lines\n"));
551 * Return the desired header line from the passed message
552 * pointer (or NULL if the desired header field is not available).
553 * If mult is zero, return the content of the first matching header
554 * field only, the content of all matching header fields else.
557 hfield_mult(char const *field
, struct message
*mp
, int mult
)
562 char *linebuf
= NULL
, *colon
, *oldhfield
= NULL
;
565 if ((ibuf
= setinput(&mb
, mp
, NEED_HEADER
)) == NULL
)
567 if ((lc
= mp
->m_lines
- 1) < 0)
570 if ((mp
->m_flag
& MNOFROM
) == 0 &&
571 readline_restart(ibuf
, &linebuf
, &linesize
, 0) < 0)
574 if ((lc
= gethfield(ibuf
, &linebuf
, &linesize
, lc
, &colon
)) < 0)
576 if ((hfield
= thisfield(linebuf
, field
)) != NULL
) {
577 oldhfield
= save2str(hfield
, oldhfield
);
590 * Return the next header field found in the given message.
591 * Return >= 0 if something found, < 0 elsewise.
592 * "colon" is set to point to the colon in the header.
593 * Must deal with \ continuations & other such fraud.
596 gethfield(FILE *f
, char **linebuf
, size_t *linesize
, int rem
, char **colon
)
599 size_t line2size
= 0;
603 if (*linebuf
== NULL
)
604 *linebuf
= srealloc(*linebuf
, *linesize
= 1);
609 if ((c
= readline_restart(f
, linebuf
, linesize
, 0)) <= 0)
611 for (cp
= *linebuf
; fieldnamechar(*cp
& 0377); cp
++);
613 while (blankchar(*cp
& 0377))
615 if (*cp
!= ':' || cp
== *linebuf
)
618 * I guess we got a headline.
619 * Handle wraparounding
625 while (--cp
>= *linebuf
&& blankchar(*cp
& 0377));
629 if (cp
-8 >= *linebuf
&& cp
[-1] == '=' && cp
[-2] == '?')
631 ungetc(c
= getc(f
), f
);
634 c
= readline_restart(f
, &line2
, &line2size
, 0);
638 for (cp2
= line2
; blankchar(*cp2
& 0377); cp2
++);
640 if (cp2
[0] == '=' && cp2
[1] == '?' && c
> 8)
642 if (cp
+ c
>= *linebuf
+ *linesize
- 2) {
643 size_t diff
= cp
- *linebuf
;
644 size_t colondiff
= *colon
- *linebuf
;
645 *linebuf
= srealloc(*linebuf
,
647 cp
= &(*linebuf
)[diff
];
648 *colon
= &(*linebuf
)[colondiff
];
664 * Check whether the passed line is a header line of
665 * the desired breed. Return the field body, or 0.
668 thisfield(char const *linebuf
, char const *field
)
670 while (lowerconv(*linebuf
) == lowerconv(*field
)) {
676 while (blankchar(*linebuf
))
678 if (*linebuf
++ != ':')
680 while (blankchar(*linebuf
))
686 * Get sender's name from this message. If the message has
687 * a bunch of arpanet stuff in it, we may have to skin the name
688 * before returning it.
691 nameof(struct message
*mp
, int reptype
)
695 cp
= skin(name1(mp
, reptype
));
696 if (reptype
!= 0 || charcount(cp
, '!') < 2)
698 cp2
= strrchr(cp
, '!');
700 while (cp2
> cp
&& *cp2
!= '!')
708 * Start of a "comment".
712 skip_comment(char const *cp
)
716 for (; nesting
> 0 && *cp
; cp
++) {
734 * Return the start of a route-addr (address in angle brackets),
738 routeaddr(char const *name
)
740 char const *np
, *rp
= NULL
;
742 for (np
= name
; *np
; np
++) {
745 np
= skip_comment(&np
[1]) - 1;
751 if (*np
== '\\' && np
[1])
766 * Check if a name's address part contains invalid characters.
769 is_addr_invalid(struct name
*np
, int putmsg
)
771 char cbuf
[sizeof "'\\U12340'"], *name
= np
->n_name
;
772 int f
= np
->n_flags
, ok8bit
= 1;
774 char const *fmt
= "'\\x%02X'", *cs
;
776 if ((f
& NAME_ADDRSPEC_INVALID
) == 0 || ! putmsg
||
777 (f
& NAME_ADDRSPEC_ERR_EMPTY
) != 0)
780 if (f
& NAME_ADDRSPEC_ERR_IDNA
)
781 cs
= tr(284, "Invalid domain name: \"%s\", character %s\n"),
784 else if (f
& NAME_ADDRSPEC_ERR_ATSEQ
)
785 cs
= tr(142, "\"%s\" contains invalid %s sequence\n");
787 cs
= tr(143, "\"%s\" contains invalid character %s\n");
789 c
= NAME_ADDRSPEC_ERR_GETWC(f
);
790 if (ok8bit
&& c
>= 040 && c
<= 0177)
791 snprintf(cbuf
, sizeof cbuf
, "'%c'", c
);
793 snprintf(cbuf
, sizeof cbuf
, fmt
, c
);
795 fprintf(stderr
, cs
, name
, cbuf
);
797 return ((f
& NAME_ADDRSPEC_INVALID
) != 0);
801 skin(char const *name
)
807 (void)addrspec_with_guts(1, name
, &ag
);
809 if ((ag
.ag_n_flags
& NAME_NAME_SALLOC
) == 0)
810 ret
= savestrbuf(ret
, ag
.ag_slen
);
815 /* TODO addrspec_with_guts: RFC 5322 */
817 addrspec_with_guts(int doskin
, char const *name
, struct addrguts
*agp
)
820 char *cp2
, *bufend
, *nbuf
, c
;
821 char gotlt
, gotaddr
, lastsp
;
823 memset(agp
, 0, sizeof *agp
);
825 if ((agp
->ag_input
= name
) == NULL
|| /* XXX ever? */
826 (agp
->ag_ilen
= strlen(name
)) == 0) {
827 agp
->ag_skinned
= UNCONST(""); /* ok: NAME_SALLOC is not set */
829 agp
->ag_n_flags
|= NAME_ADDRSPEC_CHECKED
;
830 NAME_ADDRSPEC_ERR_SET(agp
->ag_n_flags
, NAME_ADDRSPEC_ERR_EMPTY
,
835 if (! doskin
|| ! anyof(name
, "(< ")) {
836 /*agp->ag_iaddr_start = 0;*/
837 agp
->ag_iaddr_aend
= agp
->ag_ilen
;
838 agp
->ag_skinned
= UNCONST(name
); /* (NAME_SALLOC not set) */
839 agp
->ag_slen
= agp
->ag_ilen
;
840 agp
->ag_n_flags
= NAME_SKINNED
;
841 return _addrspec_check(doskin
, agp
);
844 /* Something makes us think we have to perform the skin operation */
845 nbuf
= ac_alloc(agp
->ag_ilen
+ 1);
846 /*agp->ag_iaddr_start = 0;*/
848 gotlt
= gotaddr
= lastsp
= 0;
850 for (cp
= name
++; (c
= *cp
++) != '\0'; ) {
853 cp
= skip_comment(cp
);
858 * Start of a "quoted-string".
859 * Copy it in its entirety.
860 * XXX RFC: quotes are "semantically invisible"
861 * XXX But it was explicitly added (Changelog.Heirloom,
862 * XXX [9.23] released 11/15/00, "Do not remove quotes
863 * XXX when skinning names"? No more info..
866 while ((c
= *cp
) != '\0') { /* TODO improve */
874 else if ((c
= *cp
) != '\0') {
885 agp
->ag_iaddr_aend
= (size_t)(cp
- name
);
887 if (cp
[0] == 'a' && cp
[1] == 't' && blankchar(cp
[2]))
888 cp
+= 3, *cp2
++ = '@';
889 else if (cp
[0] == '@' && blankchar(cp
[1]))
890 cp
+= 2, *cp2
++ = '@';
895 agp
->ag_iaddr_start
= (size_t)(cp
- (name
- 1));
902 /* (_addrspec_check() verifies these later!) */
903 agp
->ag_iaddr_aend
= (size_t)(cp
- name
);
905 while ((c
= *cp
) != '\0' && c
!= ',') {
908 cp
= skip_comment(cp
);
910 while ((c
= *cp
) != '\0') {
914 if (c
== '\\' && *cp
)
932 for (; blankchar(*cp
); ++cp
)
937 } else if (! gotaddr
) {
939 agp
->ag_iaddr_start
= (size_t)(cp
- name
);
943 agp
->ag_slen
= (size_t)(cp2
- nbuf
);
944 if (agp
->ag_iaddr_aend
== 0)
945 agp
->ag_iaddr_aend
= agp
->ag_ilen
;
947 agp
->ag_skinned
= savestrbuf(nbuf
, agp
->ag_slen
);
949 agp
->ag_n_flags
= NAME_NAME_SALLOC
| NAME_SKINNED
;
950 return _addrspec_check(doskin
, agp
);
954 * Fetch the real name from an internet mail address field.
957 realname(char const *name
)
959 char const *cp
, *cq
, *cstart
= NULL
, *cend
= NULL
;
962 int quoted
, good
, nogood
;
966 for (cp
= UNCONST(name
); *cp
; cp
++) {
971 * More than one comment in address, doesn't
972 * make sense to display it without context.
973 * Return the entire field,
975 return mime_fromaddr(name
);
977 cp
= skip_comment(cp
);
980 cend
= cstart
= NULL
;
986 if (*cp
== '\\' && cp
[1])
998 * More than one address. Just use the first one.
1003 brk
: if (cstart
== NULL
) {
1006 * If name contains only a route-addr, the
1007 * surrounding angle brackets don't serve any
1008 * useful purpose when displaying, so they
1011 return prstr(skin(name
));
1012 return mime_fromaddr(name
);
1014 rp
= rname
= ac_alloc(cend
- cstart
+ 1);
1016 * Strip quotes. Note that quotes that appear within a MIME-
1017 * encoded word are not stripped. The idea is to strip only
1018 * syntactical relevant things (but this is not necessarily
1019 * the most sensible way in practice).
1022 for (cp
= cstart
; cp
< cend
; cp
++) {
1023 if (*cp
== '(' && !quoted
) {
1024 cq
= skip_comment(++cp
);
1028 if (*cp
== '\\' && &cp
[1] < cq
)
1032 } else if (*cp
== '\\' && &cp
[1] < cend
)
1034 else if (*cp
== '"') {
1043 mime_fromhdr(&in
, &out
, TD_ISPR
|TD_ICONV
);
1045 rname
= savestr(out
.s
);
1047 while (blankchar(*rname
& 0377))
1049 for (rp
= rname
; *rp
; rp
++);
1050 while (--rp
>= rname
&& blankchar(*rp
& 0377))
1053 return mime_fromaddr(name
);
1055 * mime_fromhdr() has converted all nonprintable characters to
1056 * question marks now. These and blanks are considered uninteresting;
1057 * if the displayed part of the real name contains more than 25% of
1058 * them, it is probably better to display the plain email address
1063 for (rp
= rname
; *rp
&& rp
< &rname
[20]; rp
++)
1064 if (*rp
== '?' || blankchar(*rp
& 0377))
1068 if (good
*3 < nogood
)
1069 return prstr(skin(name
));
1074 * Fetch the sender's name from the passed message.
1076 * 0 -- get sender's name for display purposes
1077 * 1 -- get sender's name for reply
1078 * 2 -- get sender's name for Reply
1081 name1(struct message
*mp
, int reptype
)
1085 char *linebuf
= NULL
;
1086 size_t linesize
= 0;
1091 if ((cp
= hfield1("from", mp
)) != NULL
&& *cp
!= '\0')
1093 if (reptype
== 0 && (cp
= hfield1("sender", mp
)) != NULL
&&
1096 namebuf
= smalloc(namesize
= 1);
1098 if (mp
->m_flag
& MNOFROM
)
1100 if ((ibuf
= setinput(&mb
, mp
, NEED_HEADER
)) == NULL
)
1102 if (readline_restart(ibuf
, &linebuf
, &linesize
, 0) < 0)
1105 if (namesize
<= linesize
)
1106 namebuf
= srealloc(namebuf
, namesize
= linesize
+ 1);
1107 for (cp
= linebuf
; *cp
&& *cp
!= ' '; cp
++)
1109 for (; blankchar(*cp
& 0377); cp
++);
1110 for (cp2
= &namebuf
[strlen(namebuf
)];
1111 *cp
&& !blankchar(*cp
& 0377) && cp2
< namebuf
+ namesize
- 1;)
1114 if (readline_restart(ibuf
, &linebuf
, &linesize
, 0) < 0)
1116 if ((cp
= strchr(linebuf
, 'F')) == NULL
)
1118 if (strncmp(cp
, "From", 4) != 0)
1120 if (namesize
<= linesize
)
1121 namebuf
= srealloc(namebuf
, namesize
= linesize
+ 1);
1122 while ((cp
= strchr(cp
, 'r')) != NULL
) {
1123 if (strncmp(cp
, "remote", 6) == 0) {
1124 if ((cp
= strchr(cp
, 'f')) == NULL
)
1126 if (strncmp(cp
, "from", 4) != 0)
1128 if ((cp
= strchr(cp
, ' ')) == NULL
)
1132 strncpy(namebuf
, cp
, namesize
);
1135 cp2
=strrchr(namebuf
, '!')+1;
1136 strncpy(cp2
, cp
, (namebuf
+namesize
)-cp2
);
1138 namebuf
[namesize
- 2] = '!';
1139 namebuf
[namesize
- 1] = '\0';
1145 if (*namebuf
!= '\0' || ((cp
= hfield1("return-path", mp
))) == NULL
||
1147 cp
= savestr(namebuf
);
1155 msgidnextc(const char **cp
, int *status
)
1175 *cp
= skip_comment(&(*cp
)[1]);
1190 c
= *(*cp
)++ & 0377;
1191 return *status
& 02 ? lowerconv(c
) : c
;
1197 msgidcmp(const char *s1
, const char *s2
)
1203 c1
= msgidnextc(&s1
, &q1
);
1204 c2
= msgidnextc(&s2
, &q2
);
1212 * Count the occurances of c in str
1215 charcount(char *str
, int c
)
1220 for (i
= 0, cp
= str
; *cp
; cp
++)
1227 * See if the given header field is supposed to be ignored.
1230 is_ign(char const *field
, size_t fieldlen
, struct ignoretab ignoret
[2])
1235 if (ignoret
== NULL
)
1237 if (ignoret
== allignore
)
1240 * Lower-case the string, so that "Status" and "status"
1241 * will hash to the same place.
1243 realfld
= ac_alloc(fieldlen
+ 1);
1244 i_strcpy(realfld
, field
, fieldlen
+ 1);
1245 if (ignoret
[1].i_count
> 0)
1246 ret
= !member(realfld
, ignoret
+ 1);
1248 ret
= member(realfld
, ignoret
);
1254 member(char const *realfield
, struct ignoretab
*table
)
1258 for (igp
= table
->i_head
[hash(realfield
)]; igp
!= 0; igp
= igp
->i_link
)
1259 if (*igp
->i_field
== *realfield
&&
1260 strcmp(igp
->i_field
, realfield
) == 0)
1266 * Fake Sender for From_ lines if missing, e. g. with POP3.
1269 fakefrom(struct message
*mp
)
1273 if (((name
= skin(hfield1("return-path", mp
))) == NULL
||
1275 ((name
= skin(hfield1("from", mp
))) == NULL
||
1278 * XXX MAILER-DAEMON is what an old MBOX manual page says.
1279 * RFC 4155 however requires a RFC 5322 (2822) conforming
1280 * "addr-spec", but we simply can't provide that
1282 name
= "MAILER-DAEMON";
1292 for (cq
= cp
; *cq
&& *cq
!= '\n'; ++cq
)
1299 nexttoken(char const *cp
)
1307 while (*cp
!= '\0') {
1319 } else if (blankchar(*cp
) || *cp
== ',')
1328 * From username Fri Jan 2 20:13:51 2004
1333 unixtime(char const *fromline
)
1338 int i
, year
, month
, day
, hour
, minute
, second
;
1342 for (fp
= fromline
; *fp
&& *fp
!= '\n'; fp
++);
1344 if (fp
- fromline
< 7)
1349 if (strncmp(&fp
[4], month_names
[i
], 3) == 0)
1351 if (month_names
[++i
][0] == '\0')
1357 day
= strtol(&fp
[8], &xp
, 10);
1358 if (*xp
!= ' ' || xp
!= &fp
[10])
1360 hour
= strtol(&fp
[11], &xp
, 10);
1361 if (*xp
!= ':' || xp
!= &fp
[13])
1363 minute
= strtol(&fp
[14], &xp
, 10);
1364 if (*xp
!= ':' || xp
!= &fp
[16])
1366 second
= strtol(&fp
[17], &xp
, 10);
1367 if (*xp
!= ' ' || xp
!= &fp
[19])
1369 year
= strtol(&fp
[20], &xp
, 10);
1372 if ((t
= combinetime(year
, month
, day
, hour
, minute
, second
)) ==
1375 tzdiff
= t
- mktime(gmtime(&t
));
1376 tmptr
= localtime(&t
);
1377 if (tmptr
->tm_isdst
> 0)
1387 rfctime(char const *date
)
1389 char const *cp
= date
;
1392 int i
, year
, month
, day
, hour
, minute
, second
;
1394 if ((cp
= nexttoken(cp
)) == NULL
)
1396 if (alphachar(cp
[0]) && alphachar(cp
[1]) && alphachar(cp
[2]) &&
1398 if ((cp
= nexttoken(&cp
[4])) == NULL
)
1401 day
= strtol(cp
, &x
, 10); /* XXX strtol */
1402 if ((cp
= nexttoken(x
)) == NULL
)
1405 if (strncmp(cp
, month_names
[i
], 3) == 0)
1407 if (month_names
[++i
][0] == '\0')
1411 if ((cp
= nexttoken(&cp
[3])) == NULL
)
1415 * Where a two or three digit year occurs in a date, the year is to be
1416 * interpreted as follows: If a two digit year is encountered whose
1417 * value is between 00 and 49, the year is interpreted by adding 2000,
1418 * ending up with a value between 2000 and 2049. If a two digit year
1419 * is encountered with a value between 50 and 99, or any three digit
1420 * year is encountered, the year is interpreted by adding 1900.
1422 year
= strtol(cp
, &x
, 10); /* XXX strtol */
1424 if (i
== 2 && year
>= 0 && year
<= 49)
1426 else if (i
== 3 || (i
== 2 && year
>= 50 && year
<= 99))
1428 if ((cp
= nexttoken(x
)) == NULL
)
1430 hour
= strtol(cp
, &x
, 10); /* XXX strtol */
1434 minute
= strtol(cp
, &x
, 10);
1437 second
= strtol(cp
, &x
, 10);
1440 if ((t
= combinetime(year
, month
, day
, hour
, minute
, second
)) ==
1443 if ((cp
= nexttoken(x
)) != NULL
) {
1454 if (digitchar(cp
[0]) && digitchar(cp
[1]) && digitchar(cp
[2]) &&
1459 t
+= strtol(buf
, NULL
, 10) * sign
* 3600;/*XXX strtrol*/
1462 t
+= strtol(buf
, NULL
, 10) * sign
* 60; /* XXX strtol*/
1464 /* TODO WE DO NOT YET PARSE (OBSOLETE) ZONE NAMES
1465 * TODO once again, Christos Zoulas and NetBSD Mail have done
1466 * TODO a really good job already, but using strptime(3), which
1467 * TODO is not portable. Nonetheless, WE must improve, not
1468 * TODO at last because we simply ignore obsolete timezones!!
1469 * TODO See RFC 5322, 4.3! */
1476 #define is_leapyear(Y) ((((Y) % 100 ? (Y) : (Y) / 100) & 3) == 0)
1479 combinetime(int year
, int month
, int day
, int hour
, int minute
, int second
)
1483 if (second
< 0 || minute
< 0 || hour
< 0 || day
< 1)
1485 t
= second
+ minute
* 60 + hour
* 3600 + (day
- 1) * 86400;
1489 t
+= 86400 * (is_leapyear(year
) ? 29 : 28);
1509 t
+= (year
- 70) * 31536000 + ((year
- 69) / 4) * 86400 -
1510 ((year
- 1) / 100) * 86400 + ((year
+ 299) / 400) * 86400;
1515 substdate(struct message
*m
)
1520 * Determine the date to print in faked 'From ' lines. This is
1521 * traditionally the date the message was written to the mail
1522 * file. Try to determine this using RFC message header fields,
1523 * or fall back to current time.
1525 if ((cp
= hfield1("received", m
)) != NULL
) {
1526 while ((cp
= nexttoken(cp
)) != NULL
&& *cp
!= ';') {
1529 while (alnumchar(*cp
));
1532 m
->m_time
= rfctime(cp
);
1534 if (m
->m_time
== 0 || m
->m_time
> time_current
.tc_time
) {
1535 if ((cp
= hfield1("date", m
)) != NULL
)
1536 m
->m_time
= rfctime(cp
);
1538 if (m
->m_time
== 0 || m
->m_time
> time_current
.tc_time
)
1539 m
->m_time
= time_current
.tc_time
;
1543 check_from_and_sender(struct name
*fromfield
, struct name
*senderfield
)
1545 if (fromfield
&& fromfield
->n_flink
&& senderfield
== NULL
) {
1546 fprintf(stderr
, "A Sender: field is required with multiple "
1547 "addresses in From: field.\n");
1550 if (senderfield
&& senderfield
->n_flink
) {
1551 fprintf(stderr
, "The Sender: field may contain "
1552 "only one address.\n");
1559 getsender(struct message
*mp
)
1564 if ((cp
= hfield1("from", mp
)) == NULL
||
1565 (np
= lextract(cp
, GEXTRA
|GSKIN
)) == NULL
)
1567 return np
->n_flink
!= NULL
? skin(hfield1("sender", mp
)) : np
->n_name
;
1571 grab_headers(struct header
*hp
, enum gfield gflags
, int subjfirst
)
1573 /* TODO grab_headers: again, check counts etc. against RFC;
1574 * TODO (now assumes check_from_and_sender() is called afterwards ++ */
1579 comma
= (value("bsdcompat") || value("bsdmsgs")) ? 0 : GCOMMA
;
1582 hp
->h_to
= grab_names("To: ", hp
->h_to
, comma
, GTO
|GFULL
);
1584 if (subjfirst
&& (gflags
& GSUBJECT
))
1585 hp
->h_subject
= readstr_input("Subject: ", hp
->h_subject
);
1588 hp
->h_cc
= grab_names("Cc: ", hp
->h_cc
, comma
, GCC
|GFULL
);
1591 hp
->h_bcc
= grab_names("Bcc: ", hp
->h_bcc
, comma
, GBCC
|GFULL
);
1593 if (gflags
& GEXTRA
) {
1594 if (hp
->h_from
== NULL
)
1595 hp
->h_from
= lextract(myaddrs(hp
), GEXTRA
|GFULL
);
1596 hp
->h_from
= grab_names("From: ", hp
->h_from
, comma
,
1598 if (hp
->h_replyto
== NULL
)
1599 hp
->h_replyto
= lextract(value("replyto"),
1601 hp
->h_replyto
= grab_names("Reply-To: ", hp
->h_replyto
, comma
,
1603 if (hp
->h_sender
== NULL
)
1604 hp
->h_sender
= extract(value("sender"), GEXTRA
|GFULL
);
1605 hp
->h_sender
= grab_names("Sender: ", hp
->h_sender
, comma
,
1607 if (hp
->h_organization
== NULL
)
1608 hp
->h_organization
= value("ORGANIZATION");
1609 hp
->h_organization
= readstr_input("Organization: ",
1610 hp
->h_organization
);
1613 if (! subjfirst
&& (gflags
& GSUBJECT
))
1614 hp
->h_subject
= readstr_input("Subject: ", hp
->h_subject
);