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 BODY *mutt_new_body (void)
58 BODY *p = p_new(BODY, 1);
60 p->disposition = DISPATTACH;
66 /* Modified by blong to accept a "suggestion" for file name. If
67 * that file exists, then construct one with unique name but
68 * keep any extension. This might fail, I guess.
69 * Renamed to mutt_adv_mktemp so I only have to change where it's
70 * called, and not all possible cases.
72 void mutt_adv_mktemp (const char* dir, char *s, ssize_t l)
74 char buf[_POSIX_PATH_MAX];
75 char tmp[_POSIX_PATH_MAX];
80 m_strcpy(buf, sizeof(buf), m_strisempty(dir) ? NONULL(Tempdir) : dir);
81 mutt_expand_path (buf, sizeof (buf));
83 snprintf (s, l, "%s/muttXXXXXX", buf);
87 m_strcpy(tmp, sizeof(tmp), s);
88 mutt_sanitize_filename (tmp, 1);
89 snprintf (s, l, "%s/%s", buf, tmp);
90 if (lstat (s, &sb) == -1 && errno == ENOENT)
92 if ((period = strrchr (tmp, '.')) != NULL)
94 snprintf (s, l, "%s/%s.XXXXXX", buf, tmp);
99 m_strcpy(s + sl, l - sl, period);
104 /* create a send-mode duplicate from a receive-mode body */
106 int mutt_copy_body (FILE * fp, BODY ** tgt, BODY * src)
108 char tmp[_POSIX_PATH_MAX];
111 parameter_t *par, **ppar;
117 m_strcpy(tmp, sizeof(tmp), src->filename);
124 mutt_adv_mktemp (NULL, tmp, sizeof (tmp));
125 if (mutt_save_attachment (fp, src, tmp, 0, NULL) == -1)
128 *tgt = mutt_new_body ();
131 memcpy (b, src, sizeof (BODY));
135 b->filename = m_strdup(tmp);
136 b->use_disp = use_disp;
139 if (mutt_is_text_part (b))
142 b->xtype = m_strdup(b->xtype);
143 b->subtype = m_strdup(b->subtype);
144 b->form_name = m_strdup(b->form_name);
145 b->filename = m_strdup(b->filename);
146 b->d_filename = m_strdup(b->d_filename);
147 b->description = m_strdup(b->description);
150 * we don't seem to need the HEADER structure currently.
151 * XXX - this may change in the future
157 /* copy parameters */
158 for (par = b->parameter, ppar = &b->parameter; par;
159 ppar = &(*ppar)->next, par = par->next) {
160 *ppar = parameter_new();
161 (*ppar)->attribute = m_strdup(par->attribute);
162 (*ppar)->value = m_strdup(par->value);
165 mutt_stamp_attachment (b);
171 static void body_wipe(BODY *b)
174 parameter_list_wipe(&b->parameter);
176 if (b->unlink && b->filename) {
177 unlink (b->filename);
180 p_delete(&b->filename);
181 p_delete(&b->content);
183 p_delete(&b->subtype);
184 p_delete(&b->description);
185 p_delete(&b->form_name);
188 /* Don't free twice (b->hdr->content = b->parts) */
189 b->hdr->content = NULL;
190 header_delete(&b->hdr);
194 mutt_free_body(&b->parts);
197 DO_DELETE(BODY, body);
199 void mutt_free_body(BODY **p)
209 HEADER *mutt_dup_header (HEADER * h)
214 memcpy (hnew, h, sizeof (HEADER));
218 /* returns true if the header contained in "s" is in list "t" */
219 int mutt_matches_ignore (const char *s, string_list_t * t)
221 for (; t; t = t->next) {
222 if (!ascii_strncasecmp (s, t->data, m_strlen(t->data))
229 /* prepend the path part of *path to *lnk */
230 void mutt_expand_link (char *newpath, const char *path, const char *lnk)
232 const char *lb = NULL;
235 /* lnk is full path */
237 m_strcpy(newpath, _POSIX_PATH_MAX, lnk);
241 if ((lb = strrchr (path, '/')) == NULL) {
243 m_strcpy(newpath, _POSIX_PATH_MAX, lnk);
248 memcpy (newpath, path, len);
249 m_strcpy(newpath + len, _POSIX_PATH_MAX - len, lnk);
252 char *mutt_expand_path (char *s, ssize_t slen)
254 return _mutt_expand_path (s, slen, 0);
257 char *_mutt_expand_path (char *s, ssize_t slen, int rx)
259 char p[_POSIX_PATH_MAX] = "";
260 char q[_POSIX_PATH_MAX] = "";
261 char tmp[_POSIX_PATH_MAX];
264 const char *tail = "";
274 if (*(s + 1) == '/' || *(s + 1) == 0) {
275 m_strcpy(p, sizeof(p), NONULL(Homedir));
281 if ((t = strchr (s + 1, '/')))
284 if ((pw = getpwnam (s + 1))) {
285 m_strcpy(p, sizeof(p), pw->pw_dir);
294 /* user not found! */
307 /* if folder = imap[s]://host/: don't append slash */
308 if (imap_is_magic (NONULL (Maildir), NULL) == M_IMAP &&
309 Maildir[m_strlen(Maildir) - 1] == '/')
310 m_strcpy(p, sizeof(p), NONULL(Maildir));
312 snprintf (p, sizeof (p), "%s/", NONULL (Maildir));
318 /* elm compatibility, @ expands alias to user name */
326 if ((alias = alias_lookup(s + 1))) {
328 h->env = envelope_new();
329 h->env->from = h->env->to = alias;
330 mutt_default_save (p, sizeof (p), h);
331 h->env->from = h->env->to = NULL;
333 /* Avoid infinite recursion if the resulting folder starts with '@' */
344 m_strcpy(p, sizeof(p), NONULL(Inbox));
351 m_strcpy(p, sizeof(p), NONULL(Outbox));
358 if (*(s + 1) == '!') {
359 m_strcpy(p, sizeof(p), NONULL(LastFolder));
363 m_strcpy(p, sizeof(p), NONULL(Spoolfile));
371 m_strcpy(p, sizeof(p), NONULL(LastFolder));
378 m_strcpy(p, sizeof(p), NONULL(CurrentFolder));
390 if (rx && *p && !recurse) {
391 rx_sanitize_string (q, sizeof (q), p);
392 snprintf (tmp, sizeof (tmp), "%s%s", q, tail);
395 snprintf (tmp, sizeof (tmp), "%s%s", p, tail);
397 m_strcpy(s, slen, tmp);
404 /* returns 1 if Mutt can't display this type of data, 0 otherwise */
405 int mutt_needs_mailcap (BODY * m)
410 if (!ascii_strcasecmp ("plain", m->subtype) ||
411 !ascii_strcasecmp ("rfc822-headers", m->subtype) ||
412 !ascii_strcasecmp ("enriched", m->subtype))
416 case TYPEAPPLICATION:
417 if (mutt_is_application_pgp (m))
419 if (mutt_is_application_smime (m))
431 int mutt_is_text_part (BODY * b)
434 char *s = b->subtype;
436 if (mutt_is_application_pgp (b))
442 if (t == TYPEMESSAGE) {
443 if (!ascii_strcasecmp ("delivery-status", s))
447 if (t == TYPEAPPLICATION) {
448 if (!ascii_strcasecmp ("pgp-keys", s))
455 /* move all the headers from extra not present in base into base */
456 void mutt_merge_envelopes(ENVELOPE* base, ENVELOPE** extra)
458 /* copies each existing element if necessary, and sets the element
459 * to NULL in the source so that envelope_delete doesn't leave us
460 * with dangling pointers. */
461 #define MOVE_ELEM(h) if (!base->h) { base->h = (*extra)->h; (*extra)->h = NULL; }
462 MOVE_ELEM(return_path);
469 MOVE_ELEM(mail_followup_to);
470 MOVE_ELEM(list_post);
471 MOVE_ELEM(message_id);
472 MOVE_ELEM(supersedes);
475 if (!base->refs_changed) {
476 MOVE_ELEM(references);
478 if (!base->irt_changed) {
479 MOVE_ELEM(in_reply_to);
481 /* real_subj is subordinate to subject */
482 if (!base->subject) {
483 base->subject = (*extra)->subject;
484 base->real_subj = (*extra)->real_subj;
485 (*extra)->subject = NULL;
486 (*extra)->real_subj = NULL;
488 /* spam and user headers should never be hashed, and the new envelope may
489 * have better values. Use new versions regardless. */
490 mutt_buffer_free (&base->spam);
491 string_list_wipe(&base->userhdrs);
496 envelope_delete(extra);
499 void _mutt_mktemp (char *s, const char *src, int line)
502 snprintf (s, _POSIX_PATH_MAX, "%s/madmutt-%s-%d-%d-%d-%x%x", NONULL (Tempdir),
503 NONULL (Hostname), (int) getuid (), (int) getpid (), Counter++,
504 (unsigned int) rand(), (unsigned int) rand());
508 /* collapse the pathname using ~ or = when possible */
509 void mutt_pretty_mailbox (char *s)
515 scheme = url_check_scheme (s);
517 if (scheme == U_IMAP || scheme == U_IMAPS) {
518 imap_pretty_mailbox (s);
522 /* if s is an url, only collapse path component */
523 if (scheme != U_UNKNOWN) {
524 p = strchr (s, ':') + 1;
525 if (!strncmp (p, "//", 2))
526 q = strchr (p + 2, '/');
528 q = strchr (p, '\0');
532 /* first attempt to collapse the pathname */
534 if (*p == '/' && p[1] == '/') {
538 else if (p[0] == '/' && p[1] == '.' && p[2] == '/') {
547 if (m_strncmp(s, Maildir, (len = m_strlen(Maildir))) == 0 &&
550 memmove (s, s + len, m_strlen(s + len) + 1);
552 else if (m_strncmp(s, Homedir, (len = m_strlen(Homedir))) == 0 &&
555 memmove (s, s + len - 1, m_strlen(s + len - 1) + 1);
559 void mutt_pretty_size (char *s, ssize_t len, long n)
562 m_strcpy(s, len, "0K");
563 else if (n < 10189) /* 0.1K - 9.9K */
564 snprintf (s, len, "%3.1fK", (n < 103) ? 0.1 : n / 1024.0);
565 else if (n < 1023949) { /* 10K - 999K */
566 /* 51 is magic which causes 10189/10240 to be rounded up to 10 */
567 snprintf (s, len, "%ldK", (n + 51) / 1024);
569 else if (n < 10433332) /* 1.0M - 9.9M */
570 snprintf (s, len, "%3.1fM", n / 1048576.0);
573 /* (10433332 + 52428) / 1048576 = 10 */
574 snprintf (s, len, "%ldM", (n + 52428) / 1048576);
578 void mutt_expand_file_fmt (char *dest, ssize_t destlen, const char *fmt,
581 char tmp[LONG_STRING];
583 mutt_quote_filename (tmp, sizeof (tmp), src);
584 mutt_expand_fmt (dest, destlen, fmt, tmp);
587 void mutt_expand_fmt (char *dest, ssize_t destlen, const char *fmt,
595 slen = m_strlen(src);
598 for (p = fmt, d = dest; destlen && *p; p++) {
607 m_strcpy(d, destlen + 1, src);
608 d += destlen > slen ? slen : destlen;
609 destlen -= destlen > slen ? slen : destlen;
626 if (!found && destlen > 0) {
627 m_strcat(dest, destlen, " ");
628 m_strcat(dest, destlen, src);
633 /* return 0 on success, -1 on abort, 1 on error */
634 int mutt_check_overwrite (const char *attname, const char *path,
635 char *fname, ssize_t flen, int *append,
639 char tmp[_POSIX_PATH_MAX];
642 m_strcpy(fname, flen, path);
643 if (access (fname, F_OK) != 0)
645 if (stat (fname, &st) != 0)
647 if (S_ISDIR (st.st_mode)) {
649 switch (mutt_multi_choice
650 (_("File is a directory, save under it? [(y)es, (n)o, (a)ll]"),
653 m_strreplace(directory, fname);
668 mutt_yesorno (_("File is a directory, save under it?"),
670 return (rc == M_NO) ? 1 : -1;
672 if (!attname || !attname[0]) {
674 if (mutt_get_field (_("File under directory: "), tmp, sizeof (tmp),
675 M_FILE | M_CLEAR) != 0 || !tmp[0])
677 mutt_concat_path(fname, flen, path, tmp);
680 mutt_concat_path(fname, flen, path, mutt_basename(attname));
683 if (*append == 0 && access (fname, F_OK) == 0) {
684 switch (mutt_multi_choice
685 (_("File exists, (o)verwrite, (a)ppend, or (c)ancel?"), _("oac")))
693 *append = M_SAVE_APPEND;
695 case 1: /* overwrite */
696 *append = M_SAVE_OVERWRITE;
703 void mutt_save_path (char *d, ssize_t dsize, address_t * a)
705 if (a && a->mailbox) {
706 m_strcpy(d, dsize, a->mailbox);
707 if (!option (OPTSAVEADDRESS)) {
710 if ((p = strpbrk (d, "%@")))
719 void mutt_safe_path (char *s, ssize_t l, address_t * a)
723 mutt_save_path (s, l, a);
725 if (*p == '/' || ISSPACE (*p) || !IsPrint ((unsigned char) *p))
729 /* counts how many characters in s can be skipped while none of the
730 * characters of c appears */
731 int mutt_skipchars (const char *s, const char *c)
737 register const char *t = c;
747 return (m_strlen(p));
750 void mutt_FormatString (char *dest, /* output buffer */
751 ssize_t destlen, /* output buffer len */
752 const char *src, /* template string */
753 format_t * callback, /* callback for processing */
754 unsigned long data, /* callback data */
756 { /* callback flags */
757 char prefix[SHORT_STRING], buf[LONG_STRING], *cp, *wptr = dest, ch;
758 char ifstring[SHORT_STRING], elsestring[SHORT_STRING];
759 ssize_t wlen, wid, count, col, len;
762 destlen--; /* save room for the terminal \0 */
763 wlen = (flags & M_FORMAT_ARROWCURSOR && option (OPTARROWCURSOR)) ? 3 : 0;
766 while (*src && wlen < destlen) {
777 flags |= M_FORMAT_OPTIONAL;
781 flags &= ~M_FORMAT_OPTIONAL;
783 /* eat the format string */
786 while (count < ssizeof (prefix) &&
787 (isdigit ((unsigned char) *src) || *src == '.' || *src == '-'))
796 break; /* bad format */
798 ch = *src++; /* save the character to switch on */
800 if (flags & M_FORMAT_OPTIONAL) {
802 break; /* bad format */
805 /* eat the `if' part of the string */
808 while (count < ssizeof (ifstring) && *src && *src != '?'
815 /* eat the `else' part of the string (optional) */
817 src++; /* skip the & */
820 while (count < ssizeof (elsestring) && *src && *src != '?') {
827 break; /* bad format */
829 src++; /* move past the trailing `?' */
832 /* handle generic cases first */
834 /* right justify to EOL */
835 ch = *src++; /* pad char */
836 /* calculate space left on line. if we've already written more data
837 than will fit on the line, ignore the rest of the line */
838 if (DrawFullLine || option (OPTSTATUSONTOP))
839 count = (COLS < destlen ? COLS : destlen);
841 count = ((COLS - SW) < destlen ? (COLS - SW) : destlen);
843 count -= col; /* how many columns left on this line */
844 mutt_FormatString (buf, sizeof (buf), src, callback, data, flags);
847 count -= wid; /* how many chars to pad */
848 memset (wptr, ch, count);
852 if (wid + wlen > destlen)
853 len = destlen - wlen;
856 memcpy (wptr, buf, len);
859 col += mutt_strwidth (buf);
861 break; /* skip rest of input */
863 else if (ch == '|') {
868 if (destlen > wlen) {
869 count = destlen - wlen;
870 memset (wptr, ch, count);
873 break; /* skip rest of input */
879 while (ch == '_' || ch == ':') {
888 /* use callback function to handle this case */
890 callback (buf, sizeof (buf), ch, src, prefix, ifstring, elsestring,
903 if ((len = m_strlen(buf)) + wlen > destlen)
904 len = (destlen - wlen > 0) ? (destlen - wlen) : 0;
906 memcpy (wptr, buf, len);
909 col += mutt_strwidth (buf);
912 else if (*src == '\\') {
941 unsigned int bar = mutt_skipchars (src, "%\\");
942 char *bar2 = p_dupstr(src, bar);
948 col += mutt_strwidth (bar2);
955 if (flags & M_FORMAT_MAKEPRINT) {
956 /* Make sure that the string is printable by changing all non-printable
957 chars to dots, or spaces for non-printable whitespace */
958 for (cp = dest; *cp; cp++)
959 if (!IsPrint (*cp) && !((flags & M_FORMAT_TREE) && (*cp <= M_TREE_MAX)))
960 *cp = isspace ((unsigned char) *cp) ? ' ' : '.';
965 /* This function allows the user to specify a command to read stdout from in
966 place of a normal file. If the last character in the string is a pipe (|),
967 then we assume it is a commmand to run instead of a normal file. */
968 FILE *mutt_open_read (const char *path, pid_t * thepid)
970 int len = m_strlen(path);
973 if (path[len - 1] == '|') {
974 char *s = m_strdup(path);
976 /* read from a pipe */
980 *thepid = mutt_create_filter (s, NULL, &f, NULL);
983 f = fopen (path, "r");
992 /* returns 0 if OK to proceed, -1 to abort, 1 to retry */
993 int mutt_save_confirm (const char *s, struct stat *st)
995 char tmp[_POSIX_PATH_MAX];
1000 magic = mx_get_magic (s);
1002 if (magic == M_POP) {
1003 mutt_error _("Can't save message to POP mailbox.");
1009 if (magic == M_NNTP) {
1010 mutt_error _("Can't save message to newsserver.");
1016 if (magic > 0 && !mx_access (s, W_OK)) {
1017 if (option (OPTCONFIRMAPPEND) &&
1018 (!TrashPath || (m_strcmp(s, TrashPath) != 0))) {
1019 /* if we're appending to the trash, there's no point in asking */
1020 snprintf (tmp, sizeof (tmp), _("Append messages to %s?"), s);
1021 if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
1028 if (stat (s, st) != -1) {
1030 mutt_error (_("%s is not a mailbox!"), s);
1035 if (magic != M_IMAP)
1040 if (errno == ENOENT) {
1041 if (option (OPTCONFIRMCREATE)) {
1042 snprintf (tmp, sizeof (tmp), _("Create %s?"), s);
1043 if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
1056 CLEARLINE (LINES - 1);
1060 void mutt_display_sanitize (char *s)
1068 void mutt_sleep (short s)
1076 /* Decrease a file's modification time by 1 second */
1077 time_t mutt_decrease_mtime (const char *f, struct stat *st)
1079 struct utimbuf utim;
1084 if (stat (f, &_st) == -1)
1089 if ((mtime = st->st_mtime) == time (NULL)) {
1091 utim.actime = mtime;
1092 utim.modtime = mtime;
1099 /* sets mtime of 'to' to mtime of 'from' */
1100 void mutt_set_mtime (const char* from, const char* to) {
1101 struct utimbuf utim;
1104 if (stat (from, &st) != -1) {
1105 utim.actime = st.st_mtime;
1106 utim.modtime = st.st_mtime;
1111 const char *mutt_make_version (int full)
1113 static char vstring[STRING];
1116 snprintf (vstring, sizeof (vstring),
1117 "Madmutt/%s-r%s (based on Mutt 1.5.11)",
1118 MUTT_VERSION, MUTT_REVISION);
1120 snprintf (vstring, sizeof (vstring), "Madmutt/%s-%s",
1121 MUTT_VERSION, MUTT_REVISION);
1125 void mutt_free_spam_list (SPAM_LIST ** list)
1133 *list = (*list)->next;
1135 p_delete(&p->template);
1140 int mutt_match_spam_list (const char *s, SPAM_LIST * l, char *text, int x)
1142 static regmatch_t *pmatch = NULL;
1143 static int nmatch = 0;
1152 for (; l; l = l->next) {
1153 /* If this pattern needs more matches, expand pmatch. */
1154 if (l->nmatch > nmatch) {
1155 p_realloc(&pmatch, l->nmatch);
1159 /* Does this pattern match? */
1160 if (regexec(l->rx->rx, s, l->nmatch, (regmatch_t *)pmatch, (int) 0) == 0)
1162 /* Copy template into text, with substitutions. */
1163 for (p = l->template; *p;) {
1165 n = atoi (++p); /* find pmatch index */
1166 while (isdigit ((unsigned char) *p))
1167 ++p; /* skip subst token */
1168 for (i = pmatch[n].rm_so; (i < pmatch[n].rm_eo) && (tlen < x); i++)
1169 text[tlen++] = s[i];
1172 text[tlen++] = *p++;
1183 int mutt_cmp_header (const HEADER * h1, const HEADER * h2) {
1185 if (h1->received != h2->received ||
1186 h1->date_sent != h2->date_sent ||
1187 h1->content->length != h2->content->length ||
1188 h1->lines != h2->lines ||
1189 h1->zhours != h2->zhours ||
1190 h1->zminutes != h2->zminutes ||
1191 h1->zoccident != h2->zoccident ||
1192 h1->mime != h2->mime ||
1193 !mutt_cmp_env (h1->env, h2->env) ||
1194 !mutt_cmp_body (h1->content, h2->content))
1200 if (h1 == NULL && h2 == NULL)
1207 /* return 1 if address lists are strictly identical */
1208 int mutt_cmp_addr (const address_t * a, const address_t * b)
1211 if (m_strcmp(a->mailbox, b->mailbox) ||
1212 m_strcmp(a->personal, b->personal))
1224 int mutt_cmp_list (const string_list_t * a, const string_list_t * b)
1227 if (m_strcmp(a->data, b->data))
1239 int mutt_cmp_env (const ENVELOPE * e1, const ENVELOPE * e2)
1242 if (m_strcmp(e1->message_id, e2->message_id) ||
1243 m_strcmp(e1->subject, e2->subject) ||
1244 !mutt_cmp_list (e1->references, e2->references) ||
1245 !mutt_cmp_addr (e1->from, e2->from) ||
1246 !mutt_cmp_addr (e1->sender, e2->sender) ||
1247 !mutt_cmp_addr (e1->reply_to, e2->reply_to) ||
1248 !mutt_cmp_addr (e1->to, e2->to) ||
1249 !mutt_cmp_addr (e1->cc, e2->cc) ||
1250 !mutt_cmp_addr (e1->return_path, e2->return_path))
1256 if (e1 == NULL && e2 == NULL)
1263 int mutt_cmp_body (const BODY * b1, const BODY * b2)
1265 if (b1->type != b2->type ||
1266 b1->encoding != b2->encoding ||
1267 m_strcmp(b1->subtype, b2->subtype) ||
1268 m_strcmp(b1->description, b2->description) ||
1269 !parameter_equal(b1->parameter, b2->parameter) ||
1270 b1->length != b2->length)