debian/patches/features/compressed-folders

   1 # vi: ft=diff
   2 This is the compressed folders patch by Roland Rosenfeld
   3 <roland@spinnaker.de>.
   4
   5 The home page for this patch is:
   6
   7   http://www.spinnaker.de/mutt/compressed/
   8
   9 * Patch last synced with upstream:
  10   - Date: 2007-06-14
  11   - File: http://www.spinnaker.de/mutt/compressed/patch-1.5.16.rr.compressed.1.gz
  12
  13 * Changes made:
  14   - 2007-06-14 myon: remove hunks for Muttrc*
  15
  16 == END PATCH
  17 --- /dev/null
  18 +++ b/compress.c
  19 @@ -0,0 +1,499 @@
  20 +/*
  21 + * Copyright (C) 1997 Alain Penders <Alain@Finale-Dev.com>
  22 + *
  23 + *     This program is free software; you can redistribute it and/or modify
  24 + *     it under the terms of the GNU General Public License as published by
  25 + *     the Free Software Foundation; either version 2 of the License, or
  26 + *     (at your option) any later version.
  27 + *
  28 + *     This program is distributed in the hope that it will be useful,
  29 + *     but WITHOUT ANY WARRANTY; without even the implied warranty of
  30 + *     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  31 + *     GNU General Public License for more details.
  32 + *
  33 + *     You should have received a copy of the GNU General Public License
  34 + *     along with this program; if not, write to the Free Software
  35 + *     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  36 + */
  37 +
  38 +#if HAVE_CONFIG_H
  39 +# include "config.h"
  40 +#endif
  41 +
  42 +#include "mutt.h"
  43 +
  44 +#ifdef USE_COMPRESSED
  45 +
  46 +#include "mx.h"
  47 +#include "mailbox.h"
  48 +#include "mutt_curses.h"
  49 +
  50 +#include <errno.h>
  51 +#include <string.h>
  52 +#include <unistd.h>
  53 +#include <sys/stat.h>
  54 +
  55 +typedef struct
  56 +{
  57 +  const char *close;   /* close-hook  command */
  58 +  const char *open;    /* open-hook   command */
  59 +  const char *append;  /* append-hook command */
  60 +  off_t size;          /* size of real folder */
  61 +} COMPRESS_INFO;
  62 +
  63 +
  64 +/*
  65 + * ctx - context to lock
  66 + * excl - exclusive lock?
  67 + * retry - should retry if unable to lock?
  68 + */
  69 +int mbox_lock_compressed (CONTEXT *ctx, FILE *fp, int excl, int retry)
  70 +{
  71 +  int r;
  72 +
  73 +  if ((r = mx_lock_file (ctx->realpath, fileno (fp), excl, 1, retry)) == 0)
  74 +    ctx->locked = 1;
  75 +  else if (retry && !excl)
  76 +  {
  77 +    ctx->readonly = 1;
  78 +    return 0;
  79 +  }
  80 +
  81 +  return (r);
  82 +}
  83 +
  84 +void mbox_unlock_compressed (CONTEXT *ctx, FILE *fp)
  85 +{
  86 +  if (ctx->locked)
  87 +  {
  88 +    fflush (fp);
  89 +
  90 +    mx_unlock_file (ctx->realpath, fileno (fp), 1);
  91 +    ctx->locked = 0;
  92 +  }
  93 +}
  94 +
  95 +static int is_new (const char *path)
  96 +{
  97 +  return (access (path, W_OK) != 0 && errno == ENOENT) ? 1 : 0;
  98 +}
  99 +
 100 +static const char* find_compress_hook (int type, const char *path)
 101 +{
 102 +  const char* c = mutt_find_hook (type, path);
 103 +  return (!c || !*c) ? NULL : c;
 104 +}
 105 +
 106 +int mutt_can_read_compressed (const char *path)
 107 +{
 108 +  return find_compress_hook (M_OPENHOOK, path) ? 1 : 0;
 109 +}
 110 +
 111 +/*
 112 + * if the file is new, we really do not append, but create, and so use
 113 + * close-hook, and not append-hook
 114 + */
 115 +static const char* get_append_command (const char *path, const CONTEXT* ctx)
 116 +{
 117 +  COMPRESS_INFO *ci = (COMPRESS_INFO *) ctx->compressinfo;
 118 +  return (is_new (path)) ? ci->close : ci->append;
 119 +}
 120 +
 121 +int mutt_can_append_compressed (const char *path)
 122 +{
 123 +  int magic;
 124 +
 125 +  if (is_new (path))
 126 +  {
 127 +    char *dir_path = safe_strdup(path);
 128 +    char *aux = strrchr(dir_path, '/');
 129 +    int dir_valid = 1;
 130 +    if (aux)
 131 +    {
 132 +      *aux='\0';
 133 +      if (access(dir_path, W_OK|X_OK))
 134 +        dir_valid = 0;
 135 +    }
 136 +    safe_free((void**)&dir_path);
 137 +    return dir_valid && (find_compress_hook (M_CLOSEHOOK, path) ? 1 : 0);
 138 +  }
 139 +
 140 +  magic = mx_get_magic (path);
 141 +
 142 +  if (magic != 0 && magic != M_COMPRESSED)
 143 +    return 0;
 144 +
 145 +  return (find_compress_hook (M_APPENDHOOK, path)
 146 +         || (find_compress_hook (M_OPENHOOK, path)
 147 +             && find_compress_hook (M_CLOSEHOOK, path))) ? 1 : 0;
 148 +}
 149 +
 150 +/* open a compressed mailbox */
 151 +static COMPRESS_INFO *set_compress_info (CONTEXT *ctx)
 152 +{
 153 +  COMPRESS_INFO *ci;
 154 +
 155 +  /* Now lets uncompress this thing */
 156 +  ci = safe_malloc (sizeof (COMPRESS_INFO));
 157 +  ctx->compressinfo = (void*) ci;
 158 +  ci->append = find_compress_hook (M_APPENDHOOK, ctx->path);
 159 +  ci->open = find_compress_hook (M_OPENHOOK, ctx->path);
 160 +  ci->close = find_compress_hook (M_CLOSEHOOK, ctx->path);
 161 +  return ci;
 162 +}
 163 +
 164 +static void set_path (CONTEXT* ctx)
 165 +{
 166 +  char tmppath[_POSIX_PATH_MAX];
 167 +
 168 +  /* Setup the right paths */
 169 +  ctx->realpath = ctx->path;
 170 +
 171 +  /* Uncompress to /tmp */
 172 +  mutt_mktemp (tmppath);
 173 +  ctx->path = safe_malloc (strlen (tmppath) + 1);
 174 +  strcpy (ctx->path, tmppath);
 175 +}
 176 +
 177 +static int get_size (const char* path)
 178 +{
 179 +  struct stat sb;
 180 +  if (stat (path, &sb) != 0)
 181 +    return 0;
 182 +  return (sb.st_size);
 183 +}
 184 +
 185 +static void store_size (CONTEXT* ctx)
 186 +{
 187 +  COMPRESS_INFO *ci = (COMPRESS_INFO *) ctx->compressinfo;
 188 +  ci->size = get_size (ctx->realpath);
 189 +}
 190 +
 191 +static const char *
 192 +compresshook_format_str (char *dest, size_t destlen, size_t col, char op,
 193 +                        const char *src, const char *fmt,
 194 +                        const char *ifstring, const char *elsestring,
 195 +                        unsigned long data, format_flag flags)
 196 +{
 197 +  char tmp[SHORT_STRING];
 198 +
 199 +  CONTEXT *ctx = (CONTEXT *) data;
 200 +  switch (op)
 201 +  {
 202 +  case 'f':
 203 +    snprintf (tmp, sizeof (tmp), "%%%ss", fmt);
 204 +    snprintf (dest, destlen, tmp, ctx->realpath);
 205 +    break;
 206 +  case 't':
 207 +    snprintf (tmp, sizeof (tmp), "%%%ss", fmt);
 208 +    snprintf (dest, destlen, tmp, ctx->path);
 209 +    break;
 210 +  }
 211 +  return (src);
 212 +}
 213 +
 214 +/*
 215 + * check that the command has both %f and %t
 216 + * 0 means OK, -1 means error
 217 + */
 218 +int mutt_test_compress_command (const char* cmd)
 219 +{
 220 +  return (strstr (cmd, "%f") && strstr (cmd, "%t")) ? 0 : -1;
 221 +}
 222 +
 223 +static char *get_compression_cmd (const char* cmd, const CONTEXT* ctx)
 224 +{
 225 +  char expanded[_POSIX_PATH_MAX];
 226 +  mutt_FormatString (expanded, sizeof (expanded), 0, cmd,
 227 +                    compresshook_format_str, (unsigned long) ctx, 0);
 228 +  return safe_strdup (expanded);
 229 +}
 230 +
 231 +int mutt_check_mailbox_compressed (CONTEXT* ctx)
 232 +{
 233 +  COMPRESS_INFO *ci = (COMPRESS_INFO *) ctx->compressinfo;
 234 +  if (ci->size != get_size (ctx->realpath))
 235 +  {
 236 +    FREE (&ctx->compressinfo);
 237 +    FREE (&ctx->realpath);
 238 +    mutt_error _("Mailbox was corrupted!");
 239 +    return (-1);
 240 +  }
 241 +  return (0);
 242 +}
 243 +
 244 +int mutt_open_read_compressed (CONTEXT *ctx)
 245 +{
 246 +  char *cmd;
 247 +  FILE *fp;
 248 +  int rc;
 249 +
 250 +  COMPRESS_INFO *ci = set_compress_info (ctx);
 251 +  if (!ci->open) {
 252 +    ctx->magic = 0;
 253 +    FREE (&ctx->compressinfo);
 254 +    return (-1);
 255 +  }
 256 +  if (!ci->close || access (ctx->path, W_OK) != 0)
 257 +    ctx->readonly = 1;
 258 +
 259 +  set_path (ctx);
 260 +  store_size (ctx);
 261 +
 262 +  if (!ctx->quiet)
 263 +    mutt_message (_("Decompressing %s..."), ctx->realpath);
 264 +
 265 +  cmd = get_compression_cmd (ci->open, ctx);
 266 +  if (cmd == NULL)
 267 +    return (-1);
 268 +  dprint (2, (debugfile, "DecompressCmd: '%s'\n", cmd));
 269 +
 270 +  if ((fp = fopen (ctx->realpath, "r")) == NULL)
 271 +  {
 272 +    mutt_perror (ctx->realpath);
 273 +    FREE (&cmd);
 274 +    return (-1);
 275 +  }
 276 +  mutt_block_signals ();
 277 +  if (mbox_lock_compressed (ctx, fp, 0, 1) == -1)
 278 +  {
 279 +    fclose (fp);
 280 +    mutt_unblock_signals ();
 281 +    mutt_error _("Unable to lock mailbox!");
 282 +    FREE (&cmd);
 283 +    return (-1);
 284 +  }
 285 +
 286 +  endwin ();
 287 +  fflush (stdout);
 288 +  fprintf (stderr, _("Decompressing %s...\n"),ctx->realpath);
 289 +  rc = mutt_system (cmd);
 290 +  mbox_unlock_compressed (ctx, fp);
 291 +  mutt_unblock_signals ();
 292 +  fclose (fp);
 293 +
 294 +  if (rc)
 295 +  {
 296 +    mutt_any_key_to_continue (NULL);
 297 +    ctx->magic = 0;
 298 +    FREE (&ctx->compressinfo);
 299 +    mutt_error (_("Error executing: %s : unable to open the mailbox!\n"), cmd);
 300 +  }
 301 +  FREE (&cmd);
 302 +  if (rc)
 303 +    return (-1);
 304 +
 305 +  if (mutt_check_mailbox_compressed (ctx))
 306 +    return (-1);
 307 +
 308 +  ctx->magic = mx_get_magic (ctx->path);
 309 +
 310 +  return (0);
 311 +}
 312 +
 313 +void restore_path (CONTEXT* ctx)
 314 +{
 315 +  FREE (&ctx->path);
 316 +  ctx->path = ctx->realpath;
 317 +}
 318 +
 319 +/* remove the temporary mailbox */
 320 +void remove_file (CONTEXT* ctx)
 321 +{
 322 +  if (ctx->magic == M_MBOX || ctx->magic == M_MMDF)
 323 +    remove (ctx->path);
 324 +}
 325 +
 326 +int mutt_open_append_compressed (CONTEXT *ctx)
 327 +{
 328 +  FILE *fh;
 329 +  COMPRESS_INFO *ci = set_compress_info (ctx);
 330 +
 331 +  if (!get_append_command (ctx->path, ctx))
 332 +  {
 333 +    if (ci->open && ci->close)
 334 +      return (mutt_open_read_compressed (ctx));
 335 +
 336 +    ctx->magic = 0;
 337 +    FREE (&ctx->compressinfo);
 338 +    return (-1);
 339 +  }
 340 +
 341 +  set_path (ctx);
 342 +
 343 +  ctx->magic = DefaultMagic;
 344 +
 345 +  if (!is_new (ctx->realpath))
 346 +    if (ctx->magic == M_MBOX || ctx->magic == M_MMDF)
 347 +      if ((fh = fopen (ctx->path, "w")))
 348 +       fclose (fh);
 349 +  /* No error checking - the parent function will catch it */
 350 +
 351 +  return (0);
 352 +}
 353 +
 354 +/* close a compressed mailbox */
 355 +void mutt_fast_close_compressed (CONTEXT *ctx)
 356 +{
 357 +  dprint (2, (debugfile, "mutt_fast_close_compressed called on '%s'\n",
 358 +             ctx->path));
 359 +
 360 +  if (ctx->compressinfo)
 361 +  {
 362 +    if (ctx->fp)
 363 +      fclose (ctx->fp);
 364 +    ctx->fp = NULL;
 365 +    /* if the folder was removed, remove the gzipped folder too */
 366 +    if ((ctx->magic > 0)
 367 +       && (access (ctx->path, F_OK) != 0)
 368 +       && ! option (OPTSAVEEMPTY))
 369 +      remove (ctx->realpath);
 370 +    else
 371 +      remove_file (ctx);
 372 +
 373 +    restore_path (ctx);
 374 +    FREE (&ctx->compressinfo);
 375 +  }
 376 +}
 377 +
 378 +/* return 0 on success, -1 on failure */
 379 +int mutt_sync_compressed (CONTEXT* ctx)
 380 +{
 381 +  char *cmd;
 382 +  int rc = 0;
 383 +  FILE *fp;
 384 +  COMPRESS_INFO *ci = (COMPRESS_INFO *) ctx->compressinfo;
 385 +
 386 +  if (!ctx->quiet)
 387 +    mutt_message (_("Compressing %s..."), ctx->realpath);
 388 +
 389 +  cmd = get_compression_cmd (ci->close, ctx);
 390 +  if (cmd == NULL)
 391 +    return (-1);
 392 +
 393 +  if ((fp = fopen (ctx->realpath, "a")) == NULL)
 394 +  {
 395 +    mutt_perror (ctx->realpath);
 396 +    FREE (&cmd);
 397 +    return (-1);
 398 +  }
 399 +  mutt_block_signals ();
 400 +  if (mbox_lock_compressed (ctx, fp, 1, 1) == -1)
 401 +  {
 402 +    fclose (fp);
 403 +    mutt_unblock_signals ();
 404 +    mutt_error _("Unable to lock mailbox!");
 405 +    store_size (ctx);
 406 +    FREE (&cmd);
 407 +    return (-1);
 408 +  }
 409 +
 410 +  dprint (2, (debugfile, "CompressCommand: '%s'\n", cmd));
 411 +
 412 +  endwin ();
 413 +  fflush (stdout);
 414 +  fprintf (stderr, _("Compressing %s...\n"), ctx->realpath);
 415 +  if (mutt_system (cmd))
 416 +  {
 417 +    mutt_any_key_to_continue (NULL);
 418 +    mutt_error (_("%s: Error compressing mailbox! Original mailbox deleted, uncompressed one kept!\n"), ctx->path);
 419 +    rc = -1;
 420 +  }
 421 +
 422 +  mbox_unlock_compressed (ctx, fp);
 423 +  mutt_unblock_signals ();
 424 +  fclose (fp);
 425 +
 426 +  FREE (&cmd);
 427 +
 428 +  store_size (ctx);
 429 +
 430 +  return (rc);
 431 +}
 432 +
 433 +int mutt_slow_close_compressed (CONTEXT *ctx)
 434 +{
 435 +  FILE *fp;
 436 +  const char *append;
 437 +  char *cmd;
 438 +  COMPRESS_INFO *ci = (COMPRESS_INFO *) ctx->compressinfo;
 439 +
 440 +  dprint (2, (debugfile, "mutt_slow_close_compressed called on '%s'\n",
 441 +             ctx->path));
 442 +
 443 +  if (! (ctx->append
 444 +        && ((append = get_append_command (ctx->realpath, ctx))
 445 +            || (append = ci->close))))
 446 +  {
 447 +    /* if we can not or should not append, we only have to remove the */
 448 +    /* compressed info, because sync was already called               */
 449 +    mutt_fast_close_compressed (ctx);
 450 +    return (0);
 451 +  }
 452 +
 453 +  if (ctx->fp)
 454 +    fclose (ctx->fp);
 455 +  ctx->fp = NULL;
 456 +
 457 +  if (!ctx->quiet)
 458 +  {
 459 +    if (append == ci->close)
 460 +      mutt_message (_("Compressing %s..."), ctx->realpath);
 461 +    else
 462 +      mutt_message (_("Compressed-appending to %s..."), ctx->realpath);
 463 +  }
 464 +
 465 +  cmd = get_compression_cmd (append, ctx);
 466 +  if (cmd == NULL)
 467 +    return (-1);
 468 +
 469 +  if ((fp = fopen (ctx->realpath, "a")) == NULL)
 470 +  {
 471 +    mutt_perror (ctx->realpath);
 472 +    FREE (&cmd);
 473 +    return (-1);
 474 +  }
 475 +  mutt_block_signals ();
 476 +  if (mbox_lock_compressed (ctx, fp, 1, 1) == -1)
 477 +  {
 478 +    fclose (fp);
 479 +    mutt_unblock_signals ();
 480 +    mutt_error _("Unable to lock mailbox!");
 481 +    FREE (&cmd);
 482 +    return (-1);
 483 +  }
 484 +
 485 +  dprint (2, (debugfile, "CompressCmd: '%s'\n", cmd));
 486 +
 487 +  endwin ();
 488 +  fflush (stdout);
 489 +
 490 +  if (append == ci->close)
 491 +    fprintf (stderr, _("Compressing %s...\n"), ctx->realpath);
 492 +  else
 493 +    fprintf (stderr, _("Compressed-appending to %s...\n"), ctx->realpath);
 494 +
 495 +  if (mutt_system (cmd))
 496 +  {
 497 +    mutt_any_key_to_continue (NULL);
 498 +    mutt_error (_(" %s: Error compressing mailbox!  Uncompressed one kept!\n"),
 499 +               ctx->path);
 500 +    FREE (&cmd);
 501 +    mbox_unlock_compressed (ctx, fp);
 502 +    mutt_unblock_signals ();
 503 +    fclose (fp);
 504 +    return (-1);
 505 +  }
 506 +
 507 +  mbox_unlock_compressed (ctx, fp);
 508 +  mutt_unblock_signals ();
 509 +  fclose (fp);
 510 +  remove_file (ctx);
 511 +  restore_path (ctx);
 512 +  FREE (&cmd);
 513 +  FREE (&ctx->compressinfo);
 514 +
 515 +  return (0);
 516 +}
 517 +
 518 +#endif /* USE_COMPRESSED */
 519 --- /dev/null
 520 +++ b/compress.h
 521 @@ -0,0 +1,27 @@
 522 +/*
 523 + * Copyright (C) 1997 Alain Penders <Alain@Finale-Dev.com>
 524 + *
 525 + *     This program is free software; you can redistribute it and/or modify
 526 + *     it under the terms of the GNU General Public License as published by
 527 + *     the Free Software Foundation; either version 2 of the License, or
 528 + *     (at your option) any later version.
 529 + *
 530 + *     This program is distributed in the hope that it will be useful,
 531 + *     but WITHOUT ANY WARRANTY; without even the implied warranty of
 532 + *     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 533 + *     GNU General Public License for more details.
 534 + *
 535 + *     You should have received a copy of the GNU General Public License
 536 + *     along with this program; if not, write to the Free Software
 537 + *     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 538 + */
 539 +
 540 +int mutt_can_read_compressed (const char *);
 541 +int mutt_can_append_compressed (const char *);
 542 +int mutt_open_read_compressed (CONTEXT *);
 543 +int mutt_open_append_compressed (CONTEXT *);
 544 +int mutt_slow_close_compressed (CONTEXT *);
 545 +int mutt_sync_compressed (CONTEXT *);
 546 +int mutt_test_compress_command (const char *);
 547 +int mutt_check_mailbox_compressed (CONTEXT *);
 548 +void mutt_fast_close_compressed (CONTEXT *);
 549 --- a/configure.ac
 550 +++ b/configure.ac
 551 @@ -792,6 +792,11 @@ AC_ARG_ENABLE(locales-fix, AC_HELP_STRIN
 552                  AC_DEFINE(LOCALES_HACK,1,[ Define if the result of isprint() is unreliable. ])
 553          fi])
 554
 555 +AC_ARG_ENABLE(compressed, AC_HELP_STRING([--enable-compressed], [Enable compressed folders support]),
 556 +       [if test x$enableval = xyes; then
 557 +                AC_DEFINE(USE_COMPRESSED,1, [ Define to support compressed folders. ])
 558 +        fi])
 559 +
 560  AC_ARG_WITH(exec-shell, AC_HELP_STRING([--with-exec-shell=SHELL], [Specify alternate shell (ONLY if /bin/sh is broken)]),
 561          [if test $withval != yes; then
 562                  AC_DEFINE_UNQUOTED(EXECSHELL, "$withval",
 563 --- a/curs_main.c
 564 +++ b/curs_main.c
 565 @@ -1131,6 +1131,11 @@ int mutt_index_menu (void)
 566          {
 567           int check;
 568
 569 +#ifdef USE_COMPRESSED
 570 +         if (Context->compressinfo && Context->realpath)
 571 +           mutt_str_replace (&LastFolder, Context->realpath);
 572 +         else
 573 +#endif
 574           mutt_str_replace (&LastFolder, Context->path);
 575           oldcount = Context ? Context->msgcount : 0;
 576
 577 --- a/doc/manual.xml.head
 578 +++ b/doc/manual.xml.head
 579 @@ -4676,6 +4676,205 @@ macro pager \cb |urlview\n
 580
 581  </chapter>
 582
 583 +<sect1 id="compressedfolders">
 584 +<title>Compressed folders Support (OPTIONAL)</title>
 585 +
 586 +<para>
 587 +If Mutt was compiled with compressed folders support (by running the
 588 +<emphasis>configure</emphasis> script with the
 589 +<emphasis>--enable-compressed</emphasis> flag), Mutt can open folders
 590 +stored in an arbitrary format, provided that the user has a script to
 591 +convert from/to this format to one of the accepted.
 592 +
 593 +The most common use is to open compressed archived folders e.g. with
 594 +gzip.
 595 +
 596 +In addition, the user can provide a script that gets a folder in an
 597 +accepted format and appends its context to the folder in the
 598 +user-defined format, which may be faster than converting the entire
 599 +folder to the accepted format, appending to it and converting back to
 600 +the user-defined format.
 601 +
 602 +There are three hooks defined (<link
 603 +linkend="open-hook">open-hook</link>, <link
 604 +linkend="close-hook">close-hook</link> and <link
 605 +linkend="append-hook">append-hook</link>) which define commands to
 606 +uncompress and compress a folder and to append messages to an existing
 607 +compressed folder respectively.
 608 +
 609 +For example:
 610 +
 611 +<screen>
 612 +open-hook \\.gz$ "gzip -cd %f &gt; %t"
 613 +close-hook \\.gz$ "gzip -c %t &gt; %f"
 614 +append-hook \\.gz$ "gzip -c %t &gt;&gt; %f"
 615 +</screen>
 616 +
 617 +You do not have to specify all of the commands. If you omit <link
 618 +linkend="append-hook">append-hook</link>, the folder will be open and
 619 +closed again each time you will add to it. If you omit <link
 620 +linkend="close-hook">close-hook</link> (or give empty command) , the
 621 +folder will be open in the mode. If you specify <link
 622 +linkend="append-hook">append-hook</link> though you'll be able to
 623 +append to the folder.
 624 +
 625 +Note that Mutt will only try to use hooks if the file is not in one of
 626 +the accepted formats. In particular, if the file is empty, mutt
 627 +supposes it is not compressed. This is important because it allows the
 628 +use of programs that do not have well defined extensions. Just use
 629 +&quot;.&quot; as a regexp. But this may be surprising if your
 630 +compressing script produces empty files. In this situation, unset
 631 +<link linkend="save-empty">&dollar;save&lowbar;empty</link>, so that
 632 +the compressed file will be removed if you delete all of the messages.
 633 +</para>
 634 +
 635 +<sect2 id="open-hook">
 636 +<title>Open a compressed mailbox for reading</title>
 637 +
 638 +<para>
 639 +Usage: <literal>open-hook</literal> <emphasis>regexp</emphasis> &quot;<emphasis>command</emphasis>&quot;
 640 +
 641 +The <emphasis>command</emphasis> is the command that can be used for
 642 +opening the folders whose names match <emphasis>regexp</emphasis>.
 643 +
 644 +The <emphasis>command</emphasis> string is the printf-like format
 645 +string, and it should accept two parameters: &percnt;f, which is
 646 +replaced with the (compressed) folder name, and &percnt;t which is
 647 +replaced with the name of the temporary folder to which to write.
 648 +
 649 +&percnt;f and &percnt;t can be repeated any number of times in the
 650 +command string, and all of the entries are replaced with the
 651 +appropriate folder name. In addition, &percnt;&percnt; is replaced by
 652 +&percnt;, as in printf, and any other &percnt;anything is left as is.
 653 +
 654 +The <emphasis>command</emphasis> should <emphasis
 655 +role="bold">not</emphasis> remove the original compressed file.  The
 656 +<emphasis>command</emphasis> should return non-zero exit status if it
 657 +fails, so mutt knows something's wrong.
 658 +
 659 +Example:
 660 +
 661 +<screen>
 662 +open-hook \\.gz$ "gzip -cd %f &gt; %t"
 663 +</screen>
 664 +
 665 +If the <emphasis>command</emphasis> is empty, this operation is
 666 +disabled for this file type.
 667 +</para>
 668 +</sect2>
 669 +
 670 +<sect2 id="close-hook">
 671 +<title>Write a compressed mailbox</title>
 672 +
 673 +<para>
 674 +Usage: <literal>close-hook</literal> <emphasis>regexp</emphasis> &quot;<emphasis>command</emphasis>&quot;
 675 +
 676 +This is used to close the folder that was open with the <link
 677 +linkend="open-hook">open-hook</link> command after some changes were
 678 +made to it.
 679 +
 680 +The <emphasis>command</emphasis> string is the command that can be
 681 +used for closing the folders whose names match
 682 +<emphasis>regexp</emphasis>. It has the same format as in the <link
 683 +linkend="open-hook">open-hook</link> command. Temporary folder in this
 684 +case is the folder previously produced by the <link
 685 +linkend="open-hook">open-hook</link> command.
 686 +
 687 +The <emphasis>command</emphasis> should <emphasis
 688 +role="bold">not</emphasis> remove the decompressed file. The
 689 +<emphasis>command</emphasis> should return non-zero exit status if it
 690 +fails, so mutt knows something's wrong.
 691 +
 692 +Example:
 693 +
 694 +<screen>
 695 +close-hook \\.gz$ "gzip -c %t &gt; %f"
 696 +</screen>
 697 +
 698 +If the <emphasis>command</emphasis> is empty, this operation is
 699 +disabled for this file type, and the file can only be open in the
 700 +read-only mode.
 701 +
 702 +<link linkend="close-hook">close-hook</link> is not called when you
 703 +exit from the folder if the folder was not changed.
 704 +</para>
 705 +</sect2>
 706 +
 707 +<sect2 id="append-hook">
 708 +<title>Append a message to a compressed mailbox</title>
 709 +
 710 +<para>
 711 +Usage: <literal>append-hook</literal> <emphasis>regexp</emphasis> &quot;<emphasis>command</emphasis>&quot;
 712 +
 713 +This command is used for saving to an existing compressed folder.  The
 714 +<emphasis>command</emphasis> is the command that can be used for
 715 +appending to the folders whose names match
 716 +<emphasis>regexp</emphasis>. It has the same format as in the <link
 717 +linkend="open-hook">open-hook</link> command.  The temporary folder in
 718 +this case contains the messages that are being appended.
 719 +
 720 +The <emphasis>command</emphasis> should <emphasis
 721 +role="bold">not</emphasis> remove the decompressed file. The
 722 +<emphasis>command</emphasis> should return non-zero exit status if it
 723 +fails, so mutt knows something's wrong.
 724 +
 725 +Example:
 726 +
 727 +<screen>
 728 +append-hook \\.gz$ "gzip -c %t &gt;&gt; %f"
 729 +</screen>
 730 +
 731 +When <link linkend="append-hook">append-hook</link> is used, the folder
 732 +is not opened, which saves time, but this means that we can not find
 733 +out what the folder type is. Thus the default (<link
 734 +linkend="mbox-type">&dollar;mbox&lowbar;type</link>) type is always
 735 +supposed (i.e.  this is the format used for the temporary folder).
 736 +
 737 +If the file does not exist when you save to it, <link
 738 +linkend="close-hook">close-hook</link> is called, and not <link
 739 +linkend="append-hook">append-hook</link>. <link
 740 +linkend="append-hook">append-hook</link> is only for appending to
 741 +existing folders.
 742 +
 743 +If the <emphasis>command</emphasis> is empty, this operation is
 744 +disabled for this file type. In this case, the folder will be open and
 745 +closed again (using <link linkend="open-hook">open-hook</link> and
 746 +<link linkend="close-hook">close-hook</link>respectively) each time you
 747 +will add to it.
 748 +</para>
 749 +</sect2>
 750 +
 751 +<sect2>
 752 +<title>Encrypted folders</title>
 753 +
 754 +<para>
 755 +The compressed folders support can also be used to handle encrypted
 756 +folders. If you want to encrypt a folder with PGP, you may want to use
 757 +the following hooks:
 758 +
 759 +<screen>
 760 +open-hook  \\.pgp$ "pgp -f &lt; %f &gt; %t"
 761 +close-hook \\.pgp$ "pgp -fe YourPgpUserIdOrKeyId &lt; %t &gt; %f"
 762 +</screen>
 763 +
 764 +Please note, that PGP does not support appending to an encrypted
 765 +folder, so there is no append-hook defined.
 766 +
 767 +If you are using GnuPG instead of PGP, you may use the following hooks
 768 +instead:
 769 +
 770 +<screen>
 771 +open-hook  \\.gpg$ "gpg --decrypt &lt; %f &gt; %t"
 772 +close-hook \\.gpg$ "gpg --encrypt --recipient YourGpgUserIdOrKeyId &lt; %t &gt; %f"
 773 +</screen>
 774 +
 775 +<emphasis role="bold">Note:</emphasis> the folder is temporary stored
 776 +decrypted in the /tmp directory, where it can be read by your system
 777 +administrator. So think about the security aspects of this.
 778 +</para>
 779 +</sect2>
 780 +</sect1>
 781 +
 782  <chapter id="mimesupport">
 783  <title>Mutt's MIME Support</title>
 784
 785 --- a/doc/muttrc.man.head
 786 +++ b/doc/muttrc.man.head
 787 @@ -345,6 +345,24 @@ specify the ID of the public key to be u
 788  to a certain recipient.  The meaning of "key ID" is to be taken
 789  broadly: This can be a different e-mail address, a numerical key ID,
 790  or even just an arbitrary search string.
 791 +.PP
 792 +.nf
 793 +\fBopen-hook\fP \fIregexp\fP "\fIcommand\fP"
 794 +\fBclose-hook\fP \fIregexp\fP "\fIcommand\fP"
 795 +\fBappend-hook\fP \fIregexp\fP "\fIcommand\fP"
 796 +.fi
 797 +.IP
 798 +These commands provide a way to handle compressed folders. The given
 799 +\fBregexp\fP specifies which folders are taken as compressed (e.g.
 800 +"\fI\\\\.gz$\fP"). The commands tell Mutt how to uncompress a folder
 801 +(\fBopen-hook\fP), compress a folder (\fBclose-hook\fP) or append a
 802 +compressed mail to a compressed folder (\fBappend-hook\fP). The
 803 +\fIcommand\fP string is the
 804 +.BR printf (3)
 805 +like format string, and it should accept two parameters: \fB%f\fP,
 806 +which is replaced with the (compressed) folder name, and \fB%t\fP
 807 +which is replaced with the name of the temporary folder to which to
 808 +write.
 809  .TP
 810  \fBpush\fP \fIstring\fP
 811  This command adds the named \fIstring\fP to the keyboard buffer.
 812 --- a/hook.c
 813 +++ b/hook.c
 814 @@ -24,6 +24,10 @@
 815  #include "mailbox.h"
 816  #include "mutt_crypt.h"
 817
 818 +#ifdef USE_COMPRESSED
 819 +#include "compress.h"
 820 +#endif
 821 +
 822  #include <limits.h>
 823  #include <string.h>
 824  #include <stdlib.h>
 825 @@ -92,6 +96,16 @@ int mutt_parse_hook (BUFFER *buf, BUFFER
 826      memset (&pattern, 0, sizeof (pattern));
 827      pattern.data = safe_strdup (path);
 828    }
 829 +#ifdef USE_COMPRESSED
 830 +  else if (data & (M_APPENDHOOK | M_OPENHOOK | M_CLOSEHOOK))
 831 +  {
 832 +    if (mutt_test_compress_command (command.data))
 833 +    {
 834 +      strfcpy (err->data, _("badly formatted command string"), err->dsize);
 835 +      return (-1);
 836 +    }
 837 +  }
 838 +#endif
 839    else if (DefaultHook && !(data & (M_CHARSETHOOK | M_ICONVHOOK | M_ACCOUNTHOOK))
 840             && (!WithCrypto || !(data & M_CRYPTHOOK))
 841        )
 842 --- a/init.h
 843 +++ b/init.h
 844 @@ -3210,6 +3210,11 @@ struct command_t Commands[] = {
 845    { "fcc-hook",                mutt_parse_hook,        M_FCCHOOK },
 846    { "fcc-save-hook",   mutt_parse_hook,        M_FCCHOOK | M_SAVEHOOK },
 847    { "folder-hook",     mutt_parse_hook,        M_FOLDERHOOK },
 848 +#ifdef USE_COMPRESSED
 849 +  { "open-hook",       mutt_parse_hook,        M_OPENHOOK },
 850 +  { "close-hook",      mutt_parse_hook,        M_CLOSEHOOK },
 851 +  { "append-hook",     mutt_parse_hook,        M_APPENDHOOK },
 852 +#endif
 853    { "group",           parse_group,            0 },
 854    { "ungroup",         parse_ungroup,          0 },
 855    { "hdr_order",       parse_list,             UL &HeaderOrderList },
 856 --- a/main.c
 857 +++ b/main.c
 858 @@ -409,6 +409,12 @@ static void show_version (void)
 859  #else
 860         "-LOCALES_HACK  "
 861  #endif
 862 +
 863 +#ifdef USE_COMPRESSED
 864 +       "+COMPRESSED  "
 865 +#else
 866 +       "-COMPRESSED  "
 867 +#endif
 868
 869  #ifdef HAVE_WC_FUNCS
 870         "+HAVE_WC_FUNCS  "
 871 --- a/Makefile.am
 872 +++ b/Makefile.am
 873 @@ -18,7 +18,7 @@ BUILT_SOURCES = keymap_defs.h patchlist.
 874  bin_PROGRAMS = mutt @DOTLOCK_TARGET@ @PGPAUX_TARGET@
 875  mutt_SOURCES = $(BUILT_SOURCES) \
 876         addrbook.c alias.c attach.c base64.c browser.c buffy.c color.c \
 877 -       crypt.c cryptglue.c \
 878 +       crypt.c cryptglue.c compress.c \
 879         commands.c complete.c compose.c copy.c curs_lib.c curs_main.c date.c \
 880         edit.c enter.c flags.c init.c filter.c from.c \
 881         getdomain.c group.c \
 882 @@ -66,7 +66,7 @@ EXTRA_mutt_SOURCES = account.c md5.c mut
 883         utf8.c wcwidth.c
 884
 885  EXTRA_DIST = COPYRIGHT GPL OPS OPS.PGP OPS.CRYPT OPS.SMIME TODO UPDATING \
 886 -       configure account.h \
 887 +       configure account.h compress.h \
 888         attach.h buffy.h charset.h copy.h crypthash.h dotlock.h functions.h gen_defs \
 889         globals.h hash.h history.h init.h keymap.h mutt_crypt.h \
 890         mailbox.h mapping.h md5.h mime.h mutt.h mutt_curses.h mutt_menu.h \
 891 --- a/mbox.c
 892 +++ b/mbox.c
 893 @@ -29,6 +29,10 @@
 894  #include "copy.h"
 895  #include "mutt_curses.h"
 896
 897 +#ifdef USE_COMPRESSED
 898 +#include "compress.h"
 899 +#endif
 900 +
 901  #include <sys/stat.h>
 902  #include <dirent.h>
 903  #include <string.h>
 904 @@ -1026,6 +1030,12 @@ bail:  /* Come here in case of disaster
 905  int mbox_close_mailbox (CONTEXT *ctx)
 906  {
 907    mx_unlock_file (ctx->path, fileno (ctx->fp), 1);
 908 +
 909 +#ifdef USE_COMPRESSED
 910 +  if (ctx->compressinfo)
 911 +    mutt_slow_close_compressed (ctx);
 912 +#endif
 913 +
 914    mutt_unblock_signals ();
 915    mx_fastclose_mailbox (ctx);
 916    return 0;
 917 --- a/mutt.h
 918 +++ b/mutt.h
 919 @@ -160,6 +160,11 @@ typedef enum
 920  #define M_ACCOUNTHOOK  (1<<9)
 921  #define M_REPLYHOOK    (1<<10)
 922  #define M_SEND2HOOK     (1<<11)
 923 +#ifdef USE_COMPRESSED
 924 +#define M_OPENHOOK     (1<<12)
 925 +#define M_APPENDHOOK   (1<<13)
 926 +#define M_CLOSEHOOK    (1<<14)
 927 +#endif
 928
 929  /* tree characters for linearize_tree and print_enriched_string */
 930  #define M_TREE_LLCORNER                1
 931 @@ -892,6 +897,11 @@ typedef struct _context
 932    int flagged;                 /* how many flagged messages */
 933    int msgnotreadyet;           /* which msg "new" in pager, -1 if none */
 934
 935 +#ifdef USE_COMPRESSED
 936 +  void *compressinfo;          /* compressed mbox module private data */
 937 +  char *realpath;              /* path to compressed mailbox */
 938 +#endif /* USE_COMPRESSED */
 939 +
 940    short magic;                 /* mailbox type */
 941
 942    unsigned char rights[(RIGHTSMAX + 7)/8];     /* ACL bits */
 943 --- a/mx.c
 944 +++ b/mx.c
 945 @@ -30,6 +30,10 @@
 946  #include "keymap.h"
 947  #include "url.h"
 948
 949 +#ifdef USE_COMPRESSED
 950 +#include "compress.h"
 951 +#endif
 952 +
 953  #ifdef USE_IMAP
 954  #include "imap.h"
 955  #endif
 956 @@ -445,6 +449,10 @@ int mx_get_magic (const char *path)
 957      return (-1);
 958    }
 959
 960 +#ifdef USE_COMPRESSED
 961 +  if (magic == 0 && mutt_can_read_compressed (path))
 962 +    return M_COMPRESSED;
 963 +#endif
 964    return (magic);
 965  }
 966
 967 @@ -484,6 +492,13 @@ static int mx_open_mailbox_append (CONTE
 968  {
 969    struct stat sb;
 970
 971 +#ifdef USE_COMPRESSED
 972 +  /* special case for appending to compressed folders -
 973 +   * even if we can not open them for reading */
 974 +  if (mutt_can_append_compressed (ctx->path))
 975 +    mutt_open_append_compressed (ctx);
 976 +#endif
 977 +
 978    ctx->append = 1;
 979
 980  #ifdef USE_IMAP
 981 @@ -647,7 +662,12 @@ CONTEXT *mx_open_mailbox (const char *pa
 982    }
 983
 984    ctx->magic = mx_get_magic (path);
 985 -
 986 +
 987 +#ifdef USE_COMPRESSED
 988 +  if (ctx->magic == M_COMPRESSED)
 989 +    mutt_open_read_compressed (ctx);
 990 +#endif
 991 +
 992    if(ctx->magic == 0)
 993      mutt_error (_("%s is not a mailbox."), path);
 994
 995 @@ -748,6 +768,10 @@ void mx_fastclose_mailbox (CONTEXT *ctx)
 996      mutt_free_header (&ctx->hdrs[i]);
 997    FREE (&ctx->hdrs);
 998    FREE (&ctx->v2r);
 999 +#ifdef USE_COMPRESSED
1000 +  if (ctx->compressinfo)
1001 +    mutt_fast_close_compressed (ctx);
1002 +#endif
1003    FREE (&ctx->path);
1004    FREE (&ctx->pattern);
1005    if (ctx->limit_pattern)
1006 @@ -800,6 +824,12 @@ static int sync_mailbox (CONTEXT *ctx, i
1007
1008    if (tmp && tmp->new == 0)
1009      mutt_update_mailbox (tmp);
1010 +
1011 +#ifdef USE_COMPRESSED
1012 +  if (rc == 0 && ctx->compressinfo)
1013 +    return mutt_sync_compressed (ctx);
1014 +#endif
1015 +
1016    return rc;
1017  }
1018
1019 @@ -1058,6 +1088,11 @@ int mx_close_mailbox (CONTEXT *ctx, int
1020        !mutt_is_spool(ctx->path) && !option (OPTSAVEEMPTY))
1021      mx_unlink_empty (ctx->path);
1022
1023 +#ifdef USE_COMPRESSED
1024 +  if (ctx->compressinfo && mutt_slow_close_compressed (ctx))
1025 +    return (-1);
1026 +#endif
1027 +
1028    mx_fastclose_mailbox (ctx);
1029
1030    return 0;
1031 @@ -1373,6 +1408,11 @@ int mx_check_mailbox (CONTEXT *ctx, int
1032  {
1033    int rc;
1034
1035 +#ifdef USE_COMPRESSED
1036 +  if (ctx->compressinfo)
1037 +    return mutt_check_mailbox_compressed (ctx);
1038 +#endif
1039 +
1040    if (ctx)
1041    {
1042      if (ctx->locked) lock = 0;
1043 --- a/mx.h
1044 +++ b/mx.h
1045 @@ -40,6 +40,9 @@ enum
1046  #ifdef USE_POP
1047    , M_POP
1048  #endif
1049 +#ifdef USE_COMPRESSED
1050 +  , M_COMPRESSED
1051 +#endif
1052  };
1053
1054  WHERE short DefaultMagic INITVAL (M_MBOX);
1055 --- a/po/de.po
1056 +++ b/po/de.po
1057 @@ -1279,6 +1279,48 @@ msgstr "Prüfung des Absenders fehlgeschl
1058  msgid "Failed to figure out sender"
1059  msgstr "Kann Absender nicht ermitteln"
1060
1061 +#: compress.c:203 mbox.c:661
1062 +msgid "Mailbox was corrupted!"
1063 +msgstr "Mailbox wurde zerstört!"
1064 +
1065 +#: compress.c:228 compress.c:253
1066 +#, c-format
1067 +msgid "Decompressing %s...\n"
1068 +msgstr "Entpacke %s...\n"
1069 +
1070 +#: compress.c:246 compress.c:367 compress.c:443 mbox.c:706
1071 +msgid "Unable to lock mailbox!"
1072 +msgstr "Kann Mailbox nicht für exklusiven Zugriff sperren!"
1073 +
1074 +#: compress.c:264
1075 +#, c-format
1076 +msgid "Error executing: %s : unable to open the mailbox!\n"
1077 +msgstr "Fehler beim Ausführen von %s : Kann die Mailbox nicht öffnen!\n"
1078 +
1079 +#: compress.c:350 compress.c:377 compress.c:423 compress.c:454
1080 +#, c-format
1081 +msgid "Compressing %s...\n"
1082 +msgstr "Komprimiere %s...\n"
1083 +
1084 +#: compress.c:381
1085 +#, c-format
1086 +msgid ""
1087 +"%s: Error compressing mailbox! Original mailbox deleted, uncompressed one "
1088 +"kept!\n"
1089 +msgstr ""
1090 +"%s: Fehler beim Komprimieren der Mailbox! Ursprüngliche Mailbox gelöscht, "
1091 +"entpackte gespeichert!\n"
1092 +
1093 +#: compress.c:425 compress.c:456
1094 +#, c-format
1095 +msgid "Compressed-appending to %s...\n"
1096 +msgstr "Hänge komprimiert an %s... an\n"
1097 +
1098 +#: compress.c:461
1099 +#, c-format
1100 +msgid " %s: Error compressing mailbox!  Uncompressed one kept!\n"
1101 +msgstr " %s: Fehler beim packen der Mailbox! Entpackte Mailbox gespeichert!\n"
1102 +
1103  #: crypt.c:69
1104  #, c-format
1105  msgid " (current time: %c)"
1106 @@ -1948,6 +1990,10 @@ msgstr "Hilfe für %s"
1107  msgid "Bad history file format (line %d)"
1108  msgstr "Falsches Format der Datei früherer Eingaben (Zeile %d)"
1109
1110 +#: hook.c:96
1111 +msgid "badly formatted command string"
1112 +msgstr "Hook enthält nicht die Muster %f und %t"
1113 +
1114  #: hook.c:251
1115  #, c-format
1116  msgid "unhook: Can't do unhook * from within a hook."
1117 @@ -3463,18 +3509,10 @@ msgstr "Lese %s..."
1118  msgid "Mailbox is corrupt!"
1119  msgstr "Mailbox fehlerhaft!"
1120
1121 -#: mbox.c:670
1122 -msgid "Mailbox was corrupted!"
1123 -msgstr "Mailbox wurde zerstört!"
1124 -
1125  #: mbox.c:711 mbox.c:964
1126  msgid "Fatal error!  Could not reopen mailbox!"
1127  msgstr "Fataler Fehler, konnte Mailbox nicht erneut öffnen!"
1128
1129 -#: mbox.c:720
1130 -msgid "Unable to lock mailbox!"
1131 -msgstr "Kann Mailbox nicht für exklusiven Zugriff sperren!"
1132 -
1133  #. this means ctx->changed or ctx->deleted was set, but no
1134  #. * messages were found to be changed or deleted.  This should
1135  #. * never happen, is we presume it is a bug in mutt.
1136 --- a/po/POTFILES.in
1137 +++ b/po/POTFILES.in
1138 @@ -8,6 +8,7 @@ charset.c
1139  color.c
1140  commands.c
1141  compose.c
1142 +compress.c
1143  crypt-gpgme.c
1144  crypt.c
1145  cryptglue.c
1146 --- a/status.c
1147 +++ b/status.c
1148 @@ -99,6 +99,14 @@ status_format_str (char *buf, size_t buf
1149
1150      case 'f':
1151        snprintf (fmt, sizeof(fmt), "%%%ss", prefix);
1152 +#ifdef USE_COMPRESSED
1153 +      if (Context && Context->compressinfo && Context->realpath)
1154 +      {
1155 +        strfcpy (tmp, Context->realpath, sizeof (tmp));
1156 +        mutt_pretty_mailbox (tmp);
1157 +      }
1158 +      else
1159 +#endif
1160        if (Context && Context->path)
1161        {
1162         strfcpy (tmp, Context->path, sizeof (tmp));