2 * Copyright notice from original mutt:
3 * Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
4 * Copyright (C) 1999-2000 Thomas Roessler <roessler@does-not-exist.org>
6 * This file is part of mutt-ng, see http://www.muttng.org/.
7 * It's licensed under the GNU General Public License,
8 * please see the file GPL in the top level source directory.
16 #include "mutt_curses.h"
26 #include "imap/mx_imap.h"
29 #include "mutt_crypt.h"
34 #include "lib/debug.h"
45 #include <sys/types.h>
48 BODY *mutt_new_body (void)
50 BODY *p = (BODY *) mem_calloc (1, sizeof (BODY));
52 p->disposition = DISPATTACH;
58 /* Modified by blong to accept a "suggestion" for file name. If
59 * that file exists, then construct one with unique name but
60 * keep any extension. This might fail, I guess.
61 * Renamed to mutt_adv_mktemp so I only have to change where it's
62 * called, and not all possible cases.
64 void mutt_adv_mktemp (char *s, size_t l)
66 char buf[_POSIX_PATH_MAX];
67 char tmp[_POSIX_PATH_MAX];
72 strfcpy (buf, NONULL (Tempdir), sizeof (buf));
73 mutt_expand_path (buf, sizeof (buf));
75 snprintf (s, l, "%s/muttXXXXXX", buf);
79 strfcpy (tmp, s, sizeof (tmp));
80 mutt_sanitize_filename (tmp, 1);
81 snprintf (s, l, "%s/%s", buf, tmp);
82 if (lstat (s, &sb) == -1 && errno == ENOENT)
84 if ((period = strrchr (tmp, '.')) != NULL)
86 snprintf (s, l, "%s/%s.XXXXXX", buf, tmp);
91 strfcpy (s + sl, period, l - sl);
96 /* create a send-mode duplicate from a receive-mode body */
98 int mutt_copy_body (FILE * fp, BODY ** tgt, BODY * src)
100 char tmp[_POSIX_PATH_MAX];
103 PARAMETER *par, **ppar;
109 strfcpy (tmp, src->filename, sizeof (tmp));
116 mutt_adv_mktemp (tmp, sizeof (tmp));
117 if (mutt_save_attachment (fp, src, tmp, 0, NULL) == -1)
120 *tgt = mutt_new_body ();
123 memcpy (b, src, sizeof (BODY));
127 b->filename = str_dup (tmp);
128 b->use_disp = use_disp;
131 if (mutt_is_text_part (b))
134 b->xtype = str_dup (b->xtype);
135 b->subtype = str_dup (b->subtype);
136 b->form_name = str_dup (b->form_name);
137 b->filename = str_dup (b->filename);
138 b->d_filename = str_dup (b->d_filename);
139 b->description = str_dup (b->description);
142 * we don't seem to need the HEADER structure currently.
143 * XXX - this may change in the future
149 /* copy parameters */
150 for (par = b->parameter, ppar = &b->parameter; par;
151 ppar = &(*ppar)->next, par = par->next) {
152 *ppar = mutt_new_parameter ();
153 (*ppar)->attribute = str_dup (par->attribute);
154 (*ppar)->value = str_dup (par->value);
157 mutt_stamp_attachment (b);
164 void mutt_free_body (BODY ** p)
173 mutt_free_parameter (&b->parameter);
174 if (b->unlink && b->filename) {
175 debug_print (1, ("unlinking %s.\n", b->filename));
176 unlink (b->filename);
178 else if (b->filename)
179 debug_print (1, ("not unlinking %s.\n", b->filename));
181 mem_free (&b->filename);
182 mem_free (&b->content);
183 mem_free (&b->xtype);
184 mem_free (&b->subtype);
185 mem_free (&b->description);
186 mem_free (&b->form_name);
189 /* Don't free twice (b->hdr->content = b->parts) */
190 b->hdr->content = NULL;
191 mutt_free_header (&b->hdr);
195 mutt_free_body (&b->parts);
203 void mutt_free_parameter (PARAMETER ** p)
209 mem_free (&t->attribute);
210 mem_free (&t->value);
218 LIST *mutt_add_list (LIST * head, const char *data) {
219 size_t len = str_len (data);
220 return (mutt_add_list_n (head, data, len ? len + 1 : 0));
223 LIST *mutt_add_list_n (LIST *head, const void *data, size_t len) {
226 for (tmp = head; tmp && tmp->next; tmp = tmp->next);
229 tmp->next = mem_malloc (sizeof (LIST));
232 head = tmp = mem_malloc (sizeof (LIST));
234 tmp->data = mem_malloc (len);
236 memcpy (tmp->data, data, len);
241 void mutt_free_list (LIST ** list)
249 *list = (*list)->next;
255 HEADER *mutt_dup_header (HEADER * h)
259 hnew = mutt_new_header ();
260 memcpy (hnew, h, sizeof (HEADER));
264 void mutt_free_header (HEADER ** h)
268 mutt_free_envelope (&(*h)->env);
269 mutt_free_body (&(*h)->content);
270 mem_free (&(*h)->maildir_flags);
271 mem_free (&(*h)->tree);
272 mem_free (&(*h)->path);
274 mutt_free_list (&(*h)->chain);
276 #if defined USE_POP || defined USE_IMAP || defined USE_NNTP
277 mem_free (&(*h)->data);
282 /* returns true if the header contained in "s" is in list "t" */
283 int mutt_matches_ignore (const char *s, LIST * t)
285 for (; t; t = t->next) {
286 if (!ascii_strncasecmp (s, t->data, str_len (t->data))
293 /* prepend the path part of *path to *link */
294 void mutt_expand_link (char *newpath, const char *path, const char *link)
296 const char *lb = NULL;
299 /* link is full path */
301 strfcpy (newpath, link, _POSIX_PATH_MAX);
305 if ((lb = strrchr (path, '/')) == NULL) {
306 /* no path in link */
307 strfcpy (newpath, link, _POSIX_PATH_MAX);
312 memcpy (newpath, path, len);
313 strfcpy (newpath + len, link, _POSIX_PATH_MAX - len);
316 char *mutt_expand_path (char *s, size_t slen)
318 return _mutt_expand_path (s, slen, 0);
321 char *_mutt_expand_path (char *s, size_t slen, int rx)
323 char p[_POSIX_PATH_MAX] = "";
324 char q[_POSIX_PATH_MAX] = "";
325 char tmp[_POSIX_PATH_MAX];
338 if (*(s + 1) == '/' || *(s + 1) == 0) {
339 strfcpy (p, NONULL (Homedir), sizeof (p));
345 if ((t = strchr (s + 1, '/')))
348 if ((pw = getpwnam (s + 1))) {
349 strfcpy (p, pw->pw_dir, sizeof (p));
358 /* user not found! */
372 /* if folder = imap[s]://host/: don't append slash */
373 if (imap_is_magic (NONULL (Maildir), NULL) == M_IMAP &&
374 Maildir[str_len (Maildir) - 1] == '/')
375 strfcpy (p, NONULL (Maildir), sizeof (p));
378 snprintf (p, sizeof (p), "%s/", NONULL (Maildir));
384 /* elm compatibility, @ expands alias to user name */
391 if ((alias = mutt_lookup_alias (s + 1))) {
392 h = mutt_new_header ();
393 h->env = mutt_new_envelope ();
394 h->env->from = h->env->to = alias;
395 mutt_default_save (p, sizeof (p), h);
396 h->env->from = h->env->to = NULL;
397 mutt_free_header (&h);
398 /* Avoid infinite recursion if the resulting folder starts with '@' */
409 strfcpy (p, NONULL (Inbox), sizeof (p));
416 strfcpy (p, NONULL (Outbox), sizeof (p));
423 if (*(s + 1) == '!') {
424 strfcpy (p, NONULL (LastFolder), sizeof (p));
428 strfcpy (p, NONULL (Spoolfile), sizeof (p));
436 strfcpy (p, NONULL (LastFolder), sizeof (p));
443 strfcpy (p, NONULL (CurrentFolder), sizeof (p));
455 if (rx && *p && !recurse) {
456 mutt_rx_sanitize_string (q, sizeof (q), p);
457 snprintf (tmp, sizeof (tmp), "%s%s", q, tail);
460 snprintf (tmp, sizeof (tmp), "%s%s", p, tail);
462 strfcpy (s, tmp, slen);
469 /* Extract the real name from /etc/passwd's GECOS field.
470 * When set, honor the regular expression in GecosMask,
471 * otherwise assume that the GECOS field is a
472 * comma-separated list.
473 * Replace "&" by a capitalized version of the user's login
477 char *mutt_gecos_name (char *dest, size_t destlen, struct passwd *pw)
479 regmatch_t pat_match[1];
484 if (!pw || !pw->pw_gecos)
487 memset (dest, 0, destlen);
490 if (regexec (GecosMask.rx, pw->pw_gecos, 1, pat_match, 0) == 0)
491 strfcpy (dest, pw->pw_gecos + pat_match[0].rm_so,
492 MIN (pat_match[0].rm_eo - pat_match[0].rm_so + 1, destlen));
494 else if ((p = strchr (pw->pw_gecos, ',')))
495 strfcpy (dest, pw->pw_gecos, MIN (destlen, p - pw->pw_gecos + 1));
497 strfcpy (dest, pw->pw_gecos, destlen);
499 pwnl = str_len (pw->pw_name);
501 for (idx = 0; dest[idx]; idx++) {
502 if (dest[idx] == '&') {
503 memmove (&dest[idx + pwnl], &dest[idx + 1],
504 MAX (destlen - idx - pwnl - 1, 0));
505 memcpy (&dest[idx], pw->pw_name, MIN (destlen - idx - 1, pwnl));
506 dest[idx] = toupper ((unsigned char) dest[idx]);
514 char *mutt_get_parameter (const char *s, PARAMETER * p)
516 for (; p; p = p->next)
517 if (ascii_strcasecmp (s, p->attribute) == 0)
523 void mutt_set_parameter (const char *attribute, const char *value,
529 mutt_delete_parameter (attribute, p);
533 for (q = *p; q; q = q->next) {
534 if (ascii_strcasecmp (attribute, q->attribute) == 0) {
535 str_replace (&q->value, value);
540 q = mutt_new_parameter ();
541 q->attribute = str_dup (attribute);
542 q->value = str_dup (value);
547 void mutt_delete_parameter (const char *attribute, PARAMETER ** p)
551 for (q = *p; q; p = &q->next, q = q->next) {
552 if (ascii_strcasecmp (attribute, q->attribute) == 0) {
555 mutt_free_parameter (&q);
561 /* returns 1 if Mutt can't display this type of data, 0 otherwise */
562 int mutt_needs_mailcap (BODY * m)
567 if (!ascii_strcasecmp ("plain", m->subtype) ||
568 !ascii_strcasecmp ("rfc822-headers", m->subtype) ||
569 !ascii_strcasecmp ("enriched", m->subtype))
573 case TYPEAPPLICATION:
574 if ((WithCrypto & APPLICATION_PGP) && mutt_is_application_pgp (m))
576 if ((WithCrypto & APPLICATION_SMIME) && mutt_is_application_smime (m))
588 int mutt_is_text_part (BODY * b)
591 char *s = b->subtype;
593 if ((WithCrypto & APPLICATION_PGP) && mutt_is_application_pgp (b))
599 if (t == TYPEMESSAGE) {
600 if (!ascii_strcasecmp ("delivery-status", s))
604 if ((WithCrypto & APPLICATION_PGP) && t == TYPEAPPLICATION) {
605 if (!ascii_strcasecmp ("pgp-keys", s))
612 void mutt_free_envelope (ENVELOPE ** p)
616 rfc822_free_address (&(*p)->return_path);
617 rfc822_free_address (&(*p)->from);
618 rfc822_free_address (&(*p)->to);
619 rfc822_free_address (&(*p)->cc);
620 rfc822_free_address (&(*p)->bcc);
621 rfc822_free_address (&(*p)->sender);
622 rfc822_free_address (&(*p)->reply_to);
623 rfc822_free_address (&(*p)->mail_followup_to);
625 mem_free (&(*p)->list_post);
626 mem_free (&(*p)->subject);
627 /* real_subj is just an offset to subject and shouldn't be freed */
628 mem_free (&(*p)->message_id);
629 mem_free (&(*p)->supersedes);
630 mem_free (&(*p)->date);
631 mem_free (&(*p)->x_label);
632 mem_free (&(*p)->organization);
634 mem_free (&(*p)->newsgroups);
635 mem_free (&(*p)->xref);
636 mem_free (&(*p)->followup_to);
637 mem_free (&(*p)->x_comment_to);
640 mutt_buffer_free (&(*p)->spam);
641 mutt_free_list (&(*p)->references);
642 mutt_free_list (&(*p)->in_reply_to);
643 mutt_free_list (&(*p)->userhdrs);
647 /* move all the headers from extra not present in base into base */
648 void mutt_merge_envelopes(ENVELOPE* base, ENVELOPE** extra)
650 /* copies each existing element if necessary, and sets the element
651 * to NULL in the source so that mutt_free_envelope doesn't leave us
652 * with dangling pointers. */
653 #define MOVE_ELEM(h) if (!base->h) { base->h = (*extra)->h; (*extra)->h = NULL; }
654 MOVE_ELEM(return_path);
661 MOVE_ELEM(mail_followup_to);
662 MOVE_ELEM(list_post);
663 MOVE_ELEM(message_id);
664 MOVE_ELEM(supersedes);
667 if (!base->refs_changed) {
668 MOVE_ELEM(references);
670 if (!base->irt_changed) {
671 MOVE_ELEM(in_reply_to);
673 /* real_subj is subordinate to subject */
674 if (!base->subject) {
675 base->subject = (*extra)->subject;
676 base->real_subj = (*extra)->real_subj;
677 (*extra)->subject = NULL;
678 (*extra)->real_subj = NULL;
680 /* spam and user headers should never be hashed, and the new envelope may
681 * have better values. Use new versions regardless. */
682 mutt_buffer_free (&base->spam);
683 mutt_free_list (&base->userhdrs);
688 mutt_free_envelope(extra);
691 void _mutt_mktemp (char *s, const char *src, int line)
694 snprintf (s, _POSIX_PATH_MAX, "%s/muttng-%s-%d-%d-%d-%x%x", NONULL (Tempdir),
695 NONULL (Hostname), (int) getuid (), (int) getpid (), Counter++,
696 (unsigned int) rand(), (unsigned int) rand());
697 debug_print (1, ("%s:%d: mutt_mktemp returns \"%s\".\n", src, line, s));
701 void mutt_free_alias (ALIAS ** p)
709 rfc822_free_address (&t->addr);
714 /* collapse the pathname using ~ or = when possible */
715 void mutt_pretty_mailbox (char *s)
721 scheme = url_check_scheme (s);
724 if (scheme == U_IMAP || scheme == U_IMAPS) {
725 imap_pretty_mailbox (s);
730 /* if s is an url, only collapse path component */
731 if (scheme != U_UNKNOWN) {
732 p = strchr (s, ':') + 1;
733 if (!strncmp (p, "//", 2))
734 q = strchr (p + 2, '/');
736 q = strchr (p, '\0');
740 /* first attempt to collapse the pathname */
742 if (*p == '/' && p[1] == '/') {
746 else if (p[0] == '/' && p[1] == '.' && p[2] == '/') {
755 if (str_ncmp (s, Maildir, (len = str_len (Maildir))) == 0 &&
758 memmove (s, s + len, str_len (s + len) + 1);
760 else if (str_ncmp (s, Homedir, (len = str_len (Homedir))) == 0 &&
763 memmove (s, s + len - 1, str_len (s + len - 1) + 1);
767 void mutt_pretty_size (char *s, size_t len, long n)
770 strfcpy (s, "0K", len);
771 else if (n < 10189) /* 0.1K - 9.9K */
772 snprintf (s, len, "%3.1fK", (n < 103) ? 0.1 : n / 1024.0);
773 else if (n < 1023949) { /* 10K - 999K */
774 /* 51 is magic which causes 10189/10240 to be rounded up to 10 */
775 snprintf (s, len, "%ldK", (n + 51) / 1024);
777 else if (n < 10433332) /* 1.0M - 9.9M */
778 snprintf (s, len, "%3.1fM", n / 1048576.0);
781 /* (10433332 + 52428) / 1048576 = 10 */
782 snprintf (s, len, "%ldM", (n + 52428) / 1048576);
786 void mutt_expand_file_fmt (char *dest, size_t destlen, const char *fmt,
789 char tmp[LONG_STRING];
791 mutt_quote_filename (tmp, sizeof (tmp), src);
792 mutt_expand_fmt (dest, destlen, fmt, tmp);
795 void mutt_expand_fmt (char *dest, size_t destlen, const char *fmt,
803 slen = str_len (src);
806 for (p = fmt, d = dest; destlen && *p; p++) {
815 strfcpy (d, src, destlen + 1);
816 d += destlen > slen ? slen : destlen;
817 destlen -= destlen > slen ? slen : destlen;
834 if (!found && destlen > 0) {
835 str_cat (dest, destlen, " ");
836 str_cat (dest, destlen, src);
841 /* return 0 on success, -1 on abort, 1 on error */
842 int mutt_check_overwrite (const char *attname, const char *path,
843 char *fname, size_t flen, int *append,
847 char tmp[_POSIX_PATH_MAX];
850 strfcpy (fname, path, flen);
851 if (access (fname, F_OK) != 0)
853 if (stat (fname, &st) != 0)
855 if (S_ISDIR (st.st_mode)) {
857 switch (mutt_multi_choice
858 (_("File is a directory, save under it? [(y)es, (n)o, (a)ll]"),
861 str_replace (directory, fname);
864 mem_free (directory);
867 mem_free (directory);
870 mem_free (directory);
876 mutt_yesorno (_("File is a directory, save under it?"),
878 return (rc == M_NO) ? 1 : -1;
880 if (!attname || !attname[0]) {
882 if (mutt_get_field (_("File under directory: "), tmp, sizeof (tmp),
883 M_FILE | M_CLEAR) != 0 || !tmp[0])
885 mutt_concat_path (fname, path, tmp, flen);
888 mutt_concat_path (fname, path, mutt_basename (attname), flen);
891 if (*append == 0 && access (fname, F_OK) == 0) {
892 switch (mutt_multi_choice
893 (_("File exists, (o)verwrite, (a)ppend, or (c)ancel?"), _("oac")))
901 *append = M_SAVE_APPEND;
903 case 1: /* overwrite */
904 *append = M_SAVE_OVERWRITE;
911 void mutt_save_path (char *d, size_t dsize, ADDRESS * a)
913 if (a && a->mailbox) {
914 strfcpy (d, a->mailbox, dsize);
915 if (!option (OPTSAVEADDRESS)) {
918 if ((p = strpbrk (d, "%@")))
927 void mutt_safe_path (char *s, size_t l, ADDRESS * a)
931 mutt_save_path (s, l, a);
933 if (*p == '/' || ISSPACE (*p) || !IsPrint ((unsigned char) *p))
937 /* counts how many characters in s can be skipped while none of the
938 * characters of c appears */
939 int mutt_skipchars (const char *s, const char *c)
945 register const char *t = c;
955 return (str_len (p));
958 void mutt_FormatString (char *dest, /* output buffer */
959 size_t destlen, /* output buffer len */
960 const char *src, /* template string */
961 format_t * callback, /* callback for processing */
962 unsigned long data, /* callback data */
964 { /* callback flags */
965 char prefix[SHORT_STRING], buf[LONG_STRING], *cp, *wptr = dest, ch;
966 char ifstring[SHORT_STRING], elsestring[SHORT_STRING];
967 size_t wlen, count, len, col, wid;
970 destlen--; /* save room for the terminal \0 */
971 wlen = (flags & M_FORMAT_ARROWCURSOR && option (OPTARROWCURSOR)) ? 3 : 0;
974 while (*src && wlen < destlen) {
985 flags |= M_FORMAT_OPTIONAL;
989 flags &= ~M_FORMAT_OPTIONAL;
991 /* eat the format string */
994 while (count < sizeof (prefix) &&
995 (isdigit ((unsigned char) *src) || *src == '.' || *src == '-'))
1004 break; /* bad format */
1006 ch = *src++; /* save the character to switch on */
1008 if (flags & M_FORMAT_OPTIONAL) {
1010 break; /* bad format */
1013 /* eat the `if' part of the string */
1016 while (count < sizeof (ifstring) && *src && *src != '?'
1023 /* eat the `else' part of the string (optional) */
1025 src++; /* skip the & */
1028 while (count < sizeof (elsestring) && *src && *src != '?') {
1035 break; /* bad format */
1037 src++; /* move past the trailing `?' */
1040 /* handle generic cases first */
1042 /* right justify to EOL */
1043 ch = *src++; /* pad char */
1044 /* calculate space left on line. if we've already written more data
1045 than will fit on the line, ignore the rest of the line */
1046 if (DrawFullLine || option (OPTSTATUSONTOP))
1047 count = (COLS < destlen ? COLS : destlen);
1050 ((COLS - SidebarWidth) <
1051 destlen ? (COLS - SidebarWidth) : destlen);
1053 count -= col; /* how many columns left on this line */
1054 mutt_FormatString (buf, sizeof (buf), src, callback, data, flags);
1055 wid = str_len (buf);
1057 count -= wid; /* how many chars to pad */
1058 memset (wptr, ch, count);
1062 if (wid + wlen > destlen)
1063 len = destlen - wlen;
1066 memcpy (wptr, buf, len);
1069 col += mutt_strwidth (buf);
1071 break; /* skip rest of input */
1073 else if (ch == '|') {
1078 if (destlen > wlen) {
1079 count = destlen - wlen;
1080 memset (wptr, ch, count);
1083 break; /* skip rest of input */
1089 while (ch == '_' || ch == ':') {
1098 /* use callback function to handle this case */
1100 callback (buf, sizeof (buf), ch, src, prefix, ifstring, elsestring,
1113 if ((len = str_len (buf)) + wlen > destlen)
1114 len = (destlen - wlen > 0) ? (destlen - wlen) : 0;
1116 memcpy (wptr, buf, len);
1119 col += mutt_strwidth (buf);
1122 else if (*src == '\\') {
1151 unsigned int bar = mutt_skipchars (src, "%\\");
1152 char *bar2 = mem_malloc (bar + 1);
1154 strfcpy (bar2, src, bar + 1);
1159 col += mutt_strwidth (bar2);
1166 if (flags & M_FORMAT_MAKEPRINT) {
1167 /* Make sure that the string is printable by changing all non-printable
1168 chars to dots, or spaces for non-printable whitespace */
1169 for (cp = dest; *cp; cp++)
1170 if (!IsPrint (*cp) && !((flags & M_FORMAT_TREE) && (*cp <= M_TREE_MAX)))
1171 *cp = isspace ((unsigned char) *cp) ? ' ' : '.';
1176 /* This function allows the user to specify a command to read stdout from in
1177 place of a normal file. If the last character in the string is a pipe (|),
1178 then we assume it is a commmand to run instead of a normal file. */
1179 FILE *mutt_open_read (const char *path, pid_t * thepid)
1184 int len = str_len (path);
1186 if (path[len - 1] == '|') {
1187 /* read from a pipe */
1189 char *s = str_dup (path);
1193 *thepid = mutt_create_filter (s, NULL, &f, NULL);
1197 if (stat (path, &s) < 0)
1199 if (S_ISDIR (s.st_mode)) {
1203 f = fopen (path, "r");
1209 /* returns 0 if OK to proceed, -1 to abort, 1 to retry */
1210 int mutt_save_confirm (const char *s, struct stat *st)
1212 char tmp[_POSIX_PATH_MAX];
1217 magic = mx_get_magic (s);
1220 if (magic == M_POP) {
1221 mutt_error _("Can't save message to POP mailbox.");
1228 if (magic == M_NNTP) {
1229 mutt_error _("Can't save message to newsserver.");
1235 if (magic > 0 && !mx_access (s, W_OK)) {
1236 if (option (OPTCONFIRMAPPEND) &&
1237 (!TrashPath || (str_cmp (s, TrashPath) != 0))) {
1238 /* if we're appending to the trash, there's no point in asking */
1239 snprintf (tmp, sizeof (tmp), _("Append messages to %s?"), s);
1240 if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
1247 if (stat (s, st) != -1) {
1249 mutt_error (_("%s is not a mailbox!"), s);
1255 if (magic != M_IMAP)
1256 #endif /* execute the block unconditionally if we don't use imap */
1261 if (errno == ENOENT) {
1262 if (option (OPTCONFIRMCREATE)) {
1263 snprintf (tmp, sizeof (tmp), _("Create %s?"), s);
1264 if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
1277 CLEARLINE (LINES - 1);
1281 void mutt_display_sanitize (char *s)
1289 void mutt_sleep (short s)
1297 /* Decrease a file's modification time by 1 second */
1299 time_t mutt_decrease_mtime (const char *f, struct stat *st)
1301 struct utimbuf utim;
1306 if (stat (f, &_st) == -1)
1311 if ((mtime = st->st_mtime) == time (NULL)) {
1313 utim.actime = mtime;
1314 utim.modtime = mtime;
1321 const char *mutt_make_version (void)
1323 static char vstring[STRING];
1325 snprintf (vstring, sizeof (vstring), "Mutt-ng %s (%s) based on Mutt 1.5.9",
1326 MUTT_VERSION, ReleaseDate);
1330 void mutt_free_spam_list (SPAM_LIST ** list)
1338 *list = (*list)->next;
1340 mem_free(&p->template);
1345 int mutt_match_spam_list (const char *s, SPAM_LIST * l, char *text, int x)
1347 static regmatch_t *pmatch = NULL;
1348 static int nmatch = 0;
1357 for (; l; l = l->next) {
1358 /* If this pattern needs more matches, expand pmatch. */
1359 if (l->nmatch > nmatch) {
1360 mem_realloc (&pmatch, l->nmatch * sizeof (regmatch_t));
1364 /* Does this pattern match? */
1366 (l->rx->rx, s, (size_t) l->nmatch, (regmatch_t *) pmatch,
1368 debug_print (5, ("%s matches %s\n%d subst", s, l->rx->pattern, l->rx->rx->re_nsub));
1370 /* Copy template into text, with substitutions. */
1371 for (p = l->template; *p;) {
1373 n = atoi (++p); /* find pmatch index */
1374 while (isdigit (*p))
1375 ++p; /* skip subst token */
1376 for (i = pmatch[n].rm_so; (i < pmatch[n].rm_eo) && (tlen < x); i++)
1377 text[tlen++] = s[i];
1380 text[tlen++] = *p++;
1384 debug_print (5, ("\"%s\"\n", text));
1392 int mutt_cmp_header (const HEADER * h1, const HEADER * h2) {
1394 if (h1->received != h2->received ||
1395 h1->date_sent != h2->date_sent ||
1396 h1->content->length != h2->content->length ||
1397 h1->lines != h2->lines ||
1398 h1->zhours != h2->zhours ||
1399 h1->zminutes != h2->zminutes ||
1400 h1->zoccident != h2->zoccident ||
1401 h1->mime != h2->mime ||
1402 !mutt_cmp_env (h1->env, h2->env) ||
1403 !mutt_cmp_body (h1->content, h2->content))
1409 if (h1 == NULL && h2 == NULL)
1416 /* return 1 if address lists are strictly identical */
1417 int mutt_cmp_addr (const ADDRESS * a, const ADDRESS * b)
1420 if (str_cmp (a->mailbox, b->mailbox) ||
1421 str_cmp (a->personal, b->personal))
1433 int mutt_cmp_list (const LIST * a, const LIST * b)
1436 if (str_cmp (a->data, b->data))
1448 int mutt_cmp_env (const ENVELOPE * e1, const ENVELOPE * e2)
1451 if (str_cmp (e1->message_id, e2->message_id) ||
1452 str_cmp (e1->subject, e2->subject) ||
1453 !mutt_cmp_list (e1->references, e2->references) ||
1454 !mutt_cmp_addr (e1->from, e2->from) ||
1455 !mutt_cmp_addr (e1->sender, e2->sender) ||
1456 !mutt_cmp_addr (e1->reply_to, e2->reply_to) ||
1457 !mutt_cmp_addr (e1->to, e2->to) ||
1458 !mutt_cmp_addr (e1->cc, e2->cc) ||
1459 !mutt_cmp_addr (e1->return_path, e2->return_path))
1465 if (e1 == NULL && e2 == NULL)
1472 int mutt_cmp_param (const PARAMETER * p1, const PARAMETER * p2)
1475 if (str_cmp (p1->attribute, p2->attribute) ||
1476 str_cmp (p1->value, p2->value))
1488 int mutt_cmp_body (const BODY * b1, const BODY * b2)
1490 if (b1->type != b2->type ||
1491 b1->encoding != b2->encoding ||
1492 str_cmp (b1->subtype, b2->subtype) ||
1493 str_cmp (b1->description, b2->description) ||
1494 !mutt_cmp_param (b1->parameter, b2->parameter) ||
1495 b1->length != b2->length)