/*
+ * Copyright notice from original mutt:
* Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
* Copyright (C) 1999-2000 Thomas Roessler <roessler@does-not-exist.org>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
- */
+ *
+ * This file is part of mutt-ng, see http://www.muttng.org/.
+ * It's licensed under the GNU General Public License,
+ * please see the file GPL in the top level source directory.
+ */
-#include "mutt.h"
-#include "mutt_curses.h"
-#include "mime.h"
-#include "mailbox.h"
-#include "mx.h"
-#include "url.h"
+#include <lib-lib/lib-lib.h>
-#include "reldate.h"
+#include <grp.h>
+#include <pwd.h>
+#include <utime.h>
-#ifdef USE_IMAP
-#include "imap.h"
-#endif
+#include <lib-mime/mime.h>
+#include <lib-ui/curses.h>
+#include <lib-ui/enter.h>
+#include <lib-sys/unix.h>
+#include <lib-mx/mx.h>
-#include "mutt_crypt.h"
-
-#include <string.h>
-#include <ctype.h>
-#include <unistd.h>
-#include <stdlib.h>
-#include <sys/wait.h>
-#include <errno.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <time.h>
-#include <sys/types.h>
-#include <utime.h>
+#include "alias.h"
+#include "mutt.h"
+#include "attach.h"
-BODY *mutt_new_body (void)
-{
- BODY *p = (BODY *) safe_calloc (1, sizeof (BODY));
-
- p->disposition = DISPATTACH;
- p->use_disp = 1;
- return (p);
-}
+#include "version.h"
+
+#include <imap/imap.h>
+#include <lib-crypt/crypt.h>
+
+#define SW (option(OPTMBOXPANE)?SidebarWidth:0)
/* Modified by blong to accept a "suggestion" for file name. If
* that file exists, then construct one with unique name but
* Renamed to mutt_adv_mktemp so I only have to change where it's
* called, and not all possible cases.
*/
-void mutt_adv_mktemp (char *s, size_t l)
-{
- char buf[_POSIX_PATH_MAX];
- char tmp[_POSIX_PATH_MAX];
- char *period;
- size_t sl;
- struct stat sb;
-
- strfcpy (buf, NONULL (Tempdir), sizeof (buf));
- mutt_expand_path (buf, sizeof (buf));
- if (s[0] == '\0')
- {
- snprintf (s, l, "%s/muttXXXXXX", buf);
- mktemp (s);
- }
- else
- {
- strfcpy (tmp, s, sizeof (tmp));
- mutt_sanitize_filename (tmp, 1);
- snprintf (s, l, "%s/%s", buf, tmp);
- if (lstat (s, &sb) == -1 && errno == ENOENT)
- return;
- if ((period = strrchr (tmp, '.')) != NULL)
- *period = 0;
- snprintf (s, l, "%s/%s.XXXXXX", buf, tmp);
- mktemp (s);
- if (period != NULL)
- {
- *period = '.';
- sl = mutt_strlen(s);
- strfcpy(s + sl, period, l - sl);
- }
- }
-}
-
-/* create a send-mode duplicate from a receive-mode body */
-
-int mutt_copy_body (FILE *fp, BODY **tgt, BODY *src)
-{
- char tmp[_POSIX_PATH_MAX];
- BODY *b;
-
- PARAMETER *par, **ppar;
-
- short use_disp;
-
- if (src->filename)
- {
- use_disp = 1;
- strfcpy (tmp, src->filename, sizeof (tmp));
- }
- else
- {
- use_disp = 0;
- tmp[0] = '\0';
- }
-
- mutt_adv_mktemp (tmp, sizeof (tmp));
- if (mutt_save_attachment (fp, src, tmp, 0, NULL) == -1)
- return -1;
-
- *tgt = mutt_new_body ();
- b = *tgt;
-
- memcpy (b, src, sizeof (BODY));
- b->parts = NULL;
- b->next = NULL;
-
- b->filename = safe_strdup (tmp);
- b->use_disp = use_disp;
- b->unlink = 1;
-
- if (mutt_is_text_part (b))
- b->noconv = 1;
-
- b->xtype = safe_strdup (b->xtype);
- b->subtype = safe_strdup (b->subtype);
- b->form_name = safe_strdup (b->form_name);
- b->filename = safe_strdup (b->filename);
- b->d_filename = safe_strdup (b->d_filename);
- b->description = safe_strdup (b->description);
-
- /*
- * we don't seem to need the HEADER structure currently.
- * XXX - this may change in the future
- */
-
- if (b->hdr) b->hdr = NULL;
-
- /* copy parameters */
- for (par = b->parameter, ppar = &b->parameter; par; ppar = &(*ppar)->next, par = par->next)
- {
- *ppar = mutt_new_parameter ();
- (*ppar)->attribute = safe_strdup (par->attribute);
- (*ppar)->value = safe_strdup (par->value);
- }
-
- mutt_stamp_attachment (b);
-
- return 0;
-}
-
-
-
-void mutt_free_body (BODY **p)
+void mutt_adv_mktemp (const char* dir, char *s, ssize_t l)
{
- BODY *a = *p, *b;
-
- while (a)
- {
- b = a;
- a = a->next;
+ int fd;
- if (b->parameter)
- mutt_free_parameter (&b->parameter);
- if (b->unlink && b->filename)
- {
- dprint (1, (debugfile, "mutt_free_body: Unlinking %s.\n", b->filename));
- unlink (b->filename);
- }
- else if (b->filename)
- dprint (1, (debugfile, "mutt_free_body: Not unlinking %s.\n", b->filename));
-
- FREE (&b->filename);
- FREE (&b->content);
- FREE (&b->xtype);
- FREE (&b->subtype);
- FREE (&b->description);
- FREE (&b->form_name);
-
- if (b->hdr)
- {
- /* Don't free twice (b->hdr->content = b->parts) */
- b->hdr->content = NULL;
- mutt_free_header(&b->hdr);
+ fd = m_tempfd(s, l, m_strisempty(dir) ? NONULL(Tempdir) : dir, s);
+ if (fd < 0) {
+ *s = '\0';
+ } else {
+ close(fd);
+ unlink(s);
}
-
- if (b->parts)
- mutt_free_body (&b->parts);
-
- FREE (&b);
- }
-
- *p = 0;
-}
-
-void mutt_free_parameter (PARAMETER **p)
-{
- PARAMETER *t = *p;
- PARAMETER *o;
-
- while (t)
- {
- FREE (&t->attribute);
- FREE (&t->value);
- o = t;
- t = t->next;
- FREE (&o);
- }
- *p = 0;
-}
-
-LIST *mutt_add_list (LIST *head, const char *data)
-{
- LIST *tmp;
-
- for (tmp = head; tmp && tmp->next; tmp = tmp->next)
- ;
- if (tmp)
- {
- tmp->next = safe_malloc (sizeof (LIST));
- tmp = tmp->next;
- }
- else
- head = tmp = safe_malloc (sizeof (LIST));
-
- tmp->data = safe_strdup (data);
- tmp->next = NULL;
- return head;
-}
-
-void mutt_free_list (LIST **list)
-{
- LIST *p;
-
- if (!list) return;
- while (*list)
- {
- p = *list;
- *list = (*list)->next;
- FREE (&p->data);
- FREE (&p);
- }
-}
-
-HEADER *mutt_dup_header(HEADER *h)
-{
- HEADER *hnew;
-
- hnew = mutt_new_header();
- memcpy(hnew, h, sizeof (HEADER));
- return hnew;
-}
-
-void mutt_free_header (HEADER **h)
-{
- if(!h || !*h) return;
- mutt_free_envelope (&(*h)->env);
- mutt_free_body (&(*h)->content);
- FREE (&(*h)->maildir_flags);
- FREE (&(*h)->tree);
- FREE (&(*h)->path);
-#ifdef MIXMASTER
- mutt_free_list (&(*h)->chain);
-#endif
-#if defined USE_POP || defined USE_IMAP || defined USE_NNTP
- FREE (&(*h)->data);
-#endif
- FREE (h);
}
/* returns true if the header contained in "s" is in list "t" */
-int mutt_matches_ignore (const char *s, LIST *t)
+int mutt_matches_ignore (const char *s, string_list_t * t)
{
- for (; t; t = t->next)
- {
- if (!ascii_strncasecmp (s, t->data, mutt_strlen (t->data)) || *t->data == '*')
+ for (; t; t = t->next) {
+ if (!ascii_strncasecmp (s, t->data, m_strlen(t->data))
+ || *t->data == '*')
return 1;
}
return 0;
}
-/* prepend the path part of *path to *link */
-void mutt_expand_link (char *newpath, const char *path, const char *link)
-{
- const char *lb = NULL;
- size_t len;
-
- /* link is full path */
- if (*link == '/')
- {
- strfcpy (newpath, link, _POSIX_PATH_MAX);
- return;
- }
-
- if ((lb = strrchr (path, '/')) == NULL)
- {
- /* no path in link */
- strfcpy (newpath, link, _POSIX_PATH_MAX);
- return;
- }
-
- len = lb - path + 1;
- memcpy (newpath, path, len);
- strfcpy (newpath + len, link, _POSIX_PATH_MAX - len);
-}
-
-char *mutt_expand_path (char *s, size_t slen)
-{
- return _mutt_expand_path (s, slen, 0);
-}
-
-char *_mutt_expand_path (char *s, size_t slen, int rx)
-{
- char p[_POSIX_PATH_MAX] = "";
- char q[_POSIX_PATH_MAX] = "";
- char tmp[_POSIX_PATH_MAX];
- char *t;
-
- char *tail = "";
-
- int recurse = 0;
-
- do
- {
- recurse = 0;
-
- switch (*s)
- {
- case '~':
- {
- if (*(s + 1) == '/' || *(s + 1) == 0)
- {
- strfcpy (p, NONULL(Homedir), sizeof (p));
- tail = s + 1;
- }
- else
- {
- struct passwd *pw;
- if ((t = strchr (s + 1, '/')))
- *t = 0;
-
- if ((pw = getpwnam (s + 1)))
- {
- strfcpy (p, pw->pw_dir, sizeof (p));
- if (t)
- {
- *t = '/';
- tail = t;
- }
- else
- tail = "";
- }
- else
- {
- /* user not found! */
- if (t)
- *t = '/';
- *p = '\0';
- tail = s;
- }
- }
- }
- break;
-
- case '=':
- case '+':
- {
-#ifdef USE_IMAP
- /* if folder = {host} or imap[s]://host/: don't append slash */
- if (mx_is_imap (NONULL (Maildir)) &&
- (Maildir[strlen (Maildir) - 1] == '}' ||
- Maildir[strlen (Maildir) - 1] == '/'))
- strfcpy (p, NONULL (Maildir), sizeof (p));
- else
-#endif
- snprintf (p, sizeof (p), "%s/", NONULL (Maildir));
-
- tail = s + 1;
- }
- break;
-
- /* elm compatibility, @ expands alias to user name */
-
- case '@':
- {
- HEADER *h;
- ADDRESS *alias;
-
- if ((alias = mutt_lookup_alias (s + 1)))
- {
- h = mutt_new_header();
- h->env = mutt_new_envelope();
- h->env->from = h->env->to = alias;
- mutt_default_save (p, sizeof (p), h);
- h->env->from = h->env->to = NULL;
- mutt_free_header (&h);
- /* Avoid infinite recursion if the resulting folder starts with '@' */
- if (*p != '@')
- recurse = 1;
-
- tail = "";
- }
- }
- break;
-
- case '>':
- {
- strfcpy (p, NONULL(Inbox), sizeof (p));
- tail = s + 1;
- }
- break;
-
- case '<':
- {
- strfcpy (p, NONULL(Outbox), sizeof (p));
- tail = s + 1;
- }
- break;
-
- case '!':
- {
- if (*(s+1) == '!')
- {
- strfcpy (p, NONULL(LastFolder), sizeof (p));
- tail = s + 2;
- }
- else
- {
- strfcpy (p, NONULL(Spoolfile), sizeof (p));
- tail = s + 1;
- }
- }
- break;
-
- case '-':
- {
- strfcpy (p, NONULL(LastFolder), sizeof (p));
- tail = s + 1;
- }
- break;
-
- default:
- {
- *p = '\0';
- tail = s;
- }
+ssize_t _mutt_expand_path(char *s, ssize_t slen, int rx)
+{
+ char p[_POSIX_PATH_MAX] = "";
+ char tmp[_POSIX_PATH_MAX];
+ const char *tail = "";
+
+ do {
+ const address_t *alias;
+
+ switch (*s) {
+ case '~':
+ if (s[1] == '/' || s[1] == '\0') {
+ m_strcpy(p, sizeof(p), Homedir);
+ tail = s + 1;
+ } else {
+ struct passwd *pw;
+ tail = m_strchrnul(s + 1, '/');
+
+ m_strncpy(tmp, sizeof(tmp), s + 1, tail - s - 1);
+
+ if ((pw = getpwnam(tmp))) {
+ m_strcpy(p, sizeof(p), pw->pw_dir);
+ } else {
+ /* user not found! */
+ tail = s;
+ }
+ }
+ break;
+
+ case '=':
+ case '+':
+ /* if folder = imap[s]://host/: don't append slash */
+ if (imap_is_magic(NONULL(Maildir), NULL) == M_IMAP
+ && Maildir[m_strlen(Maildir) - 1] == '/') {
+ m_strcpy(p, sizeof(p), Maildir);
+ } else {
+ snprintf(p, sizeof(p), "%s/", NONULL(Maildir));
+ }
+
+ tail = s + 1;
+ break;
+
+ /* elm compatibility, @ expands alias to user name */
+
+ case '@':
+ if ((alias = alias_lookup(s + 1))) {
+ HEADER h;
+ header_init(&h);
+ h.env = envelope_new();
+ h.env->from = h.env->to = (address_t *)alias;
+ mutt_default_save(p, sizeof (p), &h);
+ h.env->from = h.env->to = NULL;
+ header_wipe(&h);
+
+ if (*p != '@') {
+ /* recurse iff the result do not starts with '@' */
+ m_strcpy(s, slen, p);
+ continue;
+ }
+ }
+ break;
+
+ case '>':
+ m_strcpy(p, sizeof(p), Inbox);
+ tail = s + 1;
+ break;
+
+ case '<':
+ m_strcpy(p, sizeof(p), Outbox);
+ tail = s + 1;
+ break;
+
+ case '!':
+ if (s[1] == '!') {
+ m_strcpy(p, sizeof(p), LastFolder);
+ tail = s + 2;
+ } else {
+ m_strcpy(p, sizeof(p), Spoolfile);
+ tail = s + 1;
+ }
+ break;
+
+ case '-':
+ m_strcpy(p, sizeof(p), NONULL(LastFolder));
+ tail = s + 1;
+ break;
+
+ case '^':
+ m_strcpy(p, sizeof(p), NONULL(CurrentFolder));
+ tail = s + 1;
+ break;
+
+ default:
+ *p = '\0';
+ tail = s;
+ }
+ } while (0);
+
+ if (rx) {
+ char q[_POSIX_PATH_MAX];
+ rx_sanitize_string(q, sizeof(q), p);
+ snprintf(tmp, sizeof(tmp), "%s%s", q, tail);
+ } else {
+ snprintf(tmp, sizeof(tmp), "%s%s", p, tail);
}
- if (rx && *p && !recurse)
- {
- mutt_rx_sanitize_string (q, sizeof (q), p);
- snprintf (tmp, sizeof (tmp), "%s%s", q, tail);
- }
- else
- snprintf (tmp, sizeof (tmp), "%s%s", p, tail);
-
- strfcpy (s, tmp, slen);
- }
- while (recurse);
-
-#ifdef USE_IMAP
- /* Rewrite IMAP path in canonical form - aids in string comparisons of
- * folders. May possibly fail, in which case s should be the same. */
- if (mx_is_imap (s))
- imap_expand_path (s, slen);
-#endif
-
- return (s);
+ return m_strcpy(s, slen, tmp);
}
-/* Extract the real name from /etc/passwd's GECOS field.
- * When set, honor the regular expression in GecosMask,
- * otherwise assume that the GECOS field is a
- * comma-separated list.
- * Replace "&" by a capitalized version of the user's login
- * name.
- */
-
-char *mutt_gecos_name (char *dest, size_t destlen, struct passwd *pw)
+void mutt_mktemp(char *s)
{
- regmatch_t pat_match[1];
- size_t pwnl;
- int idx;
- char *p;
-
- if (!pw || !pw->pw_gecos)
- return NULL;
-
- memset (dest, 0, destlen);
-
- if (GecosMask.rx)
- {
- if (regexec (GecosMask.rx, pw->pw_gecos, 1, pat_match, 0) == 0)
- strfcpy (dest, pw->pw_gecos + pat_match[0].rm_so,
- MIN (pat_match[0].rm_eo - pat_match[0].rm_so + 1, destlen));
- }
- else if ((p = strchr (pw->pw_gecos, ',')))
- strfcpy (dest, pw->pw_gecos, MIN (destlen, p - pw->pw_gecos + 1));
- else
- strfcpy (dest, pw->pw_gecos, destlen);
-
- pwnl = strlen (pw->pw_name);
-
- for (idx = 0; dest[idx]; idx++)
- {
- if (dest[idx] == '&')
- {
- memmove (&dest[idx + pwnl], &dest[idx + 1],
- MAX(destlen - idx - pwnl - 1, 0));
- memcpy (&dest[idx], pw->pw_name, MIN(destlen - idx - 1, pwnl));
- dest[idx] = toupper ((unsigned char) dest[idx]);
+ int fd = m_tempfd(s, _POSIX_PATH_MAX, NONULL(Tempdir), NULL);
+ if (fd < 0) {
+ *s = '\0';
+ } else {
+ close(fd);
+ unlink(s);
}
- }
-
- return dest;
-}
-
-
-char *mutt_get_parameter (const char *s, PARAMETER *p)
-{
- for (; p; p = p->next)
- if (ascii_strcasecmp (s, p->attribute) == 0)
- return (p->value);
-
- return NULL;
-}
-
-void mutt_set_parameter (const char *attribute, const char *value, PARAMETER **p)
-{
- PARAMETER *q;
-
- if (!value)
- {
- mutt_delete_parameter (attribute, p);
- return;
- }
-
- for(q = *p; q; q = q->next)
- {
- if (ascii_strcasecmp (attribute, q->attribute) == 0)
- {
- mutt_str_replace (&q->value, value);
- return;
- }
- }
-
- q = mutt_new_parameter();
- q->attribute = safe_strdup(attribute);
- q->value = safe_strdup(value);
- q->next = *p;
- *p = q;
-}
-
-void mutt_delete_parameter (const char *attribute, PARAMETER **p)
-{
- PARAMETER *q;
-
- for (q = *p; q; p = &q->next, q = q->next)
- {
- if (ascii_strcasecmp (attribute, q->attribute) == 0)
- {
- *p = q->next;
- q->next = NULL;
- mutt_free_parameter (&q);
- return;
- }
- }
-}
-
-/* returns 1 if Mutt can't display this type of data, 0 otherwise */
-int mutt_needs_mailcap (BODY *m)
-{
- switch (m->type)
- {
- case TYPETEXT:
-
- if (!ascii_strcasecmp ("plain", m->subtype) ||
- !ascii_strcasecmp ("rfc822-headers", m->subtype) ||
- !ascii_strcasecmp ("enriched", m->subtype))
- return 0;
- break;
-
- case TYPEAPPLICATION:
- if((WithCrypto & APPLICATION_PGP) && mutt_is_application_pgp(m))
- return 0;
- if((WithCrypto & APPLICATION_SMIME) && mutt_is_application_smime(m))
- return 0;
- break;
-
- case TYPEMULTIPART:
- case TYPEMESSAGE:
- return 0;
- }
-
- return 1;
-}
-
-int mutt_is_text_part (BODY *b)
-{
- int t = b->type;
- char *s = b->subtype;
-
- if ((WithCrypto & APPLICATION_PGP) && mutt_is_application_pgp (b))
- return 0;
-
- if (t == TYPETEXT)
- return 1;
-
- if (t == TYPEMESSAGE)
- {
- if (!ascii_strcasecmp ("delivery-status", s))
- return 1;
- }
-
- if ((WithCrypto & APPLICATION_PGP) && t == TYPEAPPLICATION)
- {
- if (!ascii_strcasecmp ("pgp-keys", s))
- return 1;
- }
-
- return 0;
-}
-
-void mutt_free_envelope (ENVELOPE **p)
-{
- if (!*p) return;
- rfc822_free_address (&(*p)->return_path);
- rfc822_free_address (&(*p)->to);
- rfc822_free_address (&(*p)->cc);
- rfc822_free_address (&(*p)->bcc);
- rfc822_free_address (&(*p)->sender);
- rfc822_free_address (&(*p)->from);
- rfc822_free_address (&(*p)->reply_to);
- rfc822_free_address (&(*p)->mail_followup_to);
- FREE (&(*p)->subject);
- FREE (&(*p)->message_id);
- FREE (&(*p)->supersedes);
- FREE (&(*p)->date);
- FREE (&(*p)->organization);
-#ifdef USE_NNTP
- FREE (&(*p)->newsgroups);
- FREE (&(*p)->xref);
- FREE (&(*p)->followup_to);
- FREE (&(*p)->x_comment_to);
-#endif
- mutt_free_list (&(*p)->references);
- mutt_free_list (&(*p)->in_reply_to);
- mutt_free_list (&(*p)->userhdrs);
- FREE (p);
-}
-
-void _mutt_mktemp (char *s, const char *src, int line)
-{
- snprintf (s, _POSIX_PATH_MAX, "%s/mutt-%s-%d-%d", NONULL (Tempdir), NONULL(Hostname), (int) getpid (), Counter++);
- dprint (1, (debugfile, "%s:%d: mutt_mktemp returns \"%s\".\n", src, line, s));
- unlink (s);
-}
-
-void mutt_free_alias (ALIAS **p)
-{
- ALIAS *t;
-
- while (*p)
- {
- t = *p;
- *p = (*p)->next;
- FREE (&t->name);
- rfc822_free_address (&t->addr);
- FREE (&t);
- }
}
/* collapse the pathname using ~ or = when possible */
void mutt_pretty_mailbox (char *s)
{
char *p = s, *q = s;
- size_t len;
+ ssize_t len;
url_scheme_t scheme;
scheme = url_check_scheme (s);
-#ifdef USE_IMAP
- if (scheme == U_IMAP || scheme == U_IMAPS)
- {
+ if (scheme == U_IMAP || scheme == U_IMAPS) {
imap_pretty_mailbox (s);
return;
}
-#endif
/* if s is an url, only collapse path component */
- if (scheme != U_UNKNOWN)
- {
- p = strchr(s, ':')+1;
+ if (scheme != U_UNKNOWN) {
+ p = strchr (s, ':') + 1;
if (!strncmp (p, "//", 2))
- q = strchr (p+2, '/');
+ q = strchr (p + 2, '/');
if (!q)
q = strchr (p, '\0');
p = q;
}
-
+
/* first attempt to collapse the pathname */
- while (*p)
- {
- if (*p == '/' && p[1] == '/')
- {
+ while (*p) {
+ if (*p == '/' && p[1] == '/') {
*q++ = '/';
p += 2;
}
- else if (p[0] == '/' && p[1] == '.' && p[2] == '/')
- {
+ else if (p[0] == '/' && p[1] == '.' && p[2] == '/') {
*q++ = '/';
p += 3;
}
}
*q = 0;
- if (mutt_strncmp (s, Maildir, (len = mutt_strlen (Maildir))) == 0 &&
- s[len] == '/')
- {
+ if (m_strncmp(s, Maildir, (len = m_strlen(Maildir))) == 0 &&
+ s[len] == '/') {
*s++ = '=';
- memmove (s, s + len, mutt_strlen (s + len) + 1);
+ memmove (s, s + len, m_strlen(s + len) + 1);
}
- else if (mutt_strncmp (s, Homedir, (len = mutt_strlen (Homedir))) == 0 &&
- s[len] == '/')
- {
+ else if (m_strncmp(s, Homedir, (len = m_strlen(Homedir))) == 0 &&
+ s[len] == '/') {
*s++ = '~';
- memmove (s, s + len - 1, mutt_strlen (s + len - 1) + 1);
- }
-}
-
-void mutt_pretty_size (char *s, size_t len, long n)
-{
- if (n == 0)
- strfcpy (s, "0K", len);
- else if (n < 10189) /* 0.1K - 9.9K */
- snprintf (s, len, "%3.1fK", (n < 103) ? 0.1 : n / 1024.0);
- else if (n < 1023949) /* 10K - 999K */
- {
- /* 51 is magic which causes 10189/10240 to be rounded up to 10 */
- snprintf (s, len, "%ldK", (n + 51) / 1024);
- }
- else if (n < 10433332) /* 1.0M - 9.9M */
- snprintf (s, len, "%3.1fM", n / 1048576.0);
- else /* 10M+ */
- {
- /* (10433332 + 52428) / 1048576 = 10 */
- snprintf (s, len, "%ldM", (n + 52428) / 1048576);
+ memmove (s, s + len - 1, m_strlen(s + len - 1) + 1);
}
}
-void mutt_expand_file_fmt (char *dest, size_t destlen, const char *fmt, const char *src)
+void
+mutt_expand_file_fmt(char *dst, ssize_t n, const char *fmt, const char *src)
{
- char tmp[LONG_STRING];
-
- mutt_quote_filename (tmp, sizeof (tmp), src);
- mutt_expand_fmt (dest, destlen, fmt, tmp);
-}
-
-void mutt_expand_fmt (char *dest, size_t destlen, const char *fmt, const char *src)
-{
- const char *p;
- char *d;
- size_t slen;
- int found = 0;
-
- slen = mutt_strlen (src);
- destlen--;
-
- for (p = fmt, d = dest; destlen && *p; p++)
- {
- if (*p == '%')
- {
- switch (p[1])
- {
- case '%':
- *d++ = *p++;
- destlen--;
- break;
- case 's':
- found = 1;
- strfcpy (d, src, destlen + 1);
- d += destlen > slen ? slen : destlen;
- destlen -= destlen > slen ? slen : destlen;
- p++;
- break;
- default:
- *d++ = *p;
- destlen--;
- break;
- }
- }
- else
- {
- *d++ = *p;
- destlen--;
- }
- }
-
- *d = '\0';
-
- if (!found && destlen > 0)
- {
- strncat (dest, " ", destlen);
- strncat (dest, src, destlen-1);
- }
-
+ char tmp[LONG_STRING];
+ mutt_quote_filename(tmp, sizeof(tmp), src);
+ m_file_fmt(dst, n, fmt, tmp);
}
/* return 0 on success, -1 on abort, 1 on error */
int mutt_check_overwrite (const char *attname, const char *path,
- char *fname, size_t flen, int *append, char **directory)
+ char *fname, ssize_t flen, int *append,
+ char **directory)
{
int rc = 0;
char tmp[_POSIX_PATH_MAX];
struct stat st;
- strfcpy (fname, path, flen);
+ m_strcpy(fname, flen, path);
if (access (fname, F_OK) != 0)
return 0;
if (stat (fname, &st) != 0)
return -1;
- if (S_ISDIR (st.st_mode))
- {
- if (directory)
- {
+ if (S_ISDIR (st.st_mode)) {
+ if (directory) {
switch (mutt_multi_choice
- (_("File is a directory, save under it? [(y)es, (n)o, (a)ll]"), _("yna")))
- {
- case 3: /* all */
- mutt_str_replace (directory, fname);
- break;
- case 1: /* yes */
- FREE (directory);
- break;
- case -1: /* abort */
- FREE (directory);
- return -1;
- case 2: /* no */
- FREE (directory);
- return 1;
+ (_("File is a directory, save under it? [(y)es, (n)o, (a)ll]"),
+ _("yna"))) {
+ case 3: /* all */
+ m_strreplace(directory, fname);
+ break;
+ case 1: /* yes */
+ p_delete(directory);
+ break;
+ case -1: /* abort */
+ p_delete(directory);
+ return -1;
+ case 2: /* no */
+ p_delete(directory);
+ return 1;
}
}
- else if ((rc = mutt_yesorno (_("File is a directory, save under it?"), M_YES)) != M_YES)
+ else
+ if ((rc = mutt_yesorno(_("File is a directory, save under it?"),
+ M_YES)) != M_YES)
return (rc == M_NO) ? 1 : -1;
- if (!attname || !attname[0])
- {
+ if (!attname || !attname[0]) {
tmp[0] = 0;
if (mutt_get_field (_("File under directory: "), tmp, sizeof (tmp),
- M_FILE | M_CLEAR) != 0 || !tmp[0])
- return (-1);
- mutt_concat_path (fname, path, tmp, flen);
+ M_FILE | M_CLEAR) != 0 || !tmp[0])
+ return (-1);
+ mutt_concat_path(fname, flen, path, tmp);
}
else
- mutt_concat_path (fname, path, mutt_basename (attname), flen);
+ mutt_concat_path(fname, flen, path, mutt_basename(attname));
}
-
- if (*append == 0 && access (fname, F_OK) == 0)
- {
+
+ if (*append == 0 && access (fname, F_OK) == 0) {
switch (mutt_multi_choice
- (_("File exists, (o)verwrite, (a)ppend, or (c)ancel?"), _("oac")))
+ (_("File exists, (o)verwrite, (a)ppend, or (c)ancel?"), _("oac")))
{
- case -1: /* abort */
- return -1;
- case 3: /* cancel */
- return 1;
+ case -1: /* abort */
+ return -1;
+ case 3: /* cancel */
+ return 1;
- case 2: /* append */
- *append = M_SAVE_APPEND;
- break;
- case 1: /* overwrite */
- *append = M_SAVE_OVERWRITE;
- break;
+ case 2: /* append */
+ *append = M_SAVE_APPEND;
+ break;
+ case 1: /* overwrite */
+ *append = M_SAVE_OVERWRITE;
+ break;
}
}
return 0;
}
-void mutt_save_path (char *d, size_t dsize, ADDRESS *a)
+void mutt_save_path(char *d, ssize_t dsize, address_t *a)
{
- if (a && a->mailbox)
- {
- strfcpy (d, a->mailbox, dsize);
- if (!option (OPTSAVEADDRESS))
- {
- char *p;
+ if (a && a->mailbox) {
+ m_strcpy(d, dsize, a->mailbox);
- if ((p = strpbrk (d, "%@")))
- *p = 0;
+ if (!option(OPTSAVEADDRESS)) {
+ char *p = strpbrk(d, "%@");
+ if (p)
+ *p = '\0';
+ }
+ m_strtolower(d);
+ } else {
+ *d = '\0';
}
- mutt_strlower (d);
- }
- else
- *d = 0;
}
-void mutt_safe_path (char *s, size_t l, ADDRESS *a)
+void mutt_safe_path(char *s, ssize_t l, address_t *a)
{
- char *p;
+ mutt_save_path(s, l, a);
- mutt_save_path (s, l, a);
- for (p = s; *p; p++)
- if (*p == '/' || ISSPACE (*p) || !IsPrint ((unsigned char) *p))
- *p = '_';
+ while (*s) {
+ if (*s == '/' || ISSPACE(*s) || !isprint((unsigned char)*s))
+ *s = '_';
+ s++;
+ }
}
-
-void mutt_FormatString (char *dest, /* output buffer */
- size_t destlen, /* output buffer len */
- const char *src, /* template string */
- format_t *callback, /* callback for processing */
- unsigned long data, /* callback data */
- format_flag flags) /* callback flags */
-{
+void mutt_FormatString (char *dest, /* output buffer */
+ ssize_t destlen, /* output buffer len */
+ const char *src, /* template string */
+ format_t * callback, /* callback for processing */
+ unsigned long data, /* callback data */
+ format_flag flags)
+{ /* callback flags */
char prefix[SHORT_STRING], buf[LONG_STRING], *cp, *wptr = dest, ch;
char ifstring[SHORT_STRING], elsestring[SHORT_STRING];
- size_t wlen, count, len;
+ ssize_t wlen, wid, count, col, len;
prefix[0] = '\0';
- destlen--; /* save room for the terminal \0 */
+ destlen--; /* save room for the terminal \0 */
wlen = (flags & M_FORMAT_ARROWCURSOR && option (OPTARROWCURSOR)) ? 3 : 0;
-
- while (*src && wlen < destlen)
- {
- if (*src == '%')
- {
- if (*++src == '%')
- {
- *wptr++ = '%';
- wlen++;
- src++;
- continue;
+ col = wlen;
+
+ while (*src && wlen < destlen) {
+ if (*src == '%') {
+ if (*++src == '%') {
+ *wptr++ = '%';
+ wlen++;
+ col++;
+ src++;
+ continue;
}
- if (*src == '?')
- {
- flags |= M_FORMAT_OPTIONAL;
- src++;
+ if (*src == '?') {
+ flags |= M_FORMAT_OPTIONAL;
+ src++;
}
- else
- {
- flags &= ~M_FORMAT_OPTIONAL;
-
- /* eat the format string */
- cp = prefix;
- count = 0;
- while (count < sizeof (prefix) &&
- (isdigit ((unsigned char) *src) || *src == '.' || *src == '-'))
- {
- *cp++ = *src++;
- count++;
- }
- *cp = 0;
+ else {
+ flags &= ~M_FORMAT_OPTIONAL;
+
+ /* eat the format string */
+ cp = prefix;
+ count = 0;
+ while (count < ssizeof (prefix) &&
+ (isdigit ((unsigned char) *src) || *src == '.' || *src == '-'))
+ {
+ *cp++ = *src++;
+ count++;
+ }
+ *cp = 0;
}
if (!*src)
- break; /* bad format */
+ break; /* bad format */
- ch = *src++; /* save the character to switch on */
+ ch = *src++; /* save the character to switch on */
- if (flags & M_FORMAT_OPTIONAL)
- {
+ if (flags & M_FORMAT_OPTIONAL) {
if (*src != '?')
- break; /* bad format */
+ break; /* bad format */
src++;
/* eat the `if' part of the string */
cp = ifstring;
- count = 0;
- while (count < sizeof (ifstring) && *src && *src != '?' && *src != '&')
- {
+ count = 0;
+ while (count < ssizeof (ifstring) && *src && *src != '?'
+ && *src != '&') {
*cp++ = *src++;
- count++;
- }
+ count++;
+ }
*cp = 0;
- /* eat the `else' part of the string (optional) */
- if (*src == '&')
- src++; /* skip the & */
- cp = elsestring;
- count = 0;
- while (count < sizeof (elsestring) && *src && *src != '?')
- {
- *cp++ = *src++;
- count++;
- }
- *cp = 0;
-
- if (!*src)
- break; /* bad format */
-
- src++; /* move past the trailing `?' */
+ /* eat the `else' part of the string (optional) */
+ if (*src == '&')
+ src++; /* skip the & */
+ cp = elsestring;
+ count = 0;
+ while (count < ssizeof (elsestring) && *src && *src != '?') {
+ *cp++ = *src++;
+ count++;
+ }
+ *cp = 0;
+
+ if (!*src)
+ break; /* bad format */
+
+ src++; /* move past the trailing `?' */
}
/* handle generic cases first */
- if (ch == '>')
- {
- /* right justify to EOL */
- ch = *src++; /* pad char */
- /* calculate space left on line. if we've already written more data
- than will fit on the line, ignore the rest of the line */
- if ( DrawFullLine )
- count = (COLS < destlen ? COLS : destlen);
- else
- count = ((COLS-SidebarWidth) < destlen ? COLS - SidebarWidth : destlen);
- if (count > wlen)
- {
- count -= wlen; /* how many chars left on this line */
- mutt_FormatString (buf, sizeof (buf), src, callback, data, flags);
- len = mutt_strlen (buf);
- if (count > len)
- {
- count -= len; /* how many chars to pad */
- memset (wptr, ch, count);
- wptr += count;
- wlen += count;
- }
- if (len + wlen > destlen)
- len = destlen - wlen;
- memcpy (wptr, buf, len);
- wptr += len;
- wlen += len;
- }
- break; /* skip rest of input */
+ if (ch == '>') {
+ /* right justify to EOL */
+ ch = *src++; /* pad char */
+ /* calculate space left on line. if we've already written more data
+ than will fit on the line, ignore the rest of the line */
+ if (DrawFullLine || option (OPTSTATUSONTOP))
+ count = (COLS < destlen ? COLS : destlen);
+ else
+ count = ((COLS - SW) < destlen ? (COLS - SW) : destlen);
+ if (count > col) {
+ count -= col; /* how many columns left on this line */
+ mutt_FormatString (buf, sizeof (buf), src, callback, data, flags);
+ wid = m_strlen(buf);
+ if (count > wid) {
+ count -= wid; /* how many chars to pad */
+ memset (wptr, ch, count);
+ wptr += count;
+ col += count;
+ }
+ if (wid + wlen > destlen)
+ len = destlen - wlen;
+ else
+ len = wid;
+ memcpy (wptr, buf, len);
+ wptr += len;
+ wlen += len;
+ col += mutt_strwidth (buf);
+ }
+ break; /* skip rest of input */
}
- else if (ch == '|')
- {
- /* pad to EOL */
- ch = *src++;
- if (destlen > COLS)
- destlen = COLS;
- if (destlen > wlen)
- {
- count = destlen - wlen;
- memset (wptr, ch, count);
- wptr += count;
- }
- break; /* skip rest of input */
+ else if (ch == '|') {
+ /* pad to EOL */
+ ch = *src++;
+ if (destlen > COLS)
+ destlen = COLS;
+ if (destlen > wlen) {
+ count = destlen - wlen;
+ memset (wptr, ch, count);
+ wptr += count;
+ }
+ break; /* skip rest of input */
}
- else
- {
- short tolower = 0;
- short nodots = 0;
-
- while (ch == '_' || ch == ':')
- {
- if (ch == '_')
- tolower = 1;
- else if (ch == ':')
- nodots = 1;
-
- ch = *src++;
- }
-
- /* use callback function to handle this case */
- src = callback (buf, sizeof (buf), ch, src, prefix, ifstring, elsestring, data, flags);
-
- if (tolower)
- mutt_strlower (buf);
- if (nodots)
- {
- char *p = buf;
- for (; *p; p++)
- if (*p == '.')
- *p = '_';
- }
-
- if ((len = mutt_strlen (buf)) + wlen > destlen)
- len = (destlen - wlen > 0) ? (destlen - wlen) : 0;
-
- memcpy (wptr, buf, len);
- wptr += len;
- wlen += len;
+ else {
+ short lower = 0;
+ short nodots = 0;
+
+ while (ch == '_' || ch == ':') {
+ if (ch == '_')
+ lower = 1;
+ else if (ch == ':')
+ nodots = 1;
+
+ ch = *src++;
+ }
+
+ /* use callback function to handle this case */
+ src =
+ callback (buf, sizeof (buf), ch, src, prefix, ifstring, elsestring,
+ data, flags);
+
+ if (lower)
+ m_strtolower(buf);
+ if (nodots) {
+ char *p = buf;
+
+ for (; *p; p++)
+ if (*p == '.')
+ *p = '_';
+ }
+
+ if ((len = m_strlen(buf)) + wlen > destlen)
+ len = (destlen - wlen > 0) ? (destlen - wlen) : 0;
+
+ memcpy (wptr, buf, len);
+ wptr += len;
+ wlen += len;
+ col += mutt_strwidth (buf);
}
}
- else if (*src == '\\')
- {
+ else if (*src == '\\') {
if (!*++src)
- break;
- switch (*src)
- {
- case 'n':
- *wptr = '\n';
- break;
- case 't':
- *wptr = '\t';
- break;
- case 'r':
- *wptr = '\r';
- break;
- case 'f':
- *wptr = '\f';
- break;
- case 'v':
- *wptr = '\v';
- break;
- default:
- *wptr = *src;
- break;
+ break;
+ switch (*src) {
+ case 'n':
+ *wptr = '\n';
+ break;
+ case 't':
+ *wptr = '\t';
+ break;
+ case 'r':
+ *wptr = '\r';
+ break;
+ case 'f':
+ *wptr = '\f';
+ break;
+ case 'v':
+ *wptr = '\v';
+ break;
+ default:
+ *wptr = *src;
+ break;
}
src++;
wptr++;
wlen++;
+ col++;
}
- else
- {
- *wptr++ = *src++;
- wlen++;
+ else {
+ unsigned int bar = strcspn(src, "%\\");
+ char *bar2 = p_dupstr(src, bar);
+
+ while (bar--) {
+ *wptr++ = *src++;
+ wlen++;
+ }
+ col += mutt_strwidth (bar2);
+ p_delete(&bar2);
}
}
*wptr = 0;
-
-#if 0
- if (flags & M_FORMAT_MAKEPRINT)
- {
- /* Make sure that the string is printable by changing all non-printable
- chars to dots, or spaces for non-printable whitespace */
- for (cp = dest ; *cp ; cp++)
- if (!IsPrint (*cp) &&
- !((flags & M_FORMAT_TREE) && (*cp <= M_TREE_MAX)))
- *cp = isspace ((unsigned char) *cp) ? ' ' : '.';
- }
-#endif
-}
-
-/* This function allows the user to specify a command to read stdout from in
- place of a normal file. If the last character in the string is a pipe (|),
- then we assume it is a commmand to run instead of a normal file. */
-FILE *mutt_open_read (const char *path, pid_t *thepid)
-{
- FILE *f;
- int len = mutt_strlen (path);
-
- if (path[len - 1] == '|')
- {
- /* read from a pipe */
-
- char *s = safe_strdup (path);
-
- s[len - 1] = 0;
- mutt_endwin (NULL);
- *thepid = mutt_create_filter (s, NULL, &f, NULL);
- FREE (&s);
- }
- else
- {
- f = fopen (path, "r");
- *thepid = -1;
- }
- return (f);
}
/* returns 0 if OK to proceed, -1 to abort, 1 to retry */
magic = mx_get_magic (s);
-#ifdef USE_POP
- if (magic == M_POP)
- {
+ if (magic == M_POP) {
mutt_error _("Can't save message to POP mailbox.");
+
return 1;
}
-#endif
#ifdef USE_NNTP
- if (magic == M_NNTP)
- {
+ if (magic == M_NNTP) {
mutt_error _("Can't save message to newsserver.");
+
return 0;
}
#endif
- if (stat (s, st) != -1)
- {
- if (magic == -1)
- {
- mutt_error (_("%s is not a mailbox!"), s);
- return 1;
- }
-
+ if (magic > 0 && !mx_access (s, W_OK)) {
if (option (OPTCONFIRMAPPEND) &&
- (!TrashPath || (mutt_strcmp (s, TrashPath) != 0)))
+ (!TrashPath || (m_strcmp(s, TrashPath) != 0))) {
/* if we're appending to the trash, there's no point in asking */
- {
snprintf (tmp, sizeof (tmp), _("Append messages to %s?"), s);
if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
- ret = 1;
+ ret = 1;
else if (rc == -1)
- ret = -1;
+ ret = -1;
}
}
- else
- {
-#ifdef USE_IMAP
+
+ if (stat (s, st) != -1) {
+ if (magic == -1) {
+ mutt_error (_("%s is not a mailbox!"), s);
+ return 1;
+ }
+ } else {
if (magic != M_IMAP)
-#endif /* execute the block unconditionally if we don't use imap */
{
st->st_mtime = 0;
st->st_atime = 0;
- if (errno == ENOENT)
- {
- if (option (OPTCONFIRMCREATE))
- {
- snprintf (tmp, sizeof (tmp), _("Create %s?"), s);
- if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
- ret = 1;
- else if (rc == -1)
- ret = -1;
- }
- }
- else
- {
- mutt_perror (s);
- return 1;
+ if (errno == ENOENT) {
+ if (option (OPTCONFIRMCREATE)) {
+ snprintf (tmp, sizeof (tmp), _("Create %s?"), s);
+ if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
+ ret = 1;
+ else if (rc == -1)
+ ret = -1;
+ }
+ } else {
+ mutt_perror (s);
+ return 1;
}
}
}
- CLEARLINE (LINES-1);
+ CLEARLINE (LINES - 1);
return (ret);
}
-void state_prefix_putc (char c, STATE *s)
-{
- if (s->flags & M_PENDINGPREFIX)
- {
- int i;
-
- i = strlen (Quotebuf);
- Quotebuf[i++] = c;
- Quotebuf[i] = '\0';
- if (i == sizeof (Quotebuf) - 1 || c == '\n')
- {
- char buf[2 * SHORT_STRING];
- int j = 0, offset = 0;
- regmatch_t pmatch[1];
-
- state_reset_prefix (s);
- while (regexec ((regex_t *) QuoteRegexp.rx, &Quotebuf[offset], 1, pmatch, 0) == 0)
- offset += pmatch->rm_eo;
-
- if (!option (OPTQUOTEEMPTY) && Quotebuf[0] == '\n')
- strcpy (buf, Quotebuf);
- else if (option (OPTQUOTEQUOTED) && offset)
- {
- for (i = 0; i < offset; i++)
- if (Quotebuf[i] != ' ')
- j = i;
- strncpy (buf, Quotebuf, j + 1);
- strcpy (buf + j + 1, Quotebuf + j);
- }
- else
- snprintf (buf, sizeof (buf), "%s%s", NONULL(s->prefix), Quotebuf);
-
- state_puts (buf, s);
- }
- }
- else
- state_putc (c, s);
-
- if (c == '\n')
- {
- state_set_prefix (s);
- Quotebuf[0] = '\0';
- }
-}
-
-int state_printf (STATE *s, const char *fmt, ...)
-{
- int rv;
- va_list ap;
-
- va_start (ap, fmt);
- rv = vfprintf (s->fpout, fmt, ap);
- va_end (ap);
-
- return rv;
-}
-
-void state_mark_attach (STATE *s)
-{
- if ((s->flags & M_DISPLAY) && !mutt_strcmp (Pager, "builtin"))
- state_puts (AttachmentMarker, s);
-}
-
-void state_attach_puts (const char *t, STATE *s)
-{
- if (*t != '\n') state_mark_attach (s);
- while (*t)
- {
- state_putc (*t, s);
- if (*t++ == '\n' && *t)
- if (*t != '\n') state_mark_attach (s);
- }
-}
-
-void mutt_display_sanitize (char *s)
-{
- for (; *s; s++)
- {
- if (!IsPrint (*s))
- *s = '?';
- }
-}
-
void mutt_sleep (short s)
{
- if (SleepTime > s)
- sleep (SleepTime);
- else if (s)
- sleep (s);
-}
-
-void mutt_buffer_addstr (BUFFER* buf, const char* s)
-{
- mutt_buffer_add (buf, s, mutt_strlen (s));
-}
-
-void mutt_buffer_addch (BUFFER* buf, char c)
-{
- mutt_buffer_add (buf, &c, 1);
-}
-
-/* dynamically grows a BUFFER to accomodate s, in increments of 128 bytes.
- * Always one byte bigger than necessary for the null terminator, and
- * the buffer is always null-terminated */
-void mutt_buffer_add (BUFFER* buf, const char* s, size_t len)
-{
- size_t offset;
-
- if (buf->dptr + len + 1 > buf->data + buf->dsize)
- {
- offset = buf->dptr - buf->data;
- buf->dsize += len < 128 ? 128 : len + 1;
- safe_realloc ((void**) &buf->data, buf->dsize);
- buf->dptr = buf->data + offset;
- }
- memcpy (buf->dptr, s, len);
- buf->dptr += len;
- *(buf->dptr) = '\0';
+ sleep(MAX(s, SleepTime));
}
/* Decrease a file's modification time by 1 second */
-
time_t mutt_decrease_mtime (const char *f, struct stat *st)
{
struct utimbuf utim;
struct stat _st;
time_t mtime;
-
- if (!st)
- {
+
+ if (!st) {
if (stat (f, &_st) == -1)
return -1;
st = &_st;
}
- if ((mtime = st->st_mtime) == time (NULL))
- {
+ if ((mtime = st->st_mtime) == time (NULL)) {
mtime -= 1;
utim.actime = mtime;
utim.modtime = mtime;
utime (f, &utim);
}
-
+
return mtime;
}
-const char *mutt_make_version (void)
+const char *mutt_make_version (int full)
{
static char vstring[STRING];
- snprintf (vstring, sizeof (vstring), "Mutt %s (%s)",
- MUTT_VERSION, ReleaseDate);
+
+ if (full)
+ snprintf (vstring, sizeof (vstring),
+ "Madmutt/%s-r%s (based on Mutt 1.5.11)",
+ MUTT_VERSION, MUTT_REVISION);
+ else
+ snprintf (vstring, sizeof (vstring), "Madmutt/%s-%s",
+ MUTT_VERSION, MUTT_REVISION);
return vstring;
}
-REGEXP *mutt_compile_regexp (const char *s, int flags)
+int mutt_match_spam_list (const char *s, rx_t * l, char *text, int x)
{
- REGEXP *pp = safe_calloc (sizeof (REGEXP), 1);
- pp->pattern = safe_strdup (s);
- pp->rx = safe_calloc (sizeof (regex_t), 1);
- if (REGCOMP (pp->rx, NONULL(s), flags) != 0)
- mutt_free_regexp (&pp);
+ static regmatch_t *pmatch = NULL;
+ static int nmatch = 0;
+ int i, n, tlen;
+ char *p;
+
+ if (!s)
+ return 0;
+
+ tlen = 0;
- return pp;
+ for (; l; l = l->next) {
+ /* If this pattern needs more matches, expand pmatch. */
+ if (l->nmatch > nmatch) {
+ p_realloc(&pmatch, l->nmatch);
+ nmatch = l->nmatch;
+ }
+
+ /* Does this pattern match? */
+ if (regexec(l->rx, s, l->nmatch, (regmatch_t *)pmatch, (int) 0) == 0) {
+ /* Copy template into text, with substitutions. */
+ for (p = l->template; *p;) {
+ if (*p == '%') {
+ n = atoi (++p); /* find pmatch index */
+ while (isdigit ((unsigned char) *p))
+ ++p; /* skip subst token */
+ for (i = pmatch[n].rm_so; (i < pmatch[n].rm_eo) && (tlen < x); i++)
+ text[tlen++] = s[i];
+ }
+ else {
+ text[tlen++] = *p++;
+ }
+ }
+ text[tlen] = '\0';
+ return 1;
+ }
+ }
+
+ return 0;
}
-void mutt_free_regexp (REGEXP **pp)
+/* return 1 if address lists are strictly identical */
+static int mutt_cmp_addr (const address_t * a, const address_t * b)
{
- FREE (&(*pp)->pattern);
- regfree ((*pp)->rx);
- FREE (&(*pp)->rx);
- FREE (pp);
+ while (a && b) {
+ if (m_strcmp(a->mailbox, b->mailbox) ||
+ m_strcmp(a->personal, b->personal))
+ return (0);
+
+ a = a->next;
+ b = b->next;
+ }
+ if (a || b)
+ return (0);
+
+ return (1);
}
-void mutt_free_rx_list (RX_LIST **list)
+static int mutt_cmp_list (const string_list_t * a, const string_list_t * b)
{
- RX_LIST *p;
-
- if (!list) return;
- while (*list)
- {
- p = *list;
- *list = (*list)->next;
- mutt_free_regexp (&p->rx);
- FREE (&p);
+ while (a && b) {
+ if (m_strcmp(a->data, b->data))
+ return (0);
+
+ a = a->next;
+ b = b->next;
}
+ if (a || b)
+ return (0);
+
+ return (1);
}
-int mutt_match_rx_list (const char *s, RX_LIST *l)
+static int mutt_cmp_env (const ENVELOPE * e1, const ENVELOPE * e2)
{
- if (!s) return 0;
-
- for (; l; l = l->next)
- {
- if (regexec (l->rx->rx, s, (size_t) 0, (regmatch_t *) 0, (int) 0) == 0)
- {
- dprint (5, (debugfile, "mutt_match_rx_list: %s matches %s\n", s, l->rx->pattern));
- return 1;
- }
+ if (e1 && e2) {
+ if (m_strcmp(e1->message_id, e2->message_id) ||
+ m_strcmp(e1->subject, e2->subject) ||
+ !mutt_cmp_list (e1->references, e2->references) ||
+ !mutt_cmp_addr (e1->from, e2->from) ||
+ !mutt_cmp_addr (e1->sender, e2->sender) ||
+ !mutt_cmp_addr (e1->reply_to, e2->reply_to) ||
+ !mutt_cmp_addr (e1->to, e2->to) ||
+ !mutt_cmp_addr (e1->cc, e2->cc) ||
+ !mutt_cmp_addr (e1->return_path, e2->return_path))
+ return (0);
+ else
+ return (1);
}
-
- return 0;
+ else {
+ if (e1 == NULL && e2 == NULL)
+ return (1);
+ else
+ return (0);
+ }
+}
+
+static int mutt_cmp_body (const BODY * b1, const BODY * b2)
+{
+ if (b1->type != b2->type ||
+ b1->encoding != b2->encoding ||
+ m_strcmp(b1->subtype, b2->subtype) ||
+ m_strcmp(b1->description, b2->description) ||
+ !parameter_equal(b1->parameter, b2->parameter) ||
+ b1->length != b2->length)
+ return (0);
+ return (1);
+}
+int mutt_cmp_header (const HEADER * h1, const HEADER * h2) {
+ if (h1 && h2) {
+ if (h1->received != h2->received ||
+ h1->date_sent != h2->date_sent ||
+ h1->content->length != h2->content->length ||
+ h1->lines != h2->lines ||
+ h1->zhours != h2->zhours ||
+ h1->zminutes != h2->zminutes ||
+ h1->zoccident != h2->zoccident ||
+ h1->mime != h2->mime ||
+ !mutt_cmp_env (h1->env, h2->env) ||
+ !mutt_cmp_body (h1->content, h2->content))
+ return (0);
+ else
+ return (1);
+ }
+ else {
+ if (h1 == NULL && h2 == NULL)
+ return (1);
+ else
+ return (0);
+ }
+}
+
+
+int mutt_extract_token(BUFFER *dest, BUFFER *tok, int flags)
+{
+ char ch;
+ char qc = 0; /* quote char */
+ char *pc;
+
+ /* reset the destination pointer to the beginning of the buffer */
+ dest->dptr = dest->data;
+
+ tok->dptr = vskipspaces(tok->dptr);
+ while ((ch = *tok->dptr)) {
+ if (!qc) {
+ if ((ISSPACE(ch) && !(flags & M_TOKEN_SPACE))
+ || (ch == '#' && !(flags & M_TOKEN_COMMENT))
+ || (ch == '=' && (flags & M_TOKEN_EQUAL))
+ || (ch == ';' && !(flags & M_TOKEN_SEMICOLON))
+ || ((flags & M_TOKEN_PATTERN) && strchr("~=!|", ch)))
+ {
+ break;
+ }
+ }
+
+ tok->dptr++;
+
+ if (ch == qc) {
+ qc = 0; /* end of quote */
+ } else
+ if (!qc && (ch == '\'' || ch == '"') && !(flags & M_TOKEN_QUOTE)) {
+ qc = ch;
+ } else
+ if (ch == '\\' && qc != '\'') {
+ if (!*tok->dptr)
+ return -1; /* premature end of token */
+
+ switch (ch = *tok->dptr++) {
+ case 'c':
+ case 'C':
+ if (!*tok->dptr)
+ return -1; /* premature end of token */
+ mutt_buffer_addch(dest,
+ (ascii_toupper(*tok->dptr) - 'A' + 1) & 0x7f);
+ tok->dptr++;
+ break;
+ case 'r':
+ mutt_buffer_addch(dest, '\r');
+ break;
+ case 'n':
+ mutt_buffer_addch(dest, '\n');
+ break;
+ case 't':
+ mutt_buffer_addch(dest, '\t');
+ break;
+ case 'f':
+ mutt_buffer_addch(dest, '\f');
+ break;
+ case 'e':
+ mutt_buffer_addch(dest, '\033');
+ break;
+ default:
+ if (isdigit((unsigned char)ch)
+ && isdigit((unsigned char)*tok->dptr)
+ && isdigit((unsigned char)*(tok->dptr + 1)))
+ {
+ mutt_buffer_addch(dest, (ch << 6) + (*tok->dptr << 3) +
+ *(tok->dptr + 1) - 3504);
+ tok->dptr += 2;
+ } else {
+ mutt_buffer_addch(dest, ch);
+ }
+ }
+ } else
+ if (ch == '^' && (flags & M_TOKEN_CONDENSE)) {
+ if (!*tok->dptr)
+ return -1; /* premature end of token */
+ ch = *tok->dptr++;
+ if (ch == '^') {
+ mutt_buffer_addch(dest, ch);
+ } else
+ if (ch == '[') {
+ mutt_buffer_addch(dest, '\033');
+ } else
+ if (isalpha((unsigned char)ch)) {
+ mutt_buffer_addch(dest, ascii_toupper(ch) - 'A' + 1);
+ } else {
+ mutt_buffer_addch(dest, '^');
+ mutt_buffer_addch(dest, ch);
+ }
+ } else
+ if (ch == '`' && (!qc || qc == '"')) {
+ FILE *fp;
+ pid_t pid;
+ char *cmd, *ptr;
+ ssize_t expnlen;
+ BUFFER expn;
+ int line = 0;
+
+ pc = tok->dptr;
+ do {
+ if ((pc = strpbrk(pc, "\\`"))) {
+ /* skip any quoted chars */
+ if (*pc == '\\')
+ pc += 2;
+ }
+ } while (pc && *pc != '`');
+ if (!pc) {
+ return (-1);
+ }
+
+ cmd = p_dupstr(tok->dptr, pc - tok->dptr);
+ if ((pid = mutt_create_filter(cmd, NULL, &fp, NULL)) < 0) {
+ p_delete(&cmd);
+ return -1;
+ }
+ p_delete(&cmd);
+
+ tok->dptr = pc + 1;
+
+ /* read line */
+ p_clear(&expn, 1);
+ expn.data = mutt_read_line(NULL, &expn.dsize, fp, &line);
+ fclose(fp);
+ mutt_wait_filter(pid);
+
+ /* if we got output, make a new string consiting of the shell ouptput
+ plus whatever else was left on the original line */
+ /* BUT: If this is inside a quoted string, directly add output to
+ * the token */
+ if (expn.data && qc) {
+ mutt_buffer_addstr(dest, expn.data);
+ p_delete(&expn.data);
+ } else
+ if (expn.data) {
+ expnlen = m_strlen(expn.data);
+ tok->dsize = expnlen + m_strlen(tok->dptr) + 1;
+ ptr = xmalloc(tok->dsize);
+ memcpy(ptr, expn.data, expnlen);
+ strcpy(ptr + expnlen, tok->dptr); /* __STRCPY_CHECKED__ */
+ if (tok->destroy)
+ p_delete(&tok->data);
+ tok->data = ptr;
+ tok->dptr = ptr;
+ tok->destroy = 1; /* mark that the caller should destroy this data */
+ ptr = NULL;
+ p_delete(&expn.data);
+ }
+ } else
+ if (ch == '$' && (!qc || qc == '"')
+ && (*tok->dptr == '{' || isalpha((unsigned char)*tok->dptr)))
+ {
+ char *env = NULL, *var = NULL;
+
+ if (*tok->dptr == '{') {
+ tok->dptr++;
+ if ((pc = strchr (tok->dptr, '}'))) {
+ var = p_dupstr(tok->dptr, pc - tok->dptr);
+ tok->dptr = pc + 1;
+ }
+ } else {
+ for (pc = tok->dptr; isalnum((unsigned char)*pc) || *pc == '_';
+ pc++);
+ var = p_dupstr(tok->dptr, pc - tok->dptr);
+ tok->dptr = pc;
+ }
+ if (var) {
+ char tmp[STRING];
+ if ((env = getenv (var))
+ || (mutt_option_value (var, tmp, sizeof (tmp)) && (env = tmp)))
+ {
+ mutt_buffer_addstr (dest, env);
+ }
+ }
+ p_delete(&var);
+ } else {
+ mutt_buffer_addch(dest, ch);
+ }
+ }
+ mutt_buffer_addch(dest, 0); /* terminate the string */
+ tok->dptr = vskipspaces(tok->dptr);
+ return 0;
}