muttlib.c

   1 /*
   2  * Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
   3  * Copyright (C) 1999-2000 Thomas Roessler <roessler@does-not-exist.org>
   4  *
   5  *     This program is free software; you can redistribute it and/or modify
   6  *     it under the terms of the GNU General Public License as published by
   7  *     the Free Software Foundation; either version 2 of the License, or
   8  *     (at your option) any later version.
   9  *
  10  *     This program is distributed in the hope that it will be useful,
  11  *     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  *     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  *     GNU General Public License for more details.
  14  *
  15  *     You should have received a copy of the GNU General Public License
  16  *     along with this program; if not, write to the Free Software
  17  *     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
  18  */
  19
  20 #include "mutt.h"
  21 #include "mutt_curses.h"
  22 #include "mime.h"
  23 #include "mailbox.h"
  24 #include "mx.h"
  25 #include "url.h"
  26
  27 #include "reldate.h"
  28
  29 #ifdef USE_IMAP
  30 #include "imap.h"
  31 #endif
  32
  33 #include "mutt_crypt.h"
  34
  35 #include <string.h>
  36 #include <ctype.h>
  37 #include <unistd.h>
  38 #include <stdlib.h>
  39 #include <sys/wait.h>
  40 #include <errno.h>
  41 #include <sys/stat.h>
  42 #include <fcntl.h>
  43 #include <time.h>
  44 #include <sys/types.h>
  45 #include <utime.h>
  46
  47 BODY *mutt_new_body (void)
  48 {
  49   BODY *p = (BODY *) safe_calloc (1, sizeof (BODY));
  50
  51   p->disposition = DISPATTACH;
  52   p->use_disp = 1;
  53   return (p);
  54 }
  55
  56
  57 /* Modified by blong to accept a "suggestion" for file name.  If
  58  * that file exists, then construct one with unique name but
  59  * keep any extension.  This might fail, I guess.
  60  * Renamed to mutt_adv_mktemp so I only have to change where it's
  61  * called, and not all possible cases.
  62  */
  63 void mutt_adv_mktemp (char *s, size_t l)
  64 {
  65   char buf[_POSIX_PATH_MAX];
  66   char tmp[_POSIX_PATH_MAX];
  67   char *period;
  68   size_t sl;
  69   struct stat sb;
  70
  71   strfcpy (buf, NONULL (Tempdir), sizeof (buf));
  72   mutt_expand_path (buf, sizeof (buf));
  73   if (s[0] == '\0')
  74   {
  75     snprintf (s, l, "%s/muttXXXXXX", buf);
  76     mktemp (s);
  77   }
  78   else
  79   {
  80     strfcpy (tmp, s, sizeof (tmp));
  81     mutt_sanitize_filename (tmp, 1);
  82     snprintf (s, l, "%s/%s", buf, tmp);
  83     if (lstat (s, &sb) == -1 && errno == ENOENT)
  84       return;
  85     if ((period = strrchr (tmp, '.')) != NULL)
  86       *period = 0;
  87     snprintf (s, l, "%s/%s.XXXXXX", buf, tmp);
  88     mktemp (s);
  89     if (period != NULL)
  90     {
  91       *period = '.';
  92       sl = mutt_strlen(s);
  93       strfcpy(s + sl, period, l - sl);
  94     }
  95   }
  96 }
  97
  98 /* create a send-mode duplicate from a receive-mode body */
  99
 100 int mutt_copy_body (FILE *fp, BODY **tgt, BODY *src)
 101 {
 102   char tmp[_POSIX_PATH_MAX];
 103   BODY *b;
 104
 105   PARAMETER *par, **ppar;
 106
 107   short use_disp;
 108
 109   if (src->filename)
 110   {
 111     use_disp = 1;
 112     strfcpy (tmp, src->filename, sizeof (tmp));
 113   }
 114   else
 115   {
 116     use_disp = 0;
 117     tmp[0] = '\0';
 118   }
 119
 120   mutt_adv_mktemp (tmp, sizeof (tmp));
 121   if (mutt_save_attachment (fp, src, tmp, 0, NULL) == -1)
 122     return -1;
 123
 124   *tgt = mutt_new_body ();
 125   b = *tgt;
 126
 127   memcpy (b, src, sizeof (BODY));
 128   b->parts = NULL;
 129   b->next  = NULL;
 130
 131   b->filename = safe_strdup (tmp);
 132   b->use_disp = use_disp;
 133   b->unlink = 1;
 134
 135   if (mutt_is_text_part (b))
 136     b->noconv = 1;
 137
 138   b->xtype = safe_strdup (b->xtype);
 139   b->subtype = safe_strdup (b->subtype);
 140   b->form_name = safe_strdup (b->form_name);
 141   b->filename = safe_strdup (b->filename);
 142   b->d_filename = safe_strdup (b->d_filename);
 143   b->description = safe_strdup (b->description);
 144
 145   /*
 146    * we don't seem to need the HEADER structure currently.
 147    * XXX - this may change in the future
 148    */
 149
 150   if (b->hdr) b->hdr = NULL;
 151
 152   /* copy parameters */
 153   for (par = b->parameter, ppar = &b->parameter; par; ppar = &(*ppar)->next, par = par->next)
 154   {
 155     *ppar = mutt_new_parameter ();
 156     (*ppar)->attribute = safe_strdup (par->attribute);
 157     (*ppar)->value = safe_strdup (par->value);
 158   }
 159
 160   mutt_stamp_attachment (b);
 161
 162   return 0;
 163 }
 164
 165
 166
 167 void mutt_free_body (BODY **p)
 168 {
 169   BODY *a = *p, *b;
 170
 171   while (a)
 172   {
 173     b = a;
 174     a = a->next;
 175
 176     if (b->parameter)
 177       mutt_free_parameter (&b->parameter);
 178     if (b->unlink && b->filename)
 179     {
 180       dprint (1, (debugfile, "mutt_free_body: Unlinking %s.\n", b->filename));
 181       unlink (b->filename);
 182     }
 183     else if (b->filename)
 184       dprint (1, (debugfile, "mutt_free_body: Not unlinking %s.\n", b->filename));
 185
 186     FREE (&b->filename);
 187     FREE (&b->content);
 188     FREE (&b->xtype);
 189     FREE (&b->subtype);
 190     FREE (&b->description);
 191     FREE (&b->form_name);
 192
 193     if (b->hdr)
 194     {
 195       /* Don't free twice (b->hdr->content = b->parts) */
 196       b->hdr->content = NULL;
 197       mutt_free_header(&b->hdr);
 198     }
 199
 200     if (b->parts)
 201       mutt_free_body (&b->parts);
 202
 203     FREE (&b);
 204   }
 205
 206   *p = 0;
 207 }
 208
 209 void mutt_free_parameter (PARAMETER **p)
 210 {
 211   PARAMETER *t = *p;
 212   PARAMETER *o;
 213
 214   while (t)
 215   {
 216     FREE (&t->attribute);
 217     FREE (&t->value);
 218     o = t;
 219     t = t->next;
 220     FREE (&o);
 221   }
 222   *p = 0;
 223 }
 224
 225 LIST *mutt_add_list (LIST *head, const char *data)
 226 {
 227   LIST *tmp;
 228
 229   for (tmp = head; tmp && tmp->next; tmp = tmp->next)
 230     ;
 231   if (tmp)
 232   {
 233     tmp->next = safe_malloc (sizeof (LIST));
 234     tmp = tmp->next;
 235   }
 236   else
 237     head = tmp = safe_malloc (sizeof (LIST));
 238
 239   tmp->data = safe_strdup (data);
 240   tmp->next = NULL;
 241   return head;
 242 }
 243
 244 void mutt_free_list (LIST **list)
 245 {
 246   LIST *p;
 247
 248   if (!list) return;
 249   while (*list)
 250   {
 251     p = *list;
 252     *list = (*list)->next;
 253     FREE (&p->data);
 254     FREE (&p);
 255   }
 256 }
 257
 258 HEADER *mutt_dup_header(HEADER *h)
 259 {
 260   HEADER *hnew;
 261
 262   hnew = mutt_new_header();
 263   memcpy(hnew, h, sizeof (HEADER));
 264   return hnew;
 265 }
 266
 267 void mutt_free_header (HEADER **h)
 268 {
 269   if(!h || !*h) return;
 270   mutt_free_envelope (&(*h)->env);
 271   mutt_free_body (&(*h)->content);
 272   FREE (&(*h)->maildir_flags);
 273   FREE (&(*h)->tree);
 274   FREE (&(*h)->path);
 275 #ifdef MIXMASTER
 276   mutt_free_list (&(*h)->chain);
 277 #endif
 278 #if defined USE_POP || defined USE_IMAP || defined USE_NNTP
 279   FREE (&(*h)->data);
 280 #endif
 281   FREE (h);
 282 }
 283
 284 /* returns true if the header contained in "s" is in list "t" */
 285 int mutt_matches_ignore (const char *s, LIST *t)
 286 {
 287   for (; t; t = t->next)
 288   {
 289     if (!ascii_strncasecmp (s, t->data, mutt_strlen (t->data)) || *t->data == '*')
 290       return 1;
 291   }
 292   return 0;
 293 }
 294
 295 /* prepend the path part of *path to *link */
 296 void mutt_expand_link (char *newpath, const char *path, const char *link)
 297 {
 298   const char *lb = NULL;
 299   size_t len;
 300
 301   /* link is full path */
 302   if (*link == '/')
 303   {
 304     strfcpy (newpath, link, _POSIX_PATH_MAX);
 305     return;
 306   }
 307
 308   if ((lb = strrchr (path, '/')) == NULL)
 309   {
 310     /* no path in link */
 311     strfcpy (newpath, link, _POSIX_PATH_MAX);
 312     return;
 313   }
 314
 315   len = lb - path + 1;
 316   memcpy (newpath, path, len);
 317   strfcpy (newpath + len, link, _POSIX_PATH_MAX - len);
 318 }
 319
 320 char *mutt_expand_path (char *s, size_t slen)
 321 {
 322   return _mutt_expand_path (s, slen, 0);
 323 }
 324
 325 char *_mutt_expand_path (char *s, size_t slen, int rx)
 326 {
 327   char p[_POSIX_PATH_MAX] = "";
 328   char q[_POSIX_PATH_MAX] = "";
 329   char tmp[_POSIX_PATH_MAX];
 330   char *t;
 331
 332   char *tail = "";
 333
 334   int recurse = 0;
 335
 336   do
 337   {
 338     recurse = 0;
 339
 340     switch (*s)
 341     {
 342       case '~':
 343       {
 344         if (*(s + 1) == '/' || *(s + 1) == 0)
 345         {
 346           strfcpy (p, NONULL(Homedir), sizeof (p));
 347           tail = s + 1;
 348         }
 349         else
 350         {
 351           struct passwd *pw;
 352           if ((t = strchr (s + 1, '/')))
 353             *t = 0;
 354
 355           if ((pw = getpwnam (s + 1)))
 356           {
 357             strfcpy (p, pw->pw_dir, sizeof (p));
 358             if (t)
 359             {
 360               *t = '/';
 361               tail = t;
 362             }
 363             else
 364               tail = "";
 365           }
 366           else
 367           {
 368             /* user not found! */
 369             if (t)
 370               *t = '/';
 371             *p = '\0';
 372             tail = s;
 373           }
 374         }
 375       }
 376       break;
 377
 378       case '=':
 379       case '+':
 380       {
 381 #ifdef USE_IMAP
 382         /* if folder = {host} or imap[s]://host/: don't append slash */
 383         if (mx_is_imap (NONULL (Maildir)) &&
 384             (Maildir[strlen (Maildir) - 1] == '}' ||
 385              Maildir[strlen (Maildir) - 1] == '/'))
 386           strfcpy (p, NONULL (Maildir), sizeof (p));
 387         else
 388 #endif
 389           snprintf (p, sizeof (p), "%s/", NONULL (Maildir));
 390
 391         tail = s + 1;
 392       }
 393       break;
 394
 395       /* elm compatibility, @ expands alias to user name */
 396
 397       case '@':
 398       {
 399         HEADER *h;
 400         ADDRESS *alias;
 401
 402         if ((alias = mutt_lookup_alias (s + 1)))
 403         {
 404           h = mutt_new_header();
 405           h->env = mutt_new_envelope();
 406           h->env->from = h->env->to = alias;
 407           mutt_default_save (p, sizeof (p), h);
 408           h->env->from = h->env->to = NULL;
 409           mutt_free_header (&h);
 410           /* Avoid infinite recursion if the resulting folder starts with '@' */
 411           if (*p != '@')
 412             recurse = 1;
 413
 414           tail = "";
 415         }
 416       }
 417       break;
 418
 419       case '>':
 420       {
 421         strfcpy (p, NONULL(Inbox), sizeof (p));
 422         tail = s + 1;
 423       }
 424       break;
 425
 426       case '<':
 427       {
 428         strfcpy (p, NONULL(Outbox), sizeof (p));
 429         tail = s + 1;
 430       }
 431       break;
 432
 433       case '!':
 434       {
 435         if (*(s+1) == '!')
 436         {
 437           strfcpy (p, NONULL(LastFolder), sizeof (p));
 438           tail = s + 2;
 439         }
 440         else
 441         {
 442           strfcpy (p, NONULL(Spoolfile), sizeof (p));
 443           tail = s + 1;
 444         }
 445       }
 446       break;
 447
 448       case '-':
 449       {
 450         strfcpy (p, NONULL(LastFolder), sizeof (p));
 451         tail = s + 1;
 452       }
 453       break;
 454
 455       default:
 456       {
 457         *p = '\0';
 458         tail = s;
 459       }
 460     }
 461
 462     if (rx && *p && !recurse)
 463     {
 464       mutt_rx_sanitize_string (q, sizeof (q), p);
 465       snprintf (tmp, sizeof (tmp), "%s%s", q, tail);
 466     }
 467     else
 468       snprintf (tmp, sizeof (tmp), "%s%s", p, tail);
 469
 470     strfcpy (s, tmp, slen);
 471   }
 472   while (recurse);
 473
 474 #ifdef USE_IMAP
 475   /* Rewrite IMAP path in canonical form - aids in string comparisons of
 476    * folders. May possibly fail, in which case s should be the same. */
 477   if (mx_is_imap (s))
 478     imap_expand_path (s, slen);
 479 #endif
 480
 481   return (s);
 482 }
 483
 484 /* Extract the real name from /etc/passwd's GECOS field.
 485  * When set, honor the regular expression in GecosMask,
 486  * otherwise assume that the GECOS field is a
 487  * comma-separated list.
 488  * Replace "&" by a capitalized version of the user's login
 489  * name.
 490  */
 491
 492 char *mutt_gecos_name (char *dest, size_t destlen, struct passwd *pw)
 493 {
 494   regmatch_t pat_match[1];
 495   size_t pwnl;
 496   int idx;
 497   char *p;
 498
 499   if (!pw || !pw->pw_gecos)
 500     return NULL;
 501
 502   memset (dest, 0, destlen);
 503
 504   if (GecosMask.rx)
 505   {
 506     if (regexec (GecosMask.rx, pw->pw_gecos, 1, pat_match, 0) == 0)
 507       strfcpy (dest, pw->pw_gecos + pat_match[0].rm_so,
 508                MIN (pat_match[0].rm_eo - pat_match[0].rm_so + 1, destlen));
 509   }
 510   else if ((p = strchr (pw->pw_gecos, ',')))
 511     strfcpy (dest, pw->pw_gecos, MIN (destlen, p - pw->pw_gecos + 1));
 512   else
 513     strfcpy (dest, pw->pw_gecos, destlen);
 514
 515   pwnl = strlen (pw->pw_name);
 516
 517   for (idx = 0; dest[idx]; idx++)
 518   {
 519     if (dest[idx] == '&')
 520     {
 521       memmove (&dest[idx + pwnl], &dest[idx + 1],
 522                MAX(destlen - idx - pwnl - 1, 0));
 523       memcpy (&dest[idx], pw->pw_name, MIN(destlen - idx - 1, pwnl));
 524       dest[idx] = toupper ((unsigned char) dest[idx]);
 525     }
 526   }
 527
 528   return dest;
 529 }
 530
 531
 532 char *mutt_get_parameter (const char *s, PARAMETER *p)
 533 {
 534   for (; p; p = p->next)
 535     if (ascii_strcasecmp (s, p->attribute) == 0)
 536       return (p->value);
 537
 538   return NULL;
 539 }
 540
 541 void mutt_set_parameter (const char *attribute, const char *value, PARAMETER **p)
 542 {
 543   PARAMETER *q;
 544
 545   if (!value)
 546   {
 547     mutt_delete_parameter (attribute, p);
 548     return;
 549   }
 550
 551   for(q = *p; q; q = q->next)
 552   {
 553     if (ascii_strcasecmp (attribute, q->attribute) == 0)
 554     {
 555       mutt_str_replace (&q->value, value);
 556       return;
 557     }
 558   }
 559
 560   q = mutt_new_parameter();
 561   q->attribute = safe_strdup(attribute);
 562   q->value = safe_strdup(value);
 563   q->next = *p;
 564   *p = q;
 565 }
 566
 567 void mutt_delete_parameter (const char *attribute, PARAMETER **p)
 568 {
 569   PARAMETER *q;
 570
 571   for (q = *p; q; p = &q->next, q = q->next)
 572   {
 573     if (ascii_strcasecmp (attribute, q->attribute) == 0)
 574     {
 575       *p = q->next;
 576       q->next = NULL;
 577       mutt_free_parameter (&q);
 578       return;
 579     }
 580   }
 581 }
 582
 583 /* returns 1 if Mutt can't display this type of data, 0 otherwise */
 584 int mutt_needs_mailcap (BODY *m)
 585 {
 586   switch (m->type)
 587   {
 588     case TYPETEXT:
 589
 590       if (!ascii_strcasecmp ("plain", m->subtype) ||
 591           !ascii_strcasecmp ("rfc822-headers", m->subtype) ||
 592           !ascii_strcasecmp ("enriched", m->subtype))
 593         return 0;
 594       break;
 595
 596     case TYPEAPPLICATION:
 597       if((WithCrypto & APPLICATION_PGP) && mutt_is_application_pgp(m))
 598         return 0;
 599       if((WithCrypto & APPLICATION_SMIME) && mutt_is_application_smime(m))
 600         return 0;
 601       break;
 602
 603     case TYPEMULTIPART:
 604     case TYPEMESSAGE:
 605       return 0;
 606   }
 607
 608   return 1;
 609 }
 610
 611 int mutt_is_text_part (BODY *b)
 612 {
 613   int t = b->type;
 614   char *s = b->subtype;
 615
 616   if ((WithCrypto & APPLICATION_PGP) && mutt_is_application_pgp (b))
 617     return 0;
 618
 619   if (t == TYPETEXT)
 620     return 1;
 621
 622   if (t == TYPEMESSAGE)
 623   {
 624     if (!ascii_strcasecmp ("delivery-status", s))
 625       return 1;
 626   }
 627
 628   if ((WithCrypto & APPLICATION_PGP) && t == TYPEAPPLICATION)
 629   {
 630     if (!ascii_strcasecmp ("pgp-keys", s))
 631       return 1;
 632   }
 633
 634   return 0;
 635 }
 636
 637 void mutt_free_envelope (ENVELOPE **p)
 638 {
 639   if (!*p) return;
 640   rfc822_free_address (&(*p)->return_path);
 641   rfc822_free_address (&(*p)->to);
 642   rfc822_free_address (&(*p)->cc);
 643   rfc822_free_address (&(*p)->bcc);
 644   rfc822_free_address (&(*p)->sender);
 645   rfc822_free_address (&(*p)->from);
 646   rfc822_free_address (&(*p)->reply_to);
 647   rfc822_free_address (&(*p)->mail_followup_to);
 648   FREE (&(*p)->subject);
 649   FREE (&(*p)->message_id);
 650   FREE (&(*p)->supersedes);
 651   FREE (&(*p)->date);
 652   FREE (&(*p)->organization);
 653 #ifdef USE_NNTP
 654   FREE (&(*p)->newsgroups);
 655   FREE (&(*p)->xref);
 656   FREE (&(*p)->followup_to);
 657   FREE (&(*p)->x_comment_to);
 658 #endif
 659   mutt_free_list (&(*p)->references);
 660   mutt_free_list (&(*p)->in_reply_to);
 661   mutt_free_list (&(*p)->x_face);
 662   mutt_free_list (&(*p)->userhdrs);
 663   FREE (p);
 664 }
 665
 666 void _mutt_mktemp (char *s, const char *src, int line)
 667 {
 668   snprintf (s, _POSIX_PATH_MAX, "%s/mutt-%s-%d-%d", NONULL (Tempdir), NONULL(Hostname), (int) getpid (), Counter++);
 669   dprint (1, (debugfile, "%s:%d: mutt_mktemp returns \"%s\".\n", src, line, s));
 670   unlink (s);
 671 }
 672
 673 void mutt_free_alias (ALIAS **p)
 674 {
 675   ALIAS *t;
 676
 677   while (*p)
 678   {
 679     t = *p;
 680     *p = (*p)->next;
 681     FREE (&t->name);
 682     rfc822_free_address (&t->addr);
 683     FREE (&t);
 684   }
 685 }
 686
 687 /* collapse the pathname using ~ or = when possible */
 688 void mutt_pretty_mailbox (char *s)
 689 {
 690   char *p = s, *q = s;
 691   size_t len;
 692   url_scheme_t scheme;
 693
 694   scheme = url_check_scheme (s);
 695
 696 #ifdef USE_IMAP
 697   if (scheme == U_IMAP || scheme == U_IMAPS)
 698   {
 699     imap_pretty_mailbox (s);
 700     return;
 701   }
 702 #endif
 703
 704   /* if s is an url, only collapse path component */
 705   if (scheme != U_UNKNOWN)
 706   {
 707     p = strchr(s, ':')+1;
 708     if (!strncmp (p, "//", 2))
 709       q = strchr (p+2, '/');
 710     if (!q)
 711       q = strchr (p, '\0');
 712     p = q;
 713   }
 714
 715   /* first attempt to collapse the pathname */
 716   while (*p)
 717   {
 718     if (*p == '/' && p[1] == '/')
 719     {
 720       *q++ = '/';
 721       p += 2;
 722     }
 723     else if (p[0] == '/' && p[1] == '.' && p[2] == '/')
 724     {
 725       *q++ = '/';
 726       p += 3;
 727     }
 728     else
 729       *q++ = *p++;
 730   }
 731   *q = 0;
 732
 733   if (mutt_strncmp (s, Maildir, (len = mutt_strlen (Maildir))) == 0 &&
 734       s[len] == '/')
 735   {
 736     *s++ = '=';
 737     memmove (s, s + len, mutt_strlen (s + len) + 1);
 738   }
 739   else if (mutt_strncmp (s, Homedir, (len = mutt_strlen (Homedir))) == 0 &&
 740            s[len] == '/')
 741   {
 742     *s++ = '~';
 743     memmove (s, s + len - 1, mutt_strlen (s + len - 1) + 1);
 744   }
 745 }
 746
 747 void mutt_pretty_size (char *s, size_t len, long n)
 748 {
 749   if (n == 0)
 750     strfcpy (s, "0K", len);
 751   else if (n < 10189) /* 0.1K - 9.9K */
 752     snprintf (s, len, "%3.1fK", (n < 103) ? 0.1 : n / 1024.0);
 753   else if (n < 1023949) /* 10K - 999K */
 754   {
 755     /* 51 is magic which causes 10189/10240 to be rounded up to 10 */
 756     snprintf (s, len, "%ldK", (n + 51) / 1024);
 757   }
 758   else if (n < 10433332) /* 1.0M - 9.9M */
 759     snprintf (s, len, "%3.1fM", n / 1048576.0);
 760   else /* 10M+ */
 761   {
 762     /* (10433332 + 52428) / 1048576 = 10 */
 763     snprintf (s, len, "%ldM", (n + 52428) / 1048576);
 764   }
 765 }
 766
 767 void mutt_expand_file_fmt (char *dest, size_t destlen, const char *fmt, const char *src)
 768 {
 769   char tmp[LONG_STRING];
 770
 771   mutt_quote_filename (tmp, sizeof (tmp), src);
 772   mutt_expand_fmt (dest, destlen, fmt, tmp);
 773 }
 774
 775 void mutt_expand_fmt (char *dest, size_t destlen, const char *fmt, const char *src)
 776 {
 777   const char *p;
 778   char *d;
 779   size_t slen;
 780   int found = 0;
 781
 782   slen = mutt_strlen (src);
 783   destlen--;
 784
 785   for (p = fmt, d = dest; destlen && *p; p++)
 786   {
 787     if (*p == '%')
 788     {
 789       switch (p[1])
 790       {
 791         case '%':
 792           *d++ = *p++;
 793           destlen--;
 794           break;
 795         case 's':
 796           found = 1;
 797           strfcpy (d, src, destlen + 1);
 798           d       += destlen > slen ? slen : destlen;
 799           destlen -= destlen > slen ? slen : destlen;
 800           p++;
 801           break;
 802         default:
 803           *d++ = *p;
 804           destlen--;
 805           break;
 806       }
 807     }
 808     else
 809     {
 810       *d++ = *p;
 811       destlen--;
 812     }
 813   }
 814
 815   *d = '\0';
 816
 817   if (!found && destlen > 0)
 818   {
 819     strncat (dest, " ", destlen);
 820     strncat (dest, src, destlen-1);
 821   }
 822
 823 }
 824
 825 /* return 0 on success, -1 on abort, 1 on error */
 826 int mutt_check_overwrite (const char *attname, const char *path,
 827                                 char *fname, size_t flen, int *append, char **directory)
 828 {
 829   int rc = 0;
 830   char tmp[_POSIX_PATH_MAX];
 831   struct stat st;
 832
 833   strfcpy (fname, path, flen);
 834   if (access (fname, F_OK) != 0)
 835     return 0;
 836   if (stat (fname, &st) != 0)
 837     return -1;
 838   if (S_ISDIR (st.st_mode))
 839   {
 840     if (directory)
 841     {
 842       switch (mutt_multi_choice
 843               (_("File is a directory, save under it? [(y)es, (n)o, (a)ll]"), _("yna")))
 844       {
 845         case 3:         /* all */
 846           mutt_str_replace (directory, fname);
 847           break;
 848         case 1:         /* yes */
 849           FREE (directory);
 850           break;
 851         case -1:        /* abort */
 852           FREE (directory);
 853           return -1;
 854         case  2:        /* no */
 855           FREE (directory);
 856           return 1;
 857       }
 858     }
 859     else if ((rc = mutt_yesorno (_("File is a directory, save under it?"), M_YES)) != M_YES)
 860       return (rc == M_NO) ? 1 : -1;
 861
 862     if (!attname || !attname[0])
 863     {
 864       tmp[0] = 0;
 865       if (mutt_get_field (_("File under directory: "), tmp, sizeof (tmp),
 866                                       M_FILE | M_CLEAR) != 0 || !tmp[0])
 867         return (-1);
 868       mutt_concat_path (fname, path, tmp, flen);
 869     }
 870     else
 871       mutt_concat_path (fname, path, mutt_basename (attname), flen);
 872   }
 873
 874   if (*append == 0 && access (fname, F_OK) == 0)
 875   {
 876     switch (mutt_multi_choice
 877             (_("File exists, (o)verwrite, (a)ppend, or (c)ancel?"), _("oac")))
 878     {
 879       case -1: /* abort */
 880         return -1;
 881       case 3:  /* cancel */
 882         return 1;
 883
 884       case 2: /* append */
 885         *append = M_SAVE_APPEND;
 886         break;
 887       case 1: /* overwrite */
 888         *append = M_SAVE_OVERWRITE;
 889         break;
 890     }
 891   }
 892   return 0;
 893 }
 894
 895 void mutt_save_path (char *d, size_t dsize, ADDRESS *a)
 896 {
 897   if (a && a->mailbox)
 898   {
 899     strfcpy (d, a->mailbox, dsize);
 900     if (!option (OPTSAVEADDRESS))
 901     {
 902       char *p;
 903
 904       if ((p = strpbrk (d, "%@")))
 905         *p = 0;
 906     }
 907     mutt_strlower (d);
 908   }
 909   else
 910     *d = 0;
 911 }
 912
 913 void mutt_safe_path (char *s, size_t l, ADDRESS *a)
 914 {
 915   char *p;
 916
 917   mutt_save_path (s, l, a);
 918   for (p = s; *p; p++)
 919     if (*p == '/' || ISSPACE (*p) || !IsPrint ((unsigned char) *p))
 920       *p = '_';
 921 }
 922
 923
 924 void mutt_FormatString (char *dest,             /* output buffer */
 925                         size_t destlen,         /* output buffer len */
 926                         const char *src,        /* template string */
 927                         format_t *callback,     /* callback for processing */
 928                         unsigned long data,     /* callback data */
 929                         format_flag flags)      /* callback flags */
 930 {
 931   char prefix[SHORT_STRING], buf[LONG_STRING], *cp, *wptr = dest, ch;
 932   char ifstring[SHORT_STRING], elsestring[SHORT_STRING];
 933   size_t wlen, count, len;
 934
 935   prefix[0] = '\0';
 936   destlen--; /* save room for the terminal \0 */
 937   wlen = (flags & M_FORMAT_ARROWCURSOR && option (OPTARROWCURSOR)) ? 3 : 0;
 938
 939   while (*src && wlen < destlen)
 940   {
 941     if (*src == '%')
 942     {
 943       if (*++src == '%')
 944       {
 945         *wptr++ = '%';
 946         wlen++;
 947         src++;
 948         continue;
 949       }
 950
 951       if (*src == '?')
 952       {
 953         flags |= M_FORMAT_OPTIONAL;
 954         src++;
 955       }
 956       else
 957       {
 958         flags &= ~M_FORMAT_OPTIONAL;
 959
 960         /* eat the format string */
 961         cp = prefix;
 962         count = 0;
 963         while (count < sizeof (prefix) &&
 964                (isdigit ((unsigned char) *src) || *src == '.' || *src == '-'))
 965         {
 966           *cp++ = *src++;
 967           count++;
 968         }
 969         *cp = 0;
 970       }
 971
 972       if (!*src)
 973         break; /* bad format */
 974
 975       ch = *src++; /* save the character to switch on */
 976
 977       if (flags & M_FORMAT_OPTIONAL)
 978       {
 979         if (*src != '?')
 980           break; /* bad format */
 981         src++;
 982
 983         /* eat the `if' part of the string */
 984         cp = ifstring;
 985         count = 0;
 986         while (count < sizeof (ifstring) && *src && *src != '?' && *src != '&')
 987         {
 988           *cp++ = *src++;
 989           count++;
 990         }
 991         *cp = 0;
 992
 993         /* eat the `else' part of the string (optional) */
 994         if (*src == '&')
 995           src++; /* skip the & */
 996         cp = elsestring;
 997         count = 0;
 998         while (count < sizeof (elsestring) && *src && *src != '?')
 999         {
1000           *cp++ = *src++;
1001           count++;
1002         }
1003         *cp = 0;
1004
1005         if (!*src)
1006           break; /* bad format */
1007
1008         src++; /* move past the trailing `?' */
1009       }
1010
1011       /* handle generic cases first */
1012       if (ch == '>')
1013       {
1014         /* right justify to EOL */
1015         ch = *src++; /* pad char */
1016         /* calculate space left on line.  if we've already written more data
1017            than will fit on the line, ignore the rest of the line */
1018         if ( DrawFullLine )
1019           count = (COLS < destlen ? COLS : destlen);
1020         else
1021           count = ((COLS-SidebarWidth) < destlen ? COLS - SidebarWidth : destlen);
1022         if (count > wlen)
1023         {
1024           count -= wlen; /* how many chars left on this line */
1025           mutt_FormatString (buf, sizeof (buf), src, callback, data, flags);
1026           len = mutt_strlen (buf);
1027           if (count > len)
1028           {
1029             count -= len; /* how many chars to pad */
1030             memset (wptr, ch, count);
1031             wptr += count;
1032             wlen += count;
1033           }
1034           if (len + wlen > destlen)
1035             len = destlen - wlen;
1036           memcpy (wptr, buf, len);
1037           wptr += len;
1038           wlen += len;
1039         }
1040         break; /* skip rest of input */
1041       }
1042       else if (ch == '|')
1043       {
1044         /* pad to EOL */
1045         ch = *src++;
1046         if (destlen > COLS)
1047           destlen = COLS;
1048         if (destlen > wlen)
1049         {
1050           count = destlen - wlen;
1051           memset (wptr, ch, count);
1052           wptr += count;
1053         }
1054         break; /* skip rest of input */
1055       }
1056       else
1057       {
1058         short tolower =  0;
1059         short nodots  = 0;
1060
1061         while (ch == '_' || ch == ':')
1062         {
1063           if (ch == '_')
1064             tolower = 1;
1065           else if (ch == ':')
1066             nodots = 1;
1067
1068           ch = *src++;
1069         }
1070
1071         /* use callback function to handle this case */
1072         src = callback (buf, sizeof (buf), ch, src, prefix, ifstring, elsestring, data, flags);
1073
1074         if (tolower)
1075           mutt_strlower (buf);
1076         if (nodots)
1077         {
1078           char *p = buf;
1079           for (; *p; p++)
1080             if (*p == '.')
1081                 *p = '_';
1082         }
1083
1084         if ((len = mutt_strlen (buf)) + wlen > destlen)
1085           len = (destlen - wlen > 0) ? (destlen - wlen) : 0;
1086
1087         memcpy (wptr, buf, len);
1088         wptr += len;
1089         wlen += len;
1090       }
1091     }
1092     else if (*src == '\\')
1093     {
1094       if (!*++src)
1095         break;
1096       switch (*src)
1097       {
1098         case 'n':
1099           *wptr = '\n';
1100           break;
1101         case 't':
1102           *wptr = '\t';
1103           break;
1104         case 'r':
1105           *wptr = '\r';
1106           break;
1107         case 'f':
1108           *wptr = '\f';
1109           break;
1110         case 'v':
1111           *wptr = '\v';
1112           break;
1113         default:
1114           *wptr = *src;
1115           break;
1116       }
1117       src++;
1118       wptr++;
1119       wlen++;
1120     }
1121     else
1122     {
1123       *wptr++ = *src++;
1124       wlen++;
1125     }
1126   }
1127   *wptr = 0;
1128
1129 #if 0
1130   if (flags & M_FORMAT_MAKEPRINT)
1131   {
1132     /* Make sure that the string is printable by changing all non-printable
1133        chars to dots, or spaces for non-printable whitespace */
1134     for (cp = dest ; *cp ; cp++)
1135       if (!IsPrint (*cp) &&
1136           !((flags & M_FORMAT_TREE) && (*cp <= M_TREE_MAX)))
1137         *cp = isspace ((unsigned char) *cp) ? ' ' : '.';
1138   }
1139 #endif
1140 }
1141
1142 /* This function allows the user to specify a command to read stdout from in
1143    place of a normal file.  If the last character in the string is a pipe (|),
1144    then we assume it is a commmand to run instead of a normal file. */
1145 FILE *mutt_open_read (const char *path, pid_t *thepid)
1146 {
1147   FILE *f;
1148   int len = mutt_strlen (path);
1149
1150   if (path[len - 1] == '|')
1151   {
1152     /* read from a pipe */
1153
1154     char *s = safe_strdup (path);
1155
1156     s[len - 1] = 0;
1157     mutt_endwin (NULL);
1158     *thepid = mutt_create_filter (s, NULL, &f, NULL);
1159     FREE (&s);
1160   }
1161   else
1162   {
1163     f = fopen (path, "r");
1164     *thepid = -1;
1165   }
1166   return (f);
1167 }
1168
1169 /* returns 0 if OK to proceed, -1 to abort, 1 to retry */
1170 int mutt_save_confirm (const char *s, struct stat *st)
1171 {
1172   char tmp[_POSIX_PATH_MAX];
1173   int ret = 0;
1174   int rc;
1175   int magic = 0;
1176
1177   magic = mx_get_magic (s);
1178
1179 #ifdef USE_POP
1180   if (magic == M_POP)
1181   {
1182     mutt_error _("Can't save message to POP mailbox.");
1183     return 1;
1184   }
1185 #endif
1186
1187 #ifdef USE_NNTP
1188   if (magic == M_NNTP)
1189   {
1190     mutt_error _("Can't save message to newsserver.");
1191     return 0;
1192   }
1193 #endif
1194
1195   if (stat (s, st) != -1)
1196   {
1197     if (magic == -1)
1198     {
1199       mutt_error (_("%s is not a mailbox!"), s);
1200       return 1;
1201     }
1202
1203     if (option (OPTCONFIRMAPPEND) &&
1204         (!TrashPath || (mutt_strcmp (s, TrashPath) != 0)))
1205       /* if we're appending to the trash, there's no point in asking */
1206     {
1207       snprintf (tmp, sizeof (tmp), _("Append messages to %s?"), s);
1208       if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
1209         ret = 1;
1210       else if (rc == -1)
1211         ret = -1;
1212     }
1213   }
1214   else
1215   {
1216 #ifdef USE_IMAP
1217     if (magic != M_IMAP)
1218 #endif /* execute the block unconditionally if we don't use imap */
1219     {
1220       st->st_mtime = 0;
1221       st->st_atime = 0;
1222
1223       if (errno == ENOENT)
1224       {
1225         if (option (OPTCONFIRMCREATE))
1226         {
1227           snprintf (tmp, sizeof (tmp), _("Create %s?"), s);
1228           if ((rc = mutt_yesorno (tmp, M_YES)) == M_NO)
1229             ret = 1;
1230           else if (rc == -1)
1231             ret = -1;
1232         }
1233       }
1234       else
1235       {
1236         mutt_perror (s);
1237         return 1;
1238       }
1239     }
1240   }
1241
1242   CLEARLINE (LINES-1);
1243   return (ret);
1244 }
1245
1246 void state_prefix_putc (char c, STATE *s)
1247 {
1248   if (s->flags & M_PENDINGPREFIX)
1249   {
1250     int i;
1251
1252     i = strlen (Quotebuf);
1253     Quotebuf[i++] = c;
1254     Quotebuf[i] = '\0';
1255     if (i == sizeof (Quotebuf) - 1 || c == '\n')
1256     {
1257       char buf[2 * SHORT_STRING];
1258       int j = 0, offset = 0;
1259       regmatch_t pmatch[1];
1260
1261       state_reset_prefix (s);
1262       while (regexec ((regex_t *) QuoteRegexp.rx, &Quotebuf[offset], 1, pmatch, 0) == 0)
1263         offset += pmatch->rm_eo;
1264
1265       if (!option (OPTQUOTEEMPTY) && Quotebuf[0] == '\n')
1266         strcpy (buf, Quotebuf);
1267       else if (option (OPTQUOTEQUOTED) && offset)
1268       {
1269         for (i = 0; i < offset; i++)
1270           if (Quotebuf[i] != ' ')
1271             j = i;
1272         strncpy (buf, Quotebuf, j + 1);
1273         strcpy (buf + j + 1, Quotebuf + j);
1274       }
1275       else
1276         snprintf (buf, sizeof (buf), "%s%s", NONULL(s->prefix), Quotebuf);
1277
1278       state_puts (buf, s);
1279     }
1280   }
1281   else
1282     state_putc (c, s);
1283
1284   if (c == '\n')
1285   {
1286     state_set_prefix (s);
1287     Quotebuf[0] = '\0';
1288   }
1289 }
1290
1291 int state_printf (STATE *s, const char *fmt, ...)
1292 {
1293   int rv;
1294   va_list ap;
1295
1296   va_start (ap, fmt);
1297   rv = vfprintf (s->fpout, fmt, ap);
1298   va_end (ap);
1299
1300   return rv;
1301 }
1302
1303 void state_mark_attach (STATE *s)
1304 {
1305   if ((s->flags & M_DISPLAY) && !mutt_strcmp (Pager, "builtin"))
1306     state_puts (AttachmentMarker, s);
1307 }
1308
1309 void state_attach_puts (const char *t, STATE *s)
1310 {
1311   if (*t != '\n') state_mark_attach (s);
1312   while (*t)
1313   {
1314     state_putc (*t, s);
1315     if (*t++ == '\n' && *t)
1316       if (*t != '\n') state_mark_attach (s);
1317   }
1318 }
1319
1320 void mutt_display_sanitize (char *s)
1321 {
1322   for (; *s; s++)
1323   {
1324     if (!IsPrint (*s))
1325       *s = '?';
1326   }
1327 }
1328
1329 void mutt_sleep (short s)
1330 {
1331   if (SleepTime > s)
1332     sleep (SleepTime);
1333   else if (s)
1334     sleep (s);
1335 }
1336
1337 void mutt_buffer_addstr (BUFFER* buf, const char* s)
1338 {
1339   mutt_buffer_add (buf, s, mutt_strlen (s));
1340 }
1341
1342 void mutt_buffer_addch (BUFFER* buf, char c)
1343 {
1344   mutt_buffer_add (buf, &c, 1);
1345 }
1346
1347 /* dynamically grows a BUFFER to accomodate s, in increments of 128 bytes.
1348  * Always one byte bigger than necessary for the null terminator, and
1349  * the buffer is always null-terminated */
1350 void mutt_buffer_add (BUFFER* buf, const char* s, size_t len)
1351 {
1352   size_t offset;
1353
1354   if (buf->dptr + len + 1 > buf->data + buf->dsize)
1355   {
1356     offset = buf->dptr - buf->data;
1357     buf->dsize += len < 128 ? 128 : len + 1;
1358     safe_realloc ((void**) &buf->data, buf->dsize);
1359     buf->dptr = buf->data + offset;
1360   }
1361   memcpy (buf->dptr, s, len);
1362   buf->dptr += len;
1363   *(buf->dptr) = '\0';
1364 }
1365
1366 /* Decrease a file's modification time by 1 second */
1367
1368 time_t mutt_decrease_mtime (const char *f, struct stat *st)
1369 {
1370   struct utimbuf utim;
1371   struct stat _st;
1372   time_t mtime;
1373
1374   if (!st)
1375   {
1376     if (stat (f, &_st) == -1)
1377       return -1;
1378     st = &_st;
1379   }
1380
1381   if ((mtime = st->st_mtime) == time (NULL))
1382   {
1383     mtime -= 1;
1384     utim.actime = mtime;
1385     utim.modtime = mtime;
1386     utime (f, &utim);
1387   }
1388
1389   return mtime;
1390 }
1391
1392 const char *mutt_make_version (void)
1393 {
1394   static char vstring[STRING];
1395   snprintf (vstring, sizeof (vstring), "Mutt %s (%s)",
1396             MUTT_VERSION, ReleaseDate);
1397   return vstring;
1398 }
1399
1400 REGEXP *mutt_compile_regexp (const char *s, int flags)
1401 {
1402   REGEXP *pp = safe_calloc (sizeof (REGEXP), 1);
1403   pp->pattern = safe_strdup (s);
1404   pp->rx = safe_calloc (sizeof (regex_t), 1);
1405   if (REGCOMP (pp->rx, NONULL(s), flags) != 0)
1406     mutt_free_regexp (&pp);
1407
1408   return pp;
1409 }
1410
1411 void mutt_free_regexp (REGEXP **pp)
1412 {
1413   FREE (&(*pp)->pattern);
1414   regfree ((*pp)->rx);
1415   FREE (&(*pp)->rx);
1416   FREE (pp);
1417 }
1418
1419 void mutt_free_rx_list (RX_LIST **list)
1420 {
1421   RX_LIST *p;
1422
1423   if (!list) return;
1424   while (*list)
1425   {
1426     p = *list;
1427     *list = (*list)->next;
1428     mutt_free_regexp (&p->rx);
1429     FREE (&p);
1430   }
1431 }
1432
1433 int mutt_match_rx_list (const char *s, RX_LIST *l)
1434 {
1435   if (!s)  return 0;
1436
1437   for (; l; l = l->next)
1438   {
1439     if (regexec (l->rx->rx, s, (size_t) 0, (regmatch_t *) 0, (int) 0) == 0)
1440     {
1441       dprint (5, (debugfile, "mutt_match_rx_list: %s matches %s\n", s, l->rx->pattern));
1442       return 1;
1443     }
1444   }
1445
1446   return 0;
1447 }