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.
11 #include <lib-lib/lib-lib.h>
17 #include <lib-mime/mime.h>
18 #include <lib-ui/curses.h>
19 #include <lib-ui/enter.h>
20 #include <lib-sys/unix.h>
21 #include <lib-mx/mx.h>
29 #include <imap/imap.h>
31 #include <lib-crypt/crypt.h>
33 #define SW (option(OPTMBOXPANE)?SidebarWidth:0)
35 /* Modified by blong to accept a "suggestion" for file name. If
36 * that file exists, then construct one with unique name but
37 * keep any extension. This might fail, I guess.
38 * Renamed to mutt_adv_mktemp so I only have to change where it's
39 * called, and not all possible cases.
41 void mutt_adv_mktemp (const char* dir, char *s, ssize_t l)
45 fd = m_tempfd(s, l, m_strisempty(dir) ? NONULL(Tempdir) : dir, s);
54 /* returns true if the header contained in "s" is in list "t" */
55 int mutt_matches_ignore (const char *s, string_list_t * t)
57 for (; t; t = t->next) {
58 if (!ascii_strncasecmp (s, t->data, m_strlen(t->data))
65 ssize_t _mutt_expand_path(char *s, ssize_t slen, int rx)
67 char p[_POSIX_PATH_MAX] = "";
68 char tmp[_POSIX_PATH_MAX];
69 const char *tail = "";
72 const address_t *alias;
76 if (s[1] == '/' || s[1] == '\0') {
77 m_strcpy(p, sizeof(p), Homedir);
81 tail = m_strchrnul(s + 1, '/');
83 m_strncpy(tmp, sizeof(tmp), s + 1, tail - s - 1);
85 if ((pw = getpwnam(tmp))) {
86 m_strcpy(p, sizeof(p), pw->pw_dir);
96 /* if folder = imap[s]://host/: don't append slash */
97 if (imap_is_magic(NONULL(Maildir), NULL) == M_IMAP
98 && Maildir[m_strlen(Maildir) - 1] == '/') {
99 m_strcpy(p, sizeof(p), Maildir);
101 snprintf(p, sizeof(p), "%s/", NONULL(Maildir));
107 /* elm compatibility, @ expands alias to user name */
110 if ((alias = alias_lookup(s + 1))) {
113 h.env = envelope_new();
114 h.env->from = h.env->to = (address_t *)alias;
115 mutt_default_save(p, sizeof (p), &h);
116 h.env->from = h.env->to = NULL;
120 /* recurse iff the result do not starts with '@' */
121 m_strcpy(s, slen, p);
128 m_strcpy(p, sizeof(p), Inbox);
133 m_strcpy(p, sizeof(p), Outbox);
139 m_strcpy(p, sizeof(p), LastFolder);
142 m_strcpy(p, sizeof(p), Spoolfile);
148 m_strcpy(p, sizeof(p), NONULL(LastFolder));
153 m_strcpy(p, sizeof(p), NONULL(CurrentFolder));
164 char q[_POSIX_PATH_MAX];
165 rx_sanitize_string(q, sizeof(q), p);
166 snprintf(tmp, sizeof(tmp), "%s%s", q, tail);
168 snprintf(tmp, sizeof(tmp), "%s%s", p, tail);
171 return m_strcpy(s, slen, tmp);
174 void mutt_mktemp(char *s)
176 int fd = m_tempfd(s, _POSIX_PATH_MAX, NONULL(Tempdir), NULL);
185 /* collapse the pathname using ~ or = when possible */
186 void mutt_pretty_mailbox (char *s)
192 scheme = url_check_scheme (s);
194 if (scheme == U_IMAP || scheme == U_IMAPS) {
195 imap_pretty_mailbox (s);
199 /* if s is an url, only collapse path component */
200 if (scheme != U_UNKNOWN) {
201 p = strchr (s, ':') + 1;
202 if (!strncmp (p, "//", 2))
203 q = strchr (p + 2, '/');
205 q = strchr (p, '\0');
209 /* first attempt to collapse the pathname */
211 if (*p == '/' && p[1] == '/') {
215 else if (p[0] == '/' && p[1] == '.' && p[2] == '/') {
224 if (m_strncmp(s, Maildir, (len = m_strlen(Maildir))) == 0 &&
227 memmove (s, s + len, m_strlen(s + len) + 1);
229 else if (m_strncmp(s, Homedir, (len = m_strlen(Homedir))) == 0 &&
232 memmove (s, s + len - 1, m_strlen(s + len - 1) + 1);
237 mutt_expand_file_fmt(char *dst, ssize_t n, const char *fmt, const char *src)
239 char tmp[LONG_STRING];
240 mutt_quote_filename(tmp, sizeof(tmp), src);
241 m_file_fmt(dst, n, fmt, tmp);
244 /* return 0 on success, -1 on abort, 1 on error */
245 int mutt_check_overwrite (const char *attname, const char *path,
246 char *fname, ssize_t flen, int *append,
250 char tmp[_POSIX_PATH_MAX];
253 m_strcpy(fname, flen, path);
254 if (access (fname, F_OK) != 0)
256 if (stat (fname, &st) != 0)
258 if (S_ISDIR (st.st_mode)) {
260 switch (mutt_multi_choice
261 (_("File is a directory, save under it? [(y)es, (n)o, (a)ll]"),
264 m_strreplace(directory, fname);
278 if ((rc = mutt_yesorno(_("File is a directory, save under it?"),
280 return (rc == M_NO) ? 1 : -1;
282 if (!attname || !attname[0]) {
284 if (mutt_get_field (_("File under directory: "), tmp, sizeof (tmp),
285 M_FILE | M_CLEAR) != 0 || !tmp[0])
287 mutt_concat_path(fname, flen, path, tmp);
290 mutt_concat_path(fname, flen, path, mutt_basename(attname));
293 if (*append == 0 && access (fname, F_OK) == 0) {
294 switch (mutt_multi_choice
295 (_("File exists, (o)verwrite, (a)ppend, or (c)ancel?"), _("oac")))
303 *append = M_SAVE_APPEND;
305 case 1: /* overwrite */
306 *append = M_SAVE_OVERWRITE;
313 void mutt_save_path(char *d, ssize_t dsize, address_t *a)
315 if (a && a->mailbox) {
316 m_strcpy(d, dsize, a->mailbox);
318 if (!option(OPTSAVEADDRESS)) {
319 char *p = strpbrk(d, "%@");
329 void mutt_safe_path(char *s, ssize_t l, address_t *a)
331 mutt_save_path(s, l, a);
334 if (*s == '/' || ISSPACE(*s) || !isprint((unsigned char)*s))
340 void mutt_FormatString (char *dest, /* output buffer */
341 ssize_t destlen, /* output buffer len */
342 const char *src, /* template string */
343 format_t * callback, /* callback for processing */
344 unsigned long data, /* callback data */
346 { /* callback flags */
347 char prefix[SHORT_STRING], buf[LONG_STRING], *cp, *wptr = dest, ch;
348 char ifstring[SHORT_STRING], elsestring[SHORT_STRING];
349 ssize_t wlen, wid, count, col, len;
352 destlen--; /* save room for the terminal \0 */
353 wlen = (flags & M_FORMAT_ARROWCURSOR && option (OPTARROWCURSOR)) ? 3 : 0;
356 while (*src && wlen < destlen) {
367 flags |= M_FORMAT_OPTIONAL;
371 flags &= ~M_FORMAT_OPTIONAL;
373 /* eat the format string */
376 while (count < ssizeof (prefix) &&
377 (isdigit ((unsigned char) *src) || *src == '.' || *src == '-'))
386 break; /* bad format */
388 ch = *src++; /* save the character to switch on */
390 if (flags & M_FORMAT_OPTIONAL) {
392 break; /* bad format */
395 /* eat the `if' part of the string */
398 while (count < ssizeof (ifstring) && *src && *src != '?'
405 /* eat the `else' part of the string (optional) */
407 src++; /* skip the & */
410 while (count < ssizeof (elsestring) && *src && *src != '?') {
417 break; /* bad format */
419 src++; /* move past the trailing `?' */
422 /* handle generic cases first */
424 /* right justify to EOL */
425 ch = *src++; /* pad char */
426 /* calculate space left on line. if we've already written more data
427 than will fit on the line, ignore the rest of the line */
428 if (DrawFullLine || option (OPTSTATUSONTOP))
429 count = (COLS < destlen ? COLS : destlen);
431 count = ((COLS - SW) < destlen ? (COLS - SW) : destlen);
433 count -= col; /* how many columns left on this line */
434 mutt_FormatString (buf, sizeof (buf), src, callback, data, flags);
437 count -= wid; /* how many chars to pad */
438 memset (wptr, ch, count);
442 if (wid + wlen > destlen)
443 len = destlen - wlen;
446 memcpy (wptr, buf, len);
449 col += mutt_strwidth (buf);
451 break; /* skip rest of input */
453 else if (ch == '|') {
458 if (destlen > wlen) {
459 count = destlen - wlen;
460 memset (wptr, ch, count);
463 break; /* skip rest of input */
469 while (ch == '_' || ch == ':') {
478 /* use callback function to handle this case */
480 callback (buf, sizeof (buf), ch, src, prefix, ifstring, elsestring,
493 if ((len = m_strlen(buf)) + wlen > destlen)
494 len = (destlen - wlen > 0) ? (destlen - wlen) : 0;
496 memcpy (wptr, buf, len);
499 col += mutt_strwidth (buf);
502 else if (*src == '\\') {
531 unsigned int bar = strcspn(src, "%\\");
532 char *bar2 = p_dupstr(src, bar);
538 col += mutt_strwidth (bar2);
545 /* returns 0 if OK to proceed, -1 to abort, 1 to retry */
546 int mutt_save_confirm (const char *s, struct stat *st)
548 char tmp[_POSIX_PATH_MAX];
553 magic = mx_get_magic (s);
555 if (magic == M_POP) {
556 mutt_error _("Can't save message to POP mailbox.");
562 if (magic == M_NNTP) {
563 mutt_error _("Can't save message to newsserver.");
569 if (magic > 0 && !mx_access (s, W_OK)) {
570 if (option (OPTCONFIRMAPPEND) &&
571 (!TrashPath || (m_strcmp(s, TrashPath) != 0))) {
572 /* if we're appending to the trash, there's no point in asking */
573 snprintf (tmp, sizeof (tmp), _("Append messages to %s?"), s);
574 if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
581 if (stat (s, st) != -1) {
583 mutt_error (_("%s is not a mailbox!"), s);
592 if (errno == ENOENT) {
593 if (option (OPTCONFIRMCREATE)) {
594 snprintf (tmp, sizeof (tmp), _("Create %s?"), s);
595 if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
607 CLEARLINE (LINES - 1);
611 void mutt_sleep (short s)
613 sleep(MAX(s, SleepTime));
616 /* Decrease a file's modification time by 1 second */
617 time_t mutt_decrease_mtime (const char *f, struct stat *st)
624 if (stat (f, &_st) == -1)
629 if ((mtime = st->st_mtime) == time (NULL)) {
632 utim.modtime = mtime;
639 const char *mutt_make_version (int full)
641 static char vstring[STRING];
644 snprintf (vstring, sizeof (vstring),
645 "Madmutt/%s-r%s (based on Mutt 1.5.11)",
646 MUTT_VERSION, MUTT_REVISION);
648 snprintf (vstring, sizeof (vstring), "Madmutt/%s-%s",
649 MUTT_VERSION, MUTT_REVISION);
653 int mutt_match_spam_list (const char *s, rx_t * l, char *text, int x)
655 static regmatch_t *pmatch = NULL;
656 static int nmatch = 0;
665 for (; l; l = l->next) {
666 /* If this pattern needs more matches, expand pmatch. */
667 if (l->nmatch > nmatch) {
668 p_realloc(&pmatch, l->nmatch);
672 /* Does this pattern match? */
673 if (regexec(l->rx, s, l->nmatch, (regmatch_t *)pmatch, (int) 0) == 0) {
674 /* Copy template into text, with substitutions. */
675 for (p = l->template; *p;) {
677 n = atoi (++p); /* find pmatch index */
678 while (isdigit ((unsigned char) *p))
679 ++p; /* skip subst token */
680 for (i = pmatch[n].rm_so; (i < pmatch[n].rm_eo) && (tlen < x); i++)
695 /* return 1 if address lists are strictly identical */
696 static int mutt_cmp_addr (const address_t * a, const address_t * b)
699 if (m_strcmp(a->mailbox, b->mailbox) ||
700 m_strcmp(a->personal, b->personal))
712 static int mutt_cmp_list (const string_list_t * a, const string_list_t * b)
715 if (m_strcmp(a->data, b->data))
727 static int mutt_cmp_env (const ENVELOPE * e1, const ENVELOPE * e2)
730 if (m_strcmp(e1->message_id, e2->message_id) ||
731 m_strcmp(e1->subject, e2->subject) ||
732 !mutt_cmp_list (e1->references, e2->references) ||
733 !mutt_cmp_addr (e1->from, e2->from) ||
734 !mutt_cmp_addr (e1->sender, e2->sender) ||
735 !mutt_cmp_addr (e1->reply_to, e2->reply_to) ||
736 !mutt_cmp_addr (e1->to, e2->to) ||
737 !mutt_cmp_addr (e1->cc, e2->cc) ||
738 !mutt_cmp_addr (e1->return_path, e2->return_path))
744 if (e1 == NULL && e2 == NULL)
751 static int mutt_cmp_body (const BODY * b1, const BODY * b2)
753 if (b1->type != b2->type ||
754 b1->encoding != b2->encoding ||
755 m_strcmp(b1->subtype, b2->subtype) ||
756 m_strcmp(b1->description, b2->description) ||
757 !parameter_equal(b1->parameter, b2->parameter) ||
758 b1->length != b2->length)
762 int mutt_cmp_header (const HEADER * h1, const HEADER * h2) {
764 if (h1->received != h2->received ||
765 h1->date_sent != h2->date_sent ||
766 h1->content->length != h2->content->length ||
767 h1->lines != h2->lines ||
768 h1->zhours != h2->zhours ||
769 h1->zminutes != h2->zminutes ||
770 h1->zoccident != h2->zoccident ||
771 h1->mime != h2->mime ||
772 !mutt_cmp_env (h1->env, h2->env) ||
773 !mutt_cmp_body (h1->content, h2->content))
779 if (h1 == NULL && h2 == NULL)
787 int mutt_extract_token(BUFFER *dest, BUFFER *tok, int flags)
790 char qc = 0; /* quote char */
793 /* reset the destination pointer to the beginning of the buffer */
794 dest->dptr = dest->data;
796 tok->dptr = vskipspaces(tok->dptr);
797 while ((ch = *tok->dptr)) {
799 if ((ISSPACE(ch) && !(flags & M_TOKEN_SPACE))
800 || (ch == '#' && !(flags & M_TOKEN_COMMENT))
801 || (ch == '=' && (flags & M_TOKEN_EQUAL))
802 || (ch == ';' && !(flags & M_TOKEN_SEMICOLON))
803 || ((flags & M_TOKEN_PATTERN) && strchr("~=!|", ch)))
812 qc = 0; /* end of quote */
814 if (!qc && (ch == '\'' || ch == '"') && !(flags & M_TOKEN_QUOTE)) {
817 if (ch == '\\' && qc != '\'') {
819 return -1; /* premature end of token */
821 switch (ch = *tok->dptr++) {
825 return -1; /* premature end of token */
826 mutt_buffer_addch(dest,
827 (ascii_toupper(*tok->dptr) - 'A' + 1) & 0x7f);
831 mutt_buffer_addch(dest, '\r');
834 mutt_buffer_addch(dest, '\n');
837 mutt_buffer_addch(dest, '\t');
840 mutt_buffer_addch(dest, '\f');
843 mutt_buffer_addch(dest, '\033');
846 if (isdigit((unsigned char)ch)
847 && isdigit((unsigned char)*tok->dptr)
848 && isdigit((unsigned char)*(tok->dptr + 1)))
850 mutt_buffer_addch(dest, (ch << 6) + (*tok->dptr << 3) +
851 *(tok->dptr + 1) - 3504);
854 mutt_buffer_addch(dest, ch);
858 if (ch == '^' && (flags & M_TOKEN_CONDENSE)) {
860 return -1; /* premature end of token */
863 mutt_buffer_addch(dest, ch);
866 mutt_buffer_addch(dest, '\033');
868 if (isalpha((unsigned char)ch)) {
869 mutt_buffer_addch(dest, ascii_toupper(ch) - 'A' + 1);
871 mutt_buffer_addch(dest, '^');
872 mutt_buffer_addch(dest, ch);
875 if (ch == '`' && (!qc || qc == '"')) {
885 if ((pc = strpbrk(pc, "\\`"))) {
886 /* skip any quoted chars */
890 } while (pc && *pc != '`');
895 cmd = p_dupstr(tok->dptr, pc - tok->dptr);
896 if ((pid = mutt_create_filter(cmd, NULL, &fp, NULL)) < 0) {
906 expn.data = mutt_read_line(NULL, &expn.dsize, fp, &line);
908 mutt_wait_filter(pid);
910 /* if we got output, make a new string consiting of the shell ouptput
911 plus whatever else was left on the original line */
912 /* BUT: If this is inside a quoted string, directly add output to
914 if (expn.data && qc) {
915 mutt_buffer_addstr(dest, expn.data);
916 p_delete(&expn.data);
919 expnlen = m_strlen(expn.data);
920 tok->dsize = expnlen + m_strlen(tok->dptr) + 1;
921 ptr = xmalloc(tok->dsize);
922 memcpy(ptr, expn.data, expnlen);
923 strcpy(ptr + expnlen, tok->dptr); /* __STRCPY_CHECKED__ */
925 p_delete(&tok->data);
928 tok->destroy = 1; /* mark that the caller should destroy this data */
930 p_delete(&expn.data);
933 if (ch == '$' && (!qc || qc == '"')
934 && (*tok->dptr == '{' || isalpha((unsigned char)*tok->dptr)))
936 char *env = NULL, *var = NULL;
938 if (*tok->dptr == '{') {
940 if ((pc = strchr (tok->dptr, '}'))) {
941 var = p_dupstr(tok->dptr, pc - tok->dptr);
945 for (pc = tok->dptr; isalnum((unsigned char)*pc) || *pc == '_';
947 var = p_dupstr(tok->dptr, pc - tok->dptr);
952 if ((env = getenv (var))
953 || (mutt_option_value (var, tmp, sizeof (tmp)) && (env = tmp)))
955 mutt_buffer_addstr (dest, env);
960 mutt_buffer_addch(dest, ch);
963 mutt_buffer_addch(dest, 0); /* terminate the string */
964 tok->dptr = vskipspaces(tok->dptr);