Use good m_ functions, because it smell like a flower, version 2.
[apps/madmutt.git] / muttlib.c
index 0e396e6..9afd5cd 100644 (file)
--- a/muttlib.c
+++ b/muttlib.c
@@ -8,40 +8,24 @@
  * please see the file GPL in the top level source directory.
  */
 
-#if HAVE_CONFIG_H
-# include "config.h"
-#endif
+#include <lib-lib/lib-lib.h>
 
-#include <ctype.h>
-#include <errno.h>
-#include <fcntl.h>
 #include <grp.h>
 #include <pwd.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-#include <sys/wait.h>
-#include <time.h>
-#include <unistd.h>
-#include <utime.h>
-
-#include <lib-lib/lib-lib.h>
 
 #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 "alias.h"
 #include "mutt.h"
-#include "mx.h"
 #include "attach.h"
 
 #include "version.h"
 
 #include <imap/imap.h>
-#include <imap/mx_imap.h>
 
 #include <lib-crypt/crypt.h>
 
  */
 void mutt_adv_mktemp (const char* dir, char *s, ssize_t l)
 {
-  char buf[_POSIX_PATH_MAX];
-  char tmp[_POSIX_PATH_MAX];
-  char *period;
-  ssize_t sl;
-  struct stat sb;
-
-  m_strcpy(buf, sizeof(buf), m_strisempty(dir) ? NONULL(Tempdir) : dir);
-  mutt_expand_path (buf, sizeof (buf));
-  if (s[0] == '\0') {
-    snprintf (s, l, "%s/muttXXXXXX", buf);
-    mktemp (s);
-  }
-  else {
-    m_strcpy(tmp, sizeof(tmp), s);
-    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 = m_strlen(s);
-      m_strcpy(s + sl, l - sl, period);
-    }
-  }
-}
-
-/* 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_t *par, **ppar;
-
-  short use_disp;
-
-  if (src->filename) {
-    use_disp = 1;
-    m_strcpy(tmp, sizeof(tmp), src->filename);
-  }
-  else {
-    use_disp = 0;
-    tmp[0] = '\0';
-  }
+    int fd;
 
-  mutt_adv_mktemp (NULL, tmp, sizeof (tmp));
-  if (mutt_save_attachment (fp, src, tmp, 0, NULL) == -1)
-    return -1;
-
-  *tgt = body_new();
-  b = *tgt;
-
-  memcpy (b, src, sizeof (BODY));
-  b->parts = NULL;
-  b->next = NULL;
-
-  b->filename = m_strdup(tmp);
-  b->use_disp = use_disp;
-  b->unlink = 1;
-
-  if (mutt_is_text_part (b))
-    b->noconv = 1;
-
-  b->xtype = m_strdup(b->xtype);
-  b->subtype = m_strdup(b->subtype);
-  b->form_name = m_strdup(b->form_name);
-  b->filename = m_strdup(b->filename);
-  b->d_filename = m_strdup(b->d_filename);
-  b->description = m_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 = parameter_new();
-    (*ppar)->attribute = m_strdup(par->attribute);
-    (*ppar)->value = m_strdup(par->value);
-  }
-
-  mutt_stamp_attachment (b);
-
-  return 0;
+    fd = m_tempfd(s, l, m_strisempty(dir) ? NONULL(Tempdir) : dir, s);
+    if (fd < 0) {
+        *s = '\0';
+    } else {
+        close(fd);
+        unlink(s);
+    }
 }
 
 /* returns true if the header contained in "s" is in list "t" */
@@ -162,232 +61,124 @@ int mutt_matches_ignore (const char *s, string_list_t * t)
   return 0;
 }
 
-/* prepend the path part of *path to *lnk */
-void mutt_expand_link (char *newpath, const char *path, const char *lnk)
-{
-  const char *lb = NULL;
-  ssize_t len;
-
-  /* lnk is full path */
-  if (*lnk == '/') {
-    m_strcpy(newpath, _POSIX_PATH_MAX, lnk);
-    return;
-  }
-
-  if ((lb = strrchr (path, '/')) == NULL) {
-    /* no path in lnk */
-    m_strcpy(newpath, _POSIX_PATH_MAX, lnk);
-    return;
-  }
-
-  len = lb - path + 1;
-  memcpy (newpath, path, len);
-  m_strcpy(newpath + len, _POSIX_PATH_MAX - len, lnk);
-}
-
-char *mutt_expand_path (char *s, ssize_t slen)
+ssize_t _mutt_expand_path(char *s, ssize_t slen, int rx)
 {
-  return _mutt_expand_path (s, slen, 0);
-}
-
-char *_mutt_expand_path (char *s, ssize_t slen, int rx)
-{
-  char p[_POSIX_PATH_MAX] = "";
-  char q[_POSIX_PATH_MAX] = "";
-  char tmp[_POSIX_PATH_MAX];
-  char *t;
+    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, '/');
 
-  const char *tail = "";
+                m_strncpy(tmp, sizeof(tmp), s + 1, tail - s - 1);
 
-  int recurse = 0;
+                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));
+            }
 
-  do {
-    recurse = 0;
+            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;
 
-    switch (*s) {
-    case '~':
-      {
-        if (*(s + 1) == '/' || *(s + 1) == 0) {
-          m_strcpy(p, sizeof(p), NONULL(Homedir));
-          tail = s + 1;
-        }
-        else {
-          struct passwd *pw;
+          case '-':
+            m_strcpy(p, sizeof(p), NONULL(LastFolder));
+            tail = s + 1;
+            break;
 
-          if ((t = strchr (s + 1, '/')))
-            *t = 0;
+          case '^':
+            m_strcpy(p, sizeof(p), NONULL(CurrentFolder));
+            tail = s + 1;
+            break;
 
-          if ((pw = getpwnam (s + 1))) {
-            m_strcpy(p, sizeof(p), pw->pw_dir);
-            if (t) {
-              *t = '/';
-              tail = t;
-            }
-            else
-              tail = "";
-          }
-          else {
-            /* user not found! */
-            if (t)
-              *t = '/';
+          default:
             *p = '\0';
             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), NONULL(Maildir));
-        else
-          snprintf (p, sizeof (p), "%s/", NONULL (Maildir));
-
-        tail = s + 1;
-      }
-      break;
-
-      /* elm compatibility, @ expands alias to user name */
-
-    case '@':
-      {
-        HEADER *h;
-        /* FIXME: BUG ? */
-        address_t *alias;
-
-        if ((alias = alias_lookup(s + 1))) {
-          h = header_new();
-          h->env = envelope_new();
-          h->env->from = h->env->to = alias;
-          mutt_default_save (p, sizeof (p), h);
-          h->env->from = h->env->to = NULL;
-          header_delete(&h);
-          /* Avoid infinite recursion if the resulting folder starts with '@' */
-          if (*p != '@')
-            recurse = 1;
-
-          tail = "";
-        }
-      }
-      break;
-
-    case '>':
-      {
-        m_strcpy(p, sizeof(p), NONULL(Inbox));
-        tail = s + 1;
-      }
-      break;
-
-    case '<':
-      {
-        m_strcpy(p, sizeof(p), NONULL(Outbox));
-        tail = s + 1;
-      }
-      break;
-
-    case '!':
-      {
-        if (*(s + 1) == '!') {
-          m_strcpy(p, sizeof(p), NONULL(LastFolder));
-          tail = s + 2;
-        }
-        else {
-          m_strcpy(p, sizeof(p), NONULL(Spoolfile));
-          tail = s + 1;
         }
-      }
-      break;
-
-    case '-':
-      {
-        m_strcpy(p, sizeof(p), NONULL(LastFolder));
-        tail = s + 1;
-      }
-      break;
+    } while (0);
 
-    case '^':
-      {
-        m_strcpy(p, sizeof(p), NONULL(CurrentFolder));
-        tail = s + 1;
-      }
-      break;
-
-    default:
-      {
-        *p = '\0';
-        tail = s;
-      }
-    }
-
-    if (rx && *p && !recurse) {
-      rx_sanitize_string (q, sizeof (q), p);
-      snprintf (tmp, sizeof (tmp), "%s%s", q, tail);
+    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);
     }
-    else
-      snprintf (tmp, sizeof (tmp), "%s%s", p, tail);
-
-    m_strcpy(s, slen, tmp);
-  }
-  while (recurse);
 
-  return (s);
+    return m_strcpy(s, slen, tmp);
 }
 
-/* move all the headers from extra not present in base into base */
-void mutt_merge_envelopes(ENVELOPE* base, ENVELOPE** extra)
+void mutt_mktemp(char *s)
 {
-  /* copies each existing element if necessary, and sets the element
-  * to NULL in the source so that envelope_delete doesn't leave us
-  * with dangling pointers. */
-#define MOVE_ELEM(h) if (!base->h) { base->h = (*extra)->h; (*extra)->h = NULL; }
-  MOVE_ELEM(return_path);
-  MOVE_ELEM(from);
-  MOVE_ELEM(to);
-  MOVE_ELEM(cc);
-  MOVE_ELEM(bcc);
-  MOVE_ELEM(sender);
-  MOVE_ELEM(reply_to);
-  MOVE_ELEM(mail_followup_to);
-  MOVE_ELEM(list_post);
-  MOVE_ELEM(message_id);
-  MOVE_ELEM(supersedes);
-  MOVE_ELEM(date);
-  MOVE_ELEM(x_label);
-  if (!base->refs_changed) {
-    MOVE_ELEM(references);
-  }
-  if (!base->irt_changed) {
-    MOVE_ELEM(in_reply_to);
-  }
-  /* real_subj is subordinate to subject */
-  if (!base->subject) {
-    base->subject = (*extra)->subject;
-    base->real_subj = (*extra)->real_subj;
-    (*extra)->subject = NULL;
-    (*extra)->real_subj = NULL;
-  }
-  /* spam and user headers should never be hashed, and the new envelope may
-   * have better values. Use new versions regardless. */
-  mutt_buffer_free (&base->spam);
-  string_list_wipe(&base->userhdrs);
-  MOVE_ELEM(spam);
-  MOVE_ELEM(userhdrs);
-#undef MOVE_ELEM
-  
-  envelope_delete(extra);
-}
-
-void _mutt_mktemp (char *s, const char *src, int line)
-{
-
-  snprintf (s, _POSIX_PATH_MAX, "%s/madmutt-%s-%d-%d-%d-%x%x", NONULL (Tempdir),
-            NONULL (Hostname), (int) getuid (), (int) getpid (), Counter++, 
-            (unsigned int) rand(), (unsigned int) rand());
-  unlink (s);
+    int fd = m_tempfd(s, _POSIX_PATH_MAX, NONULL(Tempdir), NULL);
+    if (fd < 0) {
+        *s = '\0';
+    } else {
+        close(fd);
+        unlink(s);
+    }
 }
 
 /* collapse the pathname using ~ or = when possible */
@@ -407,7 +198,7 @@ void mutt_pretty_mailbox (char *s)
   /* if s is an url, only collapse path component */
   if (scheme != U_UNKNOWN) {
     p = strchr (s, ':') + 1;
-    if (!strncmp (p, "//", 2))
+    if (!m_strncmp (p, "//", 2))
       q = strchr (p + 2, '/');
     if (!q)
       q = strchr (p, '\0');
@@ -441,68 +232,6 @@ void mutt_pretty_mailbox (char *s)
   }
 }
 
-void mutt_pretty_size (char *s, ssize_t len, long n)
-{
-  if (n == 0)
-    m_strcpy(s, len, "0K");
-  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);
-  }
-}
-
-void mutt_expand_file_fmt(char *dest, ssize_t destlen,
-                          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 *dst, ssize_t dlen,
-                     const char *fmt, const char *src)
-{
-    ssize_t pos = 0;
-    int found = 0;
-
-    while (*fmt && pos < dlen - 1) {
-        if (*fmt == '%') {
-            switch (*++fmt) {
-              case 's':
-                found = 1;
-                pos += m_strcpy(dst + pos, dlen - pos, src);
-                break;
-
-              case '%':
-                dst[pos++] = *fmt++;
-                break;
-
-              default:
-                dst[pos++] = '%';
-                break;
-            }
-        } else {
-            dst[pos++] = *fmt++;
-        }
-    }
-
-    dst[pos] = '\0';
-    if (!found) {
-        pos += m_strcpy(dst + pos, dlen - pos, " ");
-        pos += m_strcpy(dst + pos, dlen - pos, src);
-    }
-}
-
 /* return 0 on success, -1 on abort, 1 on error */
 int mutt_check_overwrite (const char *attname, const char *path,
                           char *fname, ssize_t flen, int *append,
@@ -537,9 +266,8 @@ int mutt_check_overwrite (const char *attname, const char *path,
       }
     }
     else
-      if ((rc =
-           mutt_yesorno (_("File is a directory, save under it?"),
-                         M_YES)) != M_YES)
+      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]) {
@@ -803,16 +531,6 @@ void mutt_FormatString (char *dest,     /* output buffer */
     }
   }
   *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
 }
 
 /* returns 0 if OK to proceed, -1 to abort, 1 to retry */
@@ -856,8 +574,7 @@ int mutt_save_confirm (const char *s, struct stat *st)
       mutt_error (_("%s is not a mailbox!"), s);
       return 1;
     }
-  }
-  else {
+  } else {
     if (magic != M_IMAP)
     {
       st->st_mtime = 0;
@@ -871,8 +588,7 @@ int mutt_save_confirm (const char *s, struct stat *st)
           else if (rc == -1)
             ret = -1;
         }
-      }
-      else {
+      } else {
         mutt_perror (s);
         return 1;
       }
@@ -888,41 +604,6 @@ void mutt_sleep (short s)
     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 (stat (f, &_st) == -1)
-      return -1;
-    st = &_st;
-  }
-
-  if ((mtime = st->st_mtime) == time (NULL)) {
-    mtime -= 1;
-    utim.actime = mtime;
-    utim.modtime = mtime;
-    utime (f, &utim);
-  }
-
-  return mtime;
-}
-
-/* sets mtime of 'to' to mtime of 'from' */
-void mutt_set_mtime (const char* from, const char* to) {
-  struct utimbuf utim;
-  struct stat st;
-
-  if (stat (from, &st) != -1) {
-    utim.actime = st.st_mtime;
-    utim.modtime = st.st_mtime;
-    utime (to, &utim);
-  }
-}
-
 const char *mutt_make_version (int full)
 {
   static char vstring[STRING];
@@ -937,90 +618,8 @@ const char *mutt_make_version (int full)
   return vstring;
 }
 
-void mutt_free_spam_list (SPAM_LIST ** list)
-{
-  SPAM_LIST *p;
-
-  if (!list)
-    return;
-  while (*list) {
-    p = *list;
-    *list = (*list)->next;
-    rx_delete(&p->rx);
-    p_delete(&p->template);
-    p_delete(&p);
-  }
-}
-
-int mutt_match_spam_list (const char *s, SPAM_LIST * l, char *text, int x)
-{
-  static regmatch_t *pmatch = NULL;
-  static int nmatch = 0;
-  int i, n, tlen;
-  char *p;
-
-  if (!s)
-    return 0;
-
-  tlen = 0;
-
-  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->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;
-}
-
-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);
-  }
-}
-
 /* return 1 if address lists are strictly identical */
-int mutt_cmp_addr (const address_t * a, const address_t * b)
+static int mutt_cmp_addr (const address_t * a, const address_t * b)
 {
   while (a && b) {
     if (m_strcmp(a->mailbox, b->mailbox) ||
@@ -1036,7 +635,7 @@ int mutt_cmp_addr (const address_t * a, const address_t * b)
   return (1);
 }
 
-int mutt_cmp_list (const string_list_t * a, const string_list_t * b)
+static int mutt_cmp_list (const string_list_t * a, const string_list_t * b)
 {
   while (a && b) {
     if (m_strcmp(a->data, b->data))
@@ -1051,7 +650,7 @@ int mutt_cmp_list (const string_list_t * a, const string_list_t * b)
   return (1);
 }
 
-int mutt_cmp_env (const ENVELOPE * e1, const ENVELOPE * e2)
+static int mutt_cmp_env (const ENVELOPE * e1, const ENVELOPE * e2)
 {
   if (e1 && e2) {
     if (m_strcmp(e1->message_id, e2->message_id) ||
@@ -1075,7 +674,7 @@ int mutt_cmp_env (const ENVELOPE * e1, const ENVELOPE * e2)
   }
 }
 
-int mutt_cmp_body (const BODY * b1, const BODY * b2)
+static int mutt_cmp_body (const BODY * b1, const BODY * b2)
 {
   if (b1->type != b2->type ||
       b1->encoding != b2->encoding ||
@@ -1086,6 +685,30 @@ int mutt_cmp_body (const BODY * b1, const BODY * b2)
     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)
 {
@@ -1207,7 +830,7 @@ int mutt_extract_token(BUFFER *dest, BUFFER *tok, int flags)
             /* read line */
             p_clear(&expn, 1);
             expn.data = mutt_read_line(NULL, &expn.dsize, fp, &line);
-            fclose(fp);
+            m_fclose(&fp);
             mutt_wait_filter(pid);
 
             /* if we got output, make a new string consiting of the shell ouptput
@@ -1223,7 +846,7 @@ int mutt_extract_token(BUFFER *dest, BUFFER *tok, int flags)
                 tok->dsize = expnlen + m_strlen(tok->dptr) + 1;
                 ptr = xmalloc(tok->dsize);
                 memcpy(ptr, expn.data, expnlen);
-                strcpy(ptr + expnlen, tok->dptr);      /* __STRCPY_CHECKED__ */
+                m_strcpy(ptr + expnlen, tok->dsize - expnlen, tok->dptr);
                 if (tok->destroy)
                     p_delete(&tok->data);
                 tok->data = ptr;