-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)
-{
- BODY *a = *p, *b;
-
- while (a)
- {
- b = a;
- a = a->next;
-
- 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);
- }
-
- 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)
-{
- for (; t; t = t->next)
- {
- if (!ascii_strncasecmp (s, t->data, mutt_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;
-
- case '^':
- {
- strfcpy (p, NONULL(CurrentFolder), sizeof (p));
- tail = s + 1;
- }
- break;
-
- default:
- {
- *p = '\0';
- tail = s;
- }
- }
-
- 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);
-}
-
-/* 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)