2 * Copyright notice from original mutt:
3 * Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
5 * This file is part of mutt-ng, see http://www.muttng.org/.
6 * It's licensed under the GNU General Public License,
7 * please see the file GPL in the top level source directory.
14 #include <lib-lib/mem.h>
15 #include <lib-lib/str.h>
16 #include <lib-lib/macros.h>
20 #include "lib/debug.h"
25 static const char *next_word (const char *s)
27 while (*s && !ISSPACE (*s))
33 int mutt_check_month (const char *s)
37 for (i = 0; i < 12; i++)
38 if (str_ncasecmp (s, Months[i], 3) == 0)
40 return (-1); /* error */
43 static int is_day_name (const char *s)
47 if ((m_strlen(s) < 3) || !*(s + 3) || !ISSPACE (*(s + 3)))
49 for (i = 0; i < 7; i++)
50 if (str_ncasecmp (s, Weekdays[i], 3) == 0)
56 * A valid message separator looks like:
58 * From [ <return-path> ] <weekday> <month> <day> <time> [ <timezone> ] <year>
61 int is_from (const char *s, char *path, size_t pathlen, time_t * tp)
69 if (str_ncmp ("From ", s, 5) != 0)
72 s = next_word (s); /* skip over the From part. */
76 debug_print (3, ("parsing: %s\n", s));
78 if (!is_day_name (s)) {
83 for (p = s; *p && (q || !ISSPACE (*p)); p++) {
97 len = (size_t) (p - s);
98 if (len + 1 > pathlen)
100 memcpy (path, s, len);
102 debug_print (3, ("got return path: %s\n", path));
110 if (!is_day_name (s)) {
111 debug_print (1, ("expected weekday, got: %s\n", s));
120 /* do a quick check to make sure that this isn't really the day of the week.
121 * this could happen when receiving mail from a local user whose login name
122 * is the same as a three-letter abbreviation of the day of the week.
124 if (is_day_name (s)) {
130 /* now we should be on the month. */
131 if ((tm.tm_mon = mutt_check_month (s)) < 0)
138 if (sscanf (s, "%d", &tm.tm_mday) != 1)
146 /* Accept either HH:MM or HH:MM:SS */
147 if (sscanf (s, "%d:%d:%d", &tm.tm_hour, &tm.tm_min, &tm.tm_sec) == 3);
148 else if (sscanf (s, "%d:%d", &tm.tm_hour, &tm.tm_min) == 2)
158 if (isalpha ((unsigned char) *s) || *s == '+' || *s == '-') {
164 * some places have two timezone fields after the time, e.g.
165 * From xxxx@yyyyyyy.fr Wed Aug 2 00:39:12 MET DST 1995
167 if (isalpha ((unsigned char) *s)) {
175 if (sscanf (s, "%d", &yr) != 1)
177 tm.tm_year = yr > 1900 ? yr - 1900 : (yr < 70 ? yr + 100 : yr);
179 debug_print (3, ("month=%d, day=%d, hr=%d, min=%d, sec=%d, yr=%d.\n",
180 tm.tm_mon, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec,
186 *tp = mutt_mktime (&tm, 0);