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.
23 #include <sys/types.h>
29 #include <lib-lib/mem.h>
30 #include <lib-lib/ascii.h>
31 #include <lib-lib/str.h>
32 #include <lib-lib/macros.h>
33 #include <lib-lib/buffer.h>
34 #include <lib-lib/file.h>
35 #include <lib-lib/url.h>
37 #include <lib-mime/mime.h>
39 #include <lib-ui/curses.h>
40 #include <lib-ui/enter.h>
49 #include <imap/imap.h>
50 #include <imap/mx_imap.h>
52 #include <lib-crypt/crypt.h>
54 #define SW (option(OPTMBOXPANE)?SidebarWidth:0)
56 /* Modified by blong to accept a "suggestion" for file name. If
57 * that file exists, then construct one with unique name but
58 * keep any extension. This might fail, I guess.
59 * Renamed to mutt_adv_mktemp so I only have to change where it's
60 * called, and not all possible cases.
62 void mutt_adv_mktemp (const char* dir, char *s, ssize_t l)
64 char buf[_POSIX_PATH_MAX];
65 char tmp[_POSIX_PATH_MAX];
70 m_strcpy(buf, sizeof(buf), m_strisempty(dir) ? NONULL(Tempdir) : dir);
71 mutt_expand_path (buf, sizeof (buf));
73 snprintf (s, l, "%s/muttXXXXXX", buf);
77 m_strcpy(tmp, sizeof(tmp), s);
78 mutt_sanitize_filename (tmp, 1);
79 snprintf (s, l, "%s/%s", buf, tmp);
80 if (lstat (s, &sb) == -1 && errno == ENOENT)
82 if ((period = strrchr (tmp, '.')) != NULL)
84 snprintf (s, l, "%s/%s.XXXXXX", buf, tmp);
89 m_strcpy(s + sl, l - sl, period);
94 /* create a send-mode duplicate from a receive-mode body */
96 int mutt_copy_body (FILE * fp, BODY ** tgt, BODY * src)
98 char tmp[_POSIX_PATH_MAX];
101 parameter_t *par, **ppar;
107 m_strcpy(tmp, sizeof(tmp), src->filename);
114 mutt_adv_mktemp (NULL, tmp, sizeof (tmp));
115 if (mutt_save_attachment (fp, src, tmp, 0, NULL) == -1)
121 memcpy (b, src, sizeof (BODY));
125 b->filename = m_strdup(tmp);
126 b->use_disp = use_disp;
129 if (mutt_is_text_part (b))
132 b->xtype = m_strdup(b->xtype);
133 b->subtype = m_strdup(b->subtype);
134 b->form_name = m_strdup(b->form_name);
135 b->filename = m_strdup(b->filename);
136 b->d_filename = m_strdup(b->d_filename);
137 b->description = m_strdup(b->description);
140 * we don't seem to need the HEADER structure currently.
141 * XXX - this may change in the future
147 /* copy parameters */
148 for (par = b->parameter, ppar = &b->parameter; par;
149 ppar = &(*ppar)->next, par = par->next) {
150 *ppar = parameter_new();
151 (*ppar)->attribute = m_strdup(par->attribute);
152 (*ppar)->value = m_strdup(par->value);
155 mutt_stamp_attachment (b);
160 /* returns true if the header contained in "s" is in list "t" */
161 int mutt_matches_ignore (const char *s, string_list_t * t)
163 for (; t; t = t->next) {
164 if (!ascii_strncasecmp (s, t->data, m_strlen(t->data))
171 /* prepend the path part of *path to *lnk */
172 void mutt_expand_link (char *newpath, const char *path, const char *lnk)
174 const char *lb = NULL;
177 /* lnk is full path */
179 m_strcpy(newpath, _POSIX_PATH_MAX, lnk);
183 if ((lb = strrchr (path, '/')) == NULL) {
185 m_strcpy(newpath, _POSIX_PATH_MAX, lnk);
190 memcpy (newpath, path, len);
191 m_strcpy(newpath + len, _POSIX_PATH_MAX - len, lnk);
194 char *mutt_expand_path (char *s, ssize_t slen)
196 return _mutt_expand_path (s, slen, 0);
199 char *_mutt_expand_path (char *s, ssize_t slen, int rx)
201 char p[_POSIX_PATH_MAX] = "";
202 char q[_POSIX_PATH_MAX] = "";
203 char tmp[_POSIX_PATH_MAX];
206 const char *tail = "";
216 if (*(s + 1) == '/' || *(s + 1) == 0) {
217 m_strcpy(p, sizeof(p), NONULL(Homedir));
223 if ((t = strchr (s + 1, '/')))
226 if ((pw = getpwnam (s + 1))) {
227 m_strcpy(p, sizeof(p), pw->pw_dir);
236 /* user not found! */
249 /* if folder = imap[s]://host/: don't append slash */
250 if (imap_is_magic (NONULL (Maildir), NULL) == M_IMAP &&
251 Maildir[m_strlen(Maildir) - 1] == '/')
252 m_strcpy(p, sizeof(p), NONULL(Maildir));
254 snprintf (p, sizeof (p), "%s/", NONULL (Maildir));
260 /* elm compatibility, @ expands alias to user name */
268 if ((alias = alias_lookup(s + 1))) {
270 h->env = envelope_new();
271 h->env->from = h->env->to = alias;
272 mutt_default_save (p, sizeof (p), h);
273 h->env->from = h->env->to = NULL;
275 /* Avoid infinite recursion if the resulting folder starts with '@' */
286 m_strcpy(p, sizeof(p), NONULL(Inbox));
293 m_strcpy(p, sizeof(p), NONULL(Outbox));
300 if (*(s + 1) == '!') {
301 m_strcpy(p, sizeof(p), NONULL(LastFolder));
305 m_strcpy(p, sizeof(p), NONULL(Spoolfile));
313 m_strcpy(p, sizeof(p), NONULL(LastFolder));
320 m_strcpy(p, sizeof(p), NONULL(CurrentFolder));
332 if (rx && *p && !recurse) {
333 rx_sanitize_string (q, sizeof (q), p);
334 snprintf (tmp, sizeof (tmp), "%s%s", q, tail);
337 snprintf (tmp, sizeof (tmp), "%s%s", p, tail);
339 m_strcpy(s, slen, tmp);
346 /* move all the headers from extra not present in base into base */
347 void mutt_merge_envelopes(ENVELOPE* base, ENVELOPE** extra)
349 /* copies each existing element if necessary, and sets the element
350 * to NULL in the source so that envelope_delete doesn't leave us
351 * with dangling pointers. */
352 #define MOVE_ELEM(h) if (!base->h) { base->h = (*extra)->h; (*extra)->h = NULL; }
353 MOVE_ELEM(return_path);
360 MOVE_ELEM(mail_followup_to);
361 MOVE_ELEM(list_post);
362 MOVE_ELEM(message_id);
363 MOVE_ELEM(supersedes);
366 if (!base->refs_changed) {
367 MOVE_ELEM(references);
369 if (!base->irt_changed) {
370 MOVE_ELEM(in_reply_to);
372 /* real_subj is subordinate to subject */
373 if (!base->subject) {
374 base->subject = (*extra)->subject;
375 base->real_subj = (*extra)->real_subj;
376 (*extra)->subject = NULL;
377 (*extra)->real_subj = NULL;
379 /* spam and user headers should never be hashed, and the new envelope may
380 * have better values. Use new versions regardless. */
381 mutt_buffer_free (&base->spam);
382 string_list_wipe(&base->userhdrs);
387 envelope_delete(extra);
390 void _mutt_mktemp (char *s, const char *src, int line)
393 snprintf (s, _POSIX_PATH_MAX, "%s/madmutt-%s-%d-%d-%d-%x%x", NONULL (Tempdir),
394 NONULL (Hostname), (int) getuid (), (int) getpid (), Counter++,
395 (unsigned int) rand(), (unsigned int) rand());
399 /* collapse the pathname using ~ or = when possible */
400 void mutt_pretty_mailbox (char *s)
406 scheme = url_check_scheme (s);
408 if (scheme == U_IMAP || scheme == U_IMAPS) {
409 imap_pretty_mailbox (s);
413 /* if s is an url, only collapse path component */
414 if (scheme != U_UNKNOWN) {
415 p = strchr (s, ':') + 1;
416 if (!strncmp (p, "//", 2))
417 q = strchr (p + 2, '/');
419 q = strchr (p, '\0');
423 /* first attempt to collapse the pathname */
425 if (*p == '/' && p[1] == '/') {
429 else if (p[0] == '/' && p[1] == '.' && p[2] == '/') {
438 if (m_strncmp(s, Maildir, (len = m_strlen(Maildir))) == 0 &&
441 memmove (s, s + len, m_strlen(s + len) + 1);
443 else if (m_strncmp(s, Homedir, (len = m_strlen(Homedir))) == 0 &&
446 memmove (s, s + len - 1, m_strlen(s + len - 1) + 1);
450 void mutt_pretty_size (char *s, ssize_t len, long n)
453 m_strcpy(s, len, "0K");
454 else if (n < 10189) /* 0.1K - 9.9K */
455 snprintf (s, len, "%3.1fK", (n < 103) ? 0.1 : n / 1024.0);
456 else if (n < 1023949) { /* 10K - 999K */
457 /* 51 is magic which causes 10189/10240 to be rounded up to 10 */
458 snprintf (s, len, "%ldK", (n + 51) / 1024);
460 else if (n < 10433332) /* 1.0M - 9.9M */
461 snprintf (s, len, "%3.1fM", n / 1048576.0);
464 /* (10433332 + 52428) / 1048576 = 10 */
465 snprintf (s, len, "%ldM", (n + 52428) / 1048576);
469 void mutt_expand_file_fmt(char *dest, ssize_t destlen,
470 const char *fmt, const char *src)
472 char tmp[LONG_STRING];
474 mutt_quote_filename(tmp, sizeof(tmp), src);
475 mutt_expand_fmt(dest, destlen, fmt, tmp);
478 void mutt_expand_fmt(char *dst, ssize_t dlen,
479 const char *fmt, const char *src)
484 while (*fmt && pos < dlen - 1) {
489 pos += m_strcpy(dst + pos, dlen - pos, src);
507 pos += m_strcpy(dst + pos, dlen - pos, " ");
508 pos += m_strcpy(dst + pos, dlen - pos, src);
512 /* return 0 on success, -1 on abort, 1 on error */
513 int mutt_check_overwrite (const char *attname, const char *path,
514 char *fname, ssize_t flen, int *append,
518 char tmp[_POSIX_PATH_MAX];
521 m_strcpy(fname, flen, path);
522 if (access (fname, F_OK) != 0)
524 if (stat (fname, &st) != 0)
526 if (S_ISDIR (st.st_mode)) {
528 switch (mutt_multi_choice
529 (_("File is a directory, save under it? [(y)es, (n)o, (a)ll]"),
532 m_strreplace(directory, fname);
547 mutt_yesorno (_("File is a directory, save under it?"),
549 return (rc == M_NO) ? 1 : -1;
551 if (!attname || !attname[0]) {
553 if (mutt_get_field (_("File under directory: "), tmp, sizeof (tmp),
554 M_FILE | M_CLEAR) != 0 || !tmp[0])
556 mutt_concat_path(fname, flen, path, tmp);
559 mutt_concat_path(fname, flen, path, mutt_basename(attname));
562 if (*append == 0 && access (fname, F_OK) == 0) {
563 switch (mutt_multi_choice
564 (_("File exists, (o)verwrite, (a)ppend, or (c)ancel?"), _("oac")))
572 *append = M_SAVE_APPEND;
574 case 1: /* overwrite */
575 *append = M_SAVE_OVERWRITE;
582 void mutt_save_path(char *d, ssize_t dsize, address_t *a)
584 if (a && a->mailbox) {
585 m_strcpy(d, dsize, a->mailbox);
587 if (!option(OPTSAVEADDRESS)) {
588 char *p = strpbrk(d, "%@");
598 void mutt_safe_path(char *s, ssize_t l, address_t *a)
600 mutt_save_path(s, l, a);
603 if (*s == '/' || ISSPACE(*s) || !IsPrint((unsigned char)*s))
609 void mutt_FormatString (char *dest, /* output buffer */
610 ssize_t destlen, /* output buffer len */
611 const char *src, /* template string */
612 format_t * callback, /* callback for processing */
613 unsigned long data, /* callback data */
615 { /* callback flags */
616 char prefix[SHORT_STRING], buf[LONG_STRING], *cp, *wptr = dest, ch;
617 char ifstring[SHORT_STRING], elsestring[SHORT_STRING];
618 ssize_t wlen, wid, count, col, len;
621 destlen--; /* save room for the terminal \0 */
622 wlen = (flags & M_FORMAT_ARROWCURSOR && option (OPTARROWCURSOR)) ? 3 : 0;
625 while (*src && wlen < destlen) {
636 flags |= M_FORMAT_OPTIONAL;
640 flags &= ~M_FORMAT_OPTIONAL;
642 /* eat the format string */
645 while (count < ssizeof (prefix) &&
646 (isdigit ((unsigned char) *src) || *src == '.' || *src == '-'))
655 break; /* bad format */
657 ch = *src++; /* save the character to switch on */
659 if (flags & M_FORMAT_OPTIONAL) {
661 break; /* bad format */
664 /* eat the `if' part of the string */
667 while (count < ssizeof (ifstring) && *src && *src != '?'
674 /* eat the `else' part of the string (optional) */
676 src++; /* skip the & */
679 while (count < ssizeof (elsestring) && *src && *src != '?') {
686 break; /* bad format */
688 src++; /* move past the trailing `?' */
691 /* handle generic cases first */
693 /* right justify to EOL */
694 ch = *src++; /* pad char */
695 /* calculate space left on line. if we've already written more data
696 than will fit on the line, ignore the rest of the line */
697 if (DrawFullLine || option (OPTSTATUSONTOP))
698 count = (COLS < destlen ? COLS : destlen);
700 count = ((COLS - SW) < destlen ? (COLS - SW) : destlen);
702 count -= col; /* how many columns left on this line */
703 mutt_FormatString (buf, sizeof (buf), src, callback, data, flags);
706 count -= wid; /* how many chars to pad */
707 memset (wptr, ch, count);
711 if (wid + wlen > destlen)
712 len = destlen - wlen;
715 memcpy (wptr, buf, len);
718 col += mutt_strwidth (buf);
720 break; /* skip rest of input */
722 else if (ch == '|') {
727 if (destlen > wlen) {
728 count = destlen - wlen;
729 memset (wptr, ch, count);
732 break; /* skip rest of input */
738 while (ch == '_' || ch == ':') {
747 /* use callback function to handle this case */
749 callback (buf, sizeof (buf), ch, src, prefix, ifstring, elsestring,
762 if ((len = m_strlen(buf)) + wlen > destlen)
763 len = (destlen - wlen > 0) ? (destlen - wlen) : 0;
765 memcpy (wptr, buf, len);
768 col += mutt_strwidth (buf);
771 else if (*src == '\\') {
800 unsigned int bar = strcspn(src, "%\\");
801 char *bar2 = p_dupstr(src, bar);
807 col += mutt_strwidth (bar2);
814 if (flags & M_FORMAT_MAKEPRINT) {
815 /* Make sure that the string is printable by changing all non-printable
816 chars to dots, or spaces for non-printable whitespace */
817 for (cp = dest; *cp; cp++)
818 if (!IsPrint (*cp) && !((flags & M_FORMAT_TREE) && (*cp <= M_TREE_MAX)))
819 *cp = isspace ((unsigned char) *cp) ? ' ' : '.';
824 /* This function allows the user to specify a command to read stdout from in
825 place of a normal file. If the last character in the string is a pipe (|),
826 then we assume it is a commmand to run instead of a normal file. */
827 FILE *mutt_open_read (const char *path, pid_t * thepid)
829 int len = m_strlen(path);
832 if (path[len - 1] == '|') {
833 char *s = m_strdup(path);
835 /* read from a pipe */
839 *thepid = mutt_create_filter (s, NULL, &f, NULL);
842 f = fopen (path, "r");
851 /* returns 0 if OK to proceed, -1 to abort, 1 to retry */
852 int mutt_save_confirm (const char *s, struct stat *st)
854 char tmp[_POSIX_PATH_MAX];
859 magic = mx_get_magic (s);
861 if (magic == M_POP) {
862 mutt_error _("Can't save message to POP mailbox.");
868 if (magic == M_NNTP) {
869 mutt_error _("Can't save message to newsserver.");
875 if (magic > 0 && !mx_access (s, W_OK)) {
876 if (option (OPTCONFIRMAPPEND) &&
877 (!TrashPath || (m_strcmp(s, TrashPath) != 0))) {
878 /* if we're appending to the trash, there's no point in asking */
879 snprintf (tmp, sizeof (tmp), _("Append messages to %s?"), s);
880 if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
887 if (stat (s, st) != -1) {
889 mutt_error (_("%s is not a mailbox!"), s);
899 if (errno == ENOENT) {
900 if (option (OPTCONFIRMCREATE)) {
901 snprintf (tmp, sizeof (tmp), _("Create %s?"), s);
902 if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
915 CLEARLINE (LINES - 1);
919 void mutt_sleep (short s)
921 sleep(MAX(s, SleepTime));
924 /* Decrease a file's modification time by 1 second */
925 time_t mutt_decrease_mtime (const char *f, struct stat *st)
932 if (stat (f, &_st) == -1)
937 if ((mtime = st->st_mtime) == time (NULL)) {
940 utim.modtime = mtime;
947 /* sets mtime of 'to' to mtime of 'from' */
948 void mutt_set_mtime (const char* from, const char* to) {
952 if (stat (from, &st) != -1) {
953 utim.actime = st.st_mtime;
954 utim.modtime = st.st_mtime;
959 const char *mutt_make_version (int full)
961 static char vstring[STRING];
964 snprintf (vstring, sizeof (vstring),
965 "Madmutt/%s-r%s (based on Mutt 1.5.11)",
966 MUTT_VERSION, MUTT_REVISION);
968 snprintf (vstring, sizeof (vstring), "Madmutt/%s-%s",
969 MUTT_VERSION, MUTT_REVISION);
973 void mutt_free_spam_list (SPAM_LIST ** list)
981 *list = (*list)->next;
983 p_delete(&p->template);
988 int mutt_match_spam_list (const char *s, SPAM_LIST * l, char *text, int x)
990 static regmatch_t *pmatch = NULL;
991 static int nmatch = 0;
1000 for (; l; l = l->next) {
1001 /* If this pattern needs more matches, expand pmatch. */
1002 if (l->nmatch > nmatch) {
1003 p_realloc(&pmatch, l->nmatch);
1007 /* Does this pattern match? */
1008 if (regexec(l->rx->rx, s, l->nmatch, (regmatch_t *)pmatch, (int) 0) == 0)
1010 /* Copy template into text, with substitutions. */
1011 for (p = l->template; *p;) {
1013 n = atoi (++p); /* find pmatch index */
1014 while (isdigit ((unsigned char) *p))
1015 ++p; /* skip subst token */
1016 for (i = pmatch[n].rm_so; (i < pmatch[n].rm_eo) && (tlen < x); i++)
1017 text[tlen++] = s[i];
1020 text[tlen++] = *p++;
1031 int mutt_cmp_header (const HEADER * h1, const HEADER * h2) {
1033 if (h1->received != h2->received ||
1034 h1->date_sent != h2->date_sent ||
1035 h1->content->length != h2->content->length ||
1036 h1->lines != h2->lines ||
1037 h1->zhours != h2->zhours ||
1038 h1->zminutes != h2->zminutes ||
1039 h1->zoccident != h2->zoccident ||
1040 h1->mime != h2->mime ||
1041 !mutt_cmp_env (h1->env, h2->env) ||
1042 !mutt_cmp_body (h1->content, h2->content))
1048 if (h1 == NULL && h2 == NULL)
1055 /* return 1 if address lists are strictly identical */
1056 int mutt_cmp_addr (const address_t * a, const address_t * b)
1059 if (m_strcmp(a->mailbox, b->mailbox) ||
1060 m_strcmp(a->personal, b->personal))
1072 int mutt_cmp_list (const string_list_t * a, const string_list_t * b)
1075 if (m_strcmp(a->data, b->data))
1087 int mutt_cmp_env (const ENVELOPE * e1, const ENVELOPE * e2)
1090 if (m_strcmp(e1->message_id, e2->message_id) ||
1091 m_strcmp(e1->subject, e2->subject) ||
1092 !mutt_cmp_list (e1->references, e2->references) ||
1093 !mutt_cmp_addr (e1->from, e2->from) ||
1094 !mutt_cmp_addr (e1->sender, e2->sender) ||
1095 !mutt_cmp_addr (e1->reply_to, e2->reply_to) ||
1096 !mutt_cmp_addr (e1->to, e2->to) ||
1097 !mutt_cmp_addr (e1->cc, e2->cc) ||
1098 !mutt_cmp_addr (e1->return_path, e2->return_path))
1104 if (e1 == NULL && e2 == NULL)
1111 int mutt_cmp_body (const BODY * b1, const BODY * b2)
1113 if (b1->type != b2->type ||
1114 b1->encoding != b2->encoding ||
1115 m_strcmp(b1->subtype, b2->subtype) ||
1116 m_strcmp(b1->description, b2->description) ||
1117 !parameter_equal(b1->parameter, b2->parameter) ||
1118 b1->length != b2->length)