browser.c

   1 /*
   2  * Copyright notice from original mutt:
   3  * Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
   4  *
   5  * This file is part of mutt-ng, see http://www.muttng.org/.
   6  * It's licensed under the GNU General Public License,
   7  * please see the file GPL in the top level source directory.
   8  */
   9
  10 #if HAVE_CONFIG_H
  11 # include "config.h"
  12 #endif
  13
  14 #include <lib-lib/mem.h>
  15 #include <lib-lib/str.h>
  16 #include <lib-lib/macros.h>
  17 #include <lib-lib/file.h>
  18 #include <lib-lib/mapping.h>
  19
  20 #include "mutt.h"
  21 #include "enter.h"
  22 #include "mx.h"
  23 #include "mutt_curses.h"
  24 #include "mutt_menu.h"
  25 #include "buffy.h"
  26 #include "sort.h"
  27 #include "browser.h"
  28 #include "attach.h"
  29
  30 #ifdef USE_IMAP
  31 #include "imap.h"
  32 #include "imap/mx_imap.h"
  33 #endif
  34 #ifdef USE_NNTP
  35 #include "nntp.h"
  36 #endif
  37 #include "sidebar.h"
  38
  39 #include "lib/list.h"
  40
  41 #include <stdlib.h>
  42 #include <dirent.h>
  43 #include <string.h>
  44 #include <ctype.h>
  45 #include <unistd.h>
  46 #include <sys/stat.h>
  47 #include <errno.h>
  48
  49 static struct mapping_t FolderHelp[] = {
  50   {N_("Exit"), OP_EXIT},
  51   {N_("Chdir"), OP_CHANGE_DIRECTORY},
  52   {N_("Mask"), OP_ENTER_MASK},
  53   {N_("Help"), OP_HELP},
  54   {NULL, OP_NULL}
  55 };
  56
  57 #ifdef USE_NNTP
  58 static struct mapping_t FolderNewsHelp[] = {
  59   {N_("Exit"), OP_EXIT},
  60   {N_("List"), OP_TOGGLE_MAILBOXES},
  61   {N_("Subscribe"), OP_BROWSER_SUBSCRIBE},
  62   {N_("Unsubscribe"), OP_BROWSER_UNSUBSCRIBE},
  63   {N_("Catchup"), OP_CATCHUP},
  64   {N_("Mask"), OP_ENTER_MASK},
  65   {N_("Help"), OP_HELP},
  66   {NULL, OP_NULL}
  67 };
  68 #endif
  69
  70 typedef struct folder_t {
  71   struct folder_file *ff;
  72   int num;
  73 } FOLDER;
  74
  75 static char LastDir[_POSIX_PATH_MAX] = "";
  76 static char LastDirBackup[_POSIX_PATH_MAX] = "";
  77
  78 /* Frees up the memory allocated for the local-global variables.  */
  79 static void destroy_state (struct browser_state *state)
  80 {
  81   int c;
  82
  83   for (c = 0; c < state->entrylen; c++) {
  84     p_delete(&((state->entry)[c].name));
  85     p_delete(&((state->entry)[c].desc));
  86     p_delete(&((state->entry)[c].st));
  87   }
  88 #ifdef USE_IMAP
  89   p_delete(&state->folder);
  90 #endif
  91   p_delete(&state->entry);
  92 }
  93
  94 static int browser_compare_subject (const void *a, const void *b)
  95 {
  96   struct folder_file *pa = (struct folder_file *) a;
  97   struct folder_file *pb = (struct folder_file *) b;
  98
  99   int r = strcoll(NONULL(pa->name), NONULL(pb->name));
 100
 101   return ((BrowserSort & SORT_REVERSE) ? -r : r);
 102 }
 103
 104 static int browser_compare_date (const void *a, const void *b)
 105 {
 106   struct folder_file *pa = (struct folder_file *) a;
 107   struct folder_file *pb = (struct folder_file *) b;
 108
 109   int r = pa->mtime - pb->mtime;
 110
 111   return ((BrowserSort & SORT_REVERSE) ? -r : r);
 112 }
 113
 114 static int browser_compare_size (const void *a, const void *b)
 115 {
 116   struct folder_file *pa = (struct folder_file *) a;
 117   struct folder_file *pb = (struct folder_file *) b;
 118
 119   int r = pa->size - pb->size;
 120
 121   return ((BrowserSort & SORT_REVERSE) ? -r : r);
 122 }
 123
 124 static void browser_sort (struct browser_state *state)
 125 {
 126   int (*f) (const void *, const void *);
 127
 128   switch (BrowserSort & SORT_MASK) {
 129   case SORT_ORDER:
 130     return;
 131   case SORT_DATE:
 132 #ifdef USE_NNTP
 133     if (option (OPTNEWS))
 134       return;
 135 #endif
 136     f = browser_compare_date;
 137     break;
 138   case SORT_SIZE:
 139 #ifdef USE_NNTP
 140     if (option (OPTNEWS))
 141       return;
 142 #endif
 143     f = browser_compare_size;
 144     break;
 145   case SORT_SUBJECT:
 146   default:
 147     f = browser_compare_subject;
 148     break;
 149   }
 150   qsort (state->entry, state->entrylen, sizeof (struct folder_file), f);
 151 }
 152
 153 static int link_is_dir (const char *folder, const char *path)
 154 {
 155   struct stat st;
 156   char fullpath[_POSIX_PATH_MAX];
 157
 158   mutt_concat_path(fullpath, sizeof(fullpath), folder, path);
 159
 160   if (stat (fullpath, &st) == 0)
 161     return (S_ISDIR (st.st_mode));
 162   else
 163     return 0;
 164 }
 165
 166 static const char *folder_format_str (char *dest, size_t destlen, char op,
 167                                       const char *src, const char *fmt,
 168                                       const char *ifstring,
 169                                       const char *elsestring,
 170                                       unsigned long data, format_flag flags)
 171 {
 172   char fn[SHORT_STRING], tmp[SHORT_STRING], permission[11], date[16];
 173   const char *t_fmt;
 174   time_t tnow;
 175   FOLDER *folder = (FOLDER *) data;
 176   struct passwd *pw;
 177   struct group *gr;
 178   int optional = (flags & M_FORMAT_OPTIONAL);
 179
 180   switch (op) {
 181   case 'C':
 182     snprintf (tmp, sizeof (tmp), "%%%sd", fmt);
 183     snprintf (dest, destlen, tmp, folder->num + 1);
 184     break;
 185
 186   case 'd':
 187     if (folder->ff->st != NULL) {
 188       tnow = time (NULL);
 189       t_fmt =
 190         tnow - folder->ff->st->st_mtime <
 191         31536000 ? "%b %d %H:%M" : "%b %d  %Y";
 192       strftime (date, sizeof (date), t_fmt,
 193                 localtime (&folder->ff->st->st_mtime));
 194       mutt_format_s (dest, destlen, fmt, date);
 195     }
 196     else
 197       mutt_format_s (dest, destlen, fmt, "");
 198     break;
 199
 200   case 'f':
 201     {
 202       const char *s;
 203
 204 #ifdef USE_IMAP
 205       if (folder->ff->imap)
 206         s = NONULL (folder->ff->desc);
 207       else
 208 #endif
 209         s = NONULL (folder->ff->name);
 210
 211       snprintf (fn, sizeof (fn), "%s%s", s,
 212                 folder->ff->st ? (S_ISLNK (folder->ff->st->st_mode) ? "@" :
 213                                   (S_ISDIR (folder->ff->st->st_mode) ? "/" :
 214                                    ((folder->ff->st->st_mode & S_IXUSR) !=
 215                                     0 ? "*" : ""))) : "");
 216
 217       mutt_format_s (dest, destlen, fmt, fn);
 218       break;
 219     }
 220   case 'F':
 221     if (folder->ff->st != NULL) {
 222       snprintf (permission, sizeof (permission), "%c%c%c%c%c%c%c%c%c%c",
 223                 S_ISDIR (folder->ff->st->
 224                          st_mode) ? 'd' : (S_ISLNK (folder->ff->st->
 225                                                     st_mode) ? 'l' : '-'),
 226                 (folder->ff->st->st_mode & S_IRUSR) != 0 ? 'r' : '-',
 227                 (folder->ff->st->st_mode & S_IWUSR) != 0 ? 'w' : '-',
 228                 (folder->ff->st->st_mode & S_ISUID) !=
 229                 0 ? 's' : (folder->ff->st->st_mode & S_IXUSR) !=
 230                 0 ? 'x' : '-',
 231                 (folder->ff->st->st_mode & S_IRGRP) != 0 ? 'r' : '-',
 232                 (folder->ff->st->st_mode & S_IWGRP) != 0 ? 'w' : '-',
 233                 (folder->ff->st->st_mode & S_ISGID) !=
 234                 0 ? 's' : (folder->ff->st->st_mode & S_IXGRP) !=
 235                 0 ? 'x' : '-',
 236                 (folder->ff->st->st_mode & S_IROTH) != 0 ? 'r' : '-',
 237                 (folder->ff->st->st_mode & S_IWOTH) != 0 ? 'w' : '-',
 238                 (folder->ff->st->st_mode & S_ISVTX) !=
 239                 0 ? 't' : (folder->ff->st->st_mode & S_IXOTH) !=
 240                 0 ? 'x' : '-');
 241       mutt_format_s (dest, destlen, fmt, permission);
 242     }
 243 #ifdef USE_IMAP
 244     else if (folder->ff->imap) {
 245       /* mark folders with subfolders AND mail */
 246       snprintf (permission, sizeof (permission), "IMAP %c",
 247                 (folder->ff->inferiors
 248                  && folder->ff->selectable) ? '+' : ' ');
 249       mutt_format_s (dest, destlen, fmt, permission);
 250     }
 251 #endif
 252     else
 253       mutt_format_s (dest, destlen, fmt, "");
 254     break;
 255
 256   case 'g':
 257     if (folder->ff->st != NULL) {
 258       if ((gr = getgrgid (folder->ff->st->st_gid)))
 259         mutt_format_s (dest, destlen, fmt, gr->gr_name);
 260       else {
 261         snprintf (tmp, sizeof (tmp), "%%%sld", fmt);
 262         snprintf (dest, destlen, tmp, folder->ff->st->st_gid);
 263       }
 264     }
 265     else
 266       mutt_format_s (dest, destlen, fmt, "");
 267     break;
 268
 269   case 'l':
 270     if (folder->ff->st != NULL) {
 271       snprintf (tmp, sizeof (tmp), "%%%sd", fmt);
 272       snprintf (dest, destlen, tmp, folder->ff->st->st_nlink);
 273     }
 274     else
 275       mutt_format_s (dest, destlen, fmt, "");
 276     break;
 277
 278   case 'N':
 279 #ifdef USE_IMAP
 280     if (imap_is_magic (folder->ff->desc, NULL) == M_IMAP) {
 281       if (!optional) {
 282         snprintf (tmp, sizeof (tmp), "%%%sd", fmt);
 283         snprintf (dest, destlen, tmp, folder->ff->new);
 284       }
 285       else if (!folder->ff->new)
 286         optional = 0;
 287       break;
 288     }
 289 #endif
 290     snprintf (tmp, sizeof (tmp), "%%%sc", fmt);
 291     snprintf (dest, destlen, tmp, folder->ff->new ? 'N' : ' ');
 292     break;
 293
 294   case 's':
 295     if (folder->ff->st != NULL) {
 296       snprintf (tmp, sizeof (tmp), "%%%sld", fmt);
 297       snprintf (dest, destlen, tmp, (long) folder->ff->st->st_size);
 298     }
 299     else
 300       mutt_format_s (dest, destlen, fmt, "");
 301     break;
 302
 303   case 't':
 304     snprintf (tmp, sizeof (tmp), "%%%sc", fmt);
 305     snprintf (dest, destlen, tmp, folder->ff->tagged ? '*' : ' ');
 306     break;
 307
 308   case 'u':
 309     if (folder->ff->st != NULL) {
 310       if ((pw = getpwuid (folder->ff->st->st_uid)))
 311         mutt_format_s (dest, destlen, fmt, pw->pw_name);
 312       else {
 313         snprintf (tmp, sizeof (tmp), "%%%sld", fmt);
 314         snprintf (dest, destlen, tmp, folder->ff->st->st_uid);
 315       }
 316     }
 317     else
 318       mutt_format_s (dest, destlen, fmt, "");
 319     break;
 320
 321   default:
 322     snprintf (tmp, sizeof (tmp), "%%%sc", fmt);
 323     snprintf (dest, destlen, tmp, op);
 324     break;
 325   }
 326
 327   if (optional)
 328     mutt_FormatString (dest, destlen, ifstring, folder_format_str, data, 0);
 329   else if (flags & M_FORMAT_OPTIONAL)
 330     mutt_FormatString (dest, destlen, elsestring, folder_format_str, data, 0);
 331
 332   return (src);
 333 }
 334
 335 #ifdef USE_NNTP
 336 static const char *newsgroup_format_str (char *dest, size_t destlen, char op,
 337                                          const char *src, const char *fmt,
 338                                          const char *ifstring,
 339                                          const char *elsestring,
 340                                          unsigned long data,
 341                                          format_flag flags)
 342 {
 343   char fn[SHORT_STRING], tmp[SHORT_STRING];
 344   FOLDER *folder = (FOLDER *) data;
 345
 346   switch (op) {
 347   case 'C':
 348     snprintf (tmp, sizeof (tmp), "%%%sd", fmt);
 349     snprintf (dest, destlen, tmp, folder->num + 1);
 350     break;
 351
 352   case 'f':
 353     m_strcpy(fn, sizeof(fn), folder->ff->name);
 354     snprintf (tmp, sizeof (tmp), "%%%ss", fmt);
 355     snprintf (dest, destlen, tmp, fn);
 356     break;
 357
 358   case 'N':
 359     snprintf (tmp, sizeof (tmp), "%%%sc", fmt);
 360     if (folder->ff->nd->subscribed)
 361       snprintf (dest, destlen, tmp, ' ');
 362     else
 363       snprintf (dest, destlen, tmp, folder->ff->new ? 'N' : 'u');
 364     break;
 365
 366   case 'M':
 367     snprintf (tmp, sizeof (tmp), "%%%sc", fmt);
 368     if (folder->ff->nd->deleted)
 369       snprintf (dest, destlen, tmp, 'D');
 370     else
 371       snprintf (dest, destlen, tmp, folder->ff->nd->allowed ? ' ' : '-');
 372     break;
 373
 374   case 's':
 375     if (flags & M_FORMAT_OPTIONAL) {
 376       if (folder->ff->nd->unread != 0)
 377         mutt_FormatString (dest, destlen, ifstring, newsgroup_format_str,
 378                            data, flags);
 379       else
 380         mutt_FormatString (dest, destlen, elsestring, newsgroup_format_str,
 381                            data, flags);
 382     }
 383     else if (Context && Context->data == folder->ff->nd) {
 384       snprintf (tmp, sizeof (tmp), "%%%sd", fmt);
 385       snprintf (dest, destlen, tmp, Context->unread);
 386     }
 387     else {
 388       snprintf (tmp, sizeof (tmp), "%%%sd", fmt);
 389       snprintf (dest, destlen, tmp, folder->ff->nd->unread);
 390     }
 391     break;
 392
 393   case 'n':
 394     if (Context && Context->data == folder->ff->nd) {
 395       snprintf (tmp, sizeof (tmp), "%%%sd", fmt);
 396       snprintf (dest, destlen, tmp, Context->new);
 397     }
 398     else if (option (OPTMARKOLD) &&
 399              folder->ff->nd->lastCached >= folder->ff->nd->firstMessage &&
 400              folder->ff->nd->lastCached <= folder->ff->nd->lastMessage) {
 401       snprintf (tmp, sizeof (tmp), "%%%sd", fmt);
 402       snprintf (dest, destlen, tmp,
 403                 folder->ff->nd->lastMessage - folder->ff->nd->lastCached);
 404     }
 405     else {
 406       snprintf (tmp, sizeof (tmp), "%%%sd", fmt);
 407       snprintf (dest, destlen, tmp, folder->ff->nd->unread);
 408     }
 409     break;
 410
 411   case 'd':
 412     if (folder->ff->nd->desc != NULL) {
 413       snprintf (tmp, sizeof (tmp), "%%%ss", fmt);
 414       snprintf (dest, destlen, tmp, folder->ff->nd->desc);
 415     }
 416     else {
 417       snprintf (tmp, sizeof (tmp), "%%%ss", fmt);
 418       snprintf (dest, destlen, tmp, "");
 419     }
 420     break;
 421   }
 422   return (src);
 423 }
 424 #endif /* USE_NNTP */
 425
 426 static void add_folder (MUTTMENU * m, struct browser_state *state,
 427                         const char *name, const struct stat *s,
 428                         void *data, int new)
 429 {
 430   if (state->entrylen == state->entrymax) {
 431     /* need to allocate more space */
 432     p_realloc(&state->entry, state->entrymax += 256);
 433     p_clear(&state->entry[state->entrylen], 256);
 434     if (m)
 435       m->data = state->entry;
 436   }
 437
 438   if (s != NULL) {
 439     (state->entry)[state->entrylen].mode  = s->st_mode;
 440     (state->entry)[state->entrylen].mtime = s->st_mtime;
 441     (state->entry)[state->entrylen].size  = s->st_size;
 442     (state->entry)[state->entrylen].st    = p_dup(s, 1);
 443   }
 444
 445   (state->entry)[state->entrylen].new = new;
 446   (state->entry)[state->entrylen].name = m_strdup(name);
 447   (state->entry)[state->entrylen].desc = m_strdup(name);
 448 #ifdef USE_IMAP
 449   (state->entry)[state->entrylen].imap = 0;
 450 #endif
 451 #ifdef USE_NNTP
 452   if (option (OPTNEWS))
 453     (state->entry)[state->entrylen].nd = (NNTP_DATA *) data;
 454 #endif
 455   (state->entrylen)++;
 456 }
 457
 458 static void init_state (struct browser_state *state, MUTTMENU * menu)
 459 {
 460   state->entrylen = 0;
 461   state->entrymax = 256;
 462   state->entry = p_new(struct folder_file, state->entrymax);
 463 #ifdef USE_IMAP
 464   state->imap_browse = 0;
 465 #endif
 466   if (menu)
 467     menu->data = state->entry;
 468 }
 469
 470 /* get list of all files/newsgroups with mask */
 471 static int examine_directory (MUTTMENU * menu, struct browser_state *state,
 472                               char *d, const char *prefix)
 473 {
 474 #ifdef USE_NNTP
 475   if (option (OPTNEWS)) {
 476     LIST *tmp;
 477     NNTP_DATA *data;
 478     NNTP_SERVER *news = CurrentNewsSrv;
 479
 480 /*  buffy_check (0); */
 481     init_state (state, menu);
 482
 483     for (tmp = news->list; tmp; tmp = tmp->next) {
 484       if (!(data = (NNTP_DATA *) tmp->data))
 485         continue;
 486       nntp_sync_sidebar (data);
 487       if (prefix && *prefix && strncmp (prefix, data->group,
 488                                         m_strlen(prefix)) != 0)
 489         continue;
 490       if (!((regexec (Mask.rx, data->group, 0, NULL, 0) == 0) ^ Mask.not))
 491         continue;
 492       add_folder (menu, state, data->group, NULL, data, data->new);
 493     }
 494     sidebar_draw (CurrentMenu);
 495   }
 496   else
 497 #endif /* USE_NNTP */
 498   {
 499     struct stat s;
 500     DIR *dp;
 501     struct dirent *de;
 502     char buffer[_POSIX_PATH_MAX + SHORT_STRING];
 503     int i = -1;
 504
 505     while (stat (d, &s) == -1) {
 506       if (errno == ENOENT) {
 507         /* The last used directory is deleted, try to use the parent dir. */
 508         char *c = strrchr (d, '/');
 509
 510         if (c && (c > d)) {
 511           *c = 0;
 512           continue;
 513         }
 514       }
 515       mutt_perror (d);
 516       return (-1);
 517     }
 518
 519     if (!S_ISDIR (s.st_mode)) {
 520       mutt_error (_("%s is not a directory."), d);
 521       return (-1);
 522     }
 523
 524     buffy_check (0);
 525
 526     if ((dp = opendir (d)) == NULL) {
 527       mutt_perror (d);
 528       return (-1);
 529     }
 530
 531     init_state (state, menu);
 532
 533     while ((de = readdir (dp)) != NULL) {
 534       if (m_strcmp(de->d_name, ".") == 0)
 535         continue;               /* we don't need . */
 536
 537       if (prefix && *prefix
 538           && m_strncmp(prefix, de->d_name, m_strlen(prefix)) != 0)
 539         continue;
 540       if (!((regexec (Mask.rx, de->d_name, 0, NULL, 0) == 0) ^ Mask.not))
 541         continue;
 542
 543       mutt_concat_path(buffer, sizeof(buffer), d, de->d_name);
 544       if (lstat (buffer, &s) == -1)
 545         continue;
 546
 547       if ((!S_ISREG (s.st_mode)) && (!S_ISDIR (s.st_mode)) &&
 548           (!S_ISLNK (s.st_mode)))
 549         continue;
 550
 551       i = buffy_lookup (buffer);
 552       add_folder (menu, state, de->d_name, &s, NULL, i >= 0 ? ((BUFFY*) Incoming->data[i])->new : 0);
 553     }
 554     closedir (dp);
 555   }
 556   sidebar_draw (CurrentMenu);
 557   browser_sort (state);
 558   return 0;
 559 }
 560
 561 /* get list of mailboxes/subscribed newsgroups */
 562 static int examine_mailboxes (MUTTMENU * menu, struct browser_state *state)
 563 {
 564   struct stat s;
 565   char buffer[LONG_STRING];
 566
 567 #ifdef USE_NNTP
 568   if (option (OPTNEWS)) {
 569     LIST *tmp;
 570     NNTP_DATA *data;
 571     NNTP_SERVER *news = CurrentNewsSrv;
 572
 573 /*  buffy_check (0); */
 574     init_state (state, menu);
 575
 576     for (tmp = news->list; tmp; tmp = tmp->next) {
 577       if ((data = (NNTP_DATA*) tmp->data) == NULL)
 578         continue;
 579       nntp_sync_sidebar (data);
 580       if ((data->new || (data->subscribed &&
 581                          (!option (OPTSHOWONLYUNREAD)|| data->unread))))
 582         add_folder (menu, state, data->group, NULL, data, data->new);
 583     }
 584     sidebar_draw (CurrentMenu);
 585   }
 586   else
 587 #endif
 588   {
 589     int i = 0;
 590     BUFFY* tmp;
 591
 592     if (!Incoming)
 593       return (-1);
 594     buffy_check (0);
 595
 596     init_state (state, menu);
 597
 598     for (i = 0; i < Incoming->length; i++) {
 599       tmp = (BUFFY*) Incoming->data[i];
 600       tmp->magic = mx_get_magic (tmp->path);
 601 #ifdef USE_IMAP
 602       if (tmp->magic == M_IMAP) {
 603         add_folder (menu, state, tmp->path, NULL, NULL, tmp->new);
 604         continue;
 605       }
 606 #endif
 607 #ifdef USE_POP
 608       if (tmp->magic == M_POP) {
 609         add_folder (menu, state, tmp->path, NULL, NULL, tmp->new);
 610         continue;
 611       }
 612 #endif
 613 #ifdef USE_NNTP
 614       if (tmp->magic == M_NNTP) {
 615         add_folder (menu, state, tmp->path, NULL, NULL, tmp->new);
 616         continue;
 617       }
 618 #endif
 619       if (lstat (tmp->path, &s) == -1)
 620         continue;
 621
 622       if ((!S_ISREG (s.st_mode)) && (!S_ISDIR (s.st_mode)) &&
 623           (!S_ISLNK (s.st_mode)))
 624         continue;
 625
 626       m_strcpy(buffer, sizeof(buffer), NONULL(tmp->path));
 627       mutt_pretty_mailbox (buffer);
 628
 629       add_folder (menu, state, buffer, &s, NULL, tmp->new);
 630     }
 631   }
 632   browser_sort (state);
 633   return 0;
 634 }
 635
 636 static int select_file_search (MUTTMENU * menu, regex_t * re, int n)
 637 {
 638 #ifdef USE_NNTP
 639   if (option (OPTNEWS))
 640     return (regexec
 641             (re, ((struct folder_file *) menu->data)[n].desc, 0, NULL, 0));
 642 #endif
 643   return (regexec
 644           (re, ((struct folder_file *) menu->data)[n].name, 0, NULL, 0));
 645 }
 646
 647 static void folder_entry (char *s, size_t slen, MUTTMENU * menu, int num)
 648 {
 649   FOLDER folder;
 650
 651   folder.ff = &((struct folder_file *) menu->data)[num];
 652   folder.num = num;
 653
 654 #ifdef USE_NNTP
 655   if (option (OPTNEWS))
 656     mutt_FormatString (s, slen, NONULL (GroupFormat), newsgroup_format_str,
 657                        (unsigned long) &folder, M_FORMAT_ARROWCURSOR);
 658   else
 659 #endif
 660     mutt_FormatString (s, slen, NONULL (FolderFormat), folder_format_str,
 661                        (unsigned long) &folder, M_FORMAT_ARROWCURSOR);
 662 }
 663
 664 static void init_menu (struct browser_state *state, MUTTMENU * menu,
 665                        char *title, size_t titlelen, int buffy)
 666 {
 667   char path[_POSIX_PATH_MAX];
 668
 669   menu->max = state->entrylen;
 670
 671   if (menu->current >= menu->max)
 672     menu->current = menu->max - 1;
 673   if (menu->current < 0)
 674     menu->current = 0;
 675   if (menu->top > menu->current)
 676     menu->top = 0;
 677
 678   menu->tagged = 0;
 679
 680 #ifdef USE_NNTP
 681   if (option (OPTNEWS)) {
 682     if (buffy)
 683       snprintf (title, titlelen, "%s", _("Subscribed newsgroups"));
 684     else
 685       snprintf (title, titlelen, _("Newsgroups on server [%s]"),
 686                 CurrentNewsSrv->conn->account.host);
 687   }
 688   else
 689 #endif
 690   if (buffy)
 691     snprintf(title, titlelen, _("Mailboxes [%d]"), buffy_check(0));
 692   else {
 693     m_strcpy(path, sizeof(path), LastDir);
 694     mutt_pretty_mailbox (path);
 695 #ifdef USE_IMAP
 696     if (state->imap_browse && option (OPTIMAPLSUB))
 697       snprintf (title, titlelen, _("Subscribed [%s], File mask: %s"),
 698                 path, NONULL (Mask.pattern));
 699     else
 700 #endif
 701       snprintf (title, titlelen, _("Directory [%s], File mask: %s"),
 702                 path, NONULL (Mask.pattern));
 703   }
 704   menu->redraw = REDRAW_FULL;
 705 }
 706
 707 static int file_tag (MUTTMENU * menu, int n, int m)
 708 {
 709   struct folder_file *ff = &(((struct folder_file *) menu->data)[n]);
 710   int ot;
 711
 712   if (S_ISDIR (ff->mode)
 713       || (S_ISLNK (ff->mode) && link_is_dir (LastDir, ff->name))) {
 714     mutt_error _("Can't attach a directory!");
 715
 716     return 0;
 717   }
 718
 719   ot = ff->tagged;
 720   ff->tagged = (m >= 0 ? m : !ff->tagged);
 721
 722   return ff->tagged - ot;
 723 }
 724
 725 void _mutt_select_file (char *f, size_t flen, int flags, char ***files,
 726                         int *numfiles)
 727 {
 728   char buf[_POSIX_PATH_MAX];
 729   char prefix[_POSIX_PATH_MAX] = "";
 730   char helpstr[SHORT_STRING];
 731   char title[STRING];
 732   struct browser_state state;
 733   MUTTMENU *menu;
 734   struct stat st;
 735   int i, killPrefix = 0;
 736   int multiple = (flags & M_SEL_MULTI) ? 1 : 0;
 737   int folder = (flags & M_SEL_FOLDER) ? 1 : 0;
 738   int buffy = (flags & M_SEL_BUFFY) ? 1 : 0;
 739
 740   buffy = buffy && folder;
 741
 742   p_clear(&state, 1);
 743
 744   if (!folder)
 745     m_strcpy(LastDirBackup, sizeof(LastDirBackup), LastDir);
 746
 747 #ifdef USE_NNTP
 748   if (option (OPTNEWS)) {
 749     if (*f)
 750       m_strcpy(prefix, sizeof(prefix), f);
 751     else {
 752       LIST *list;
 753
 754       /* default state for news reader mode is browse subscribed newsgroups */
 755       buffy = 0;
 756       for (list = CurrentNewsSrv->list; list; list = list->next) {
 757         NNTP_DATA *data = (NNTP_DATA *) list->data;
 758
 759         if (data && data->subscribed) {
 760           buffy = 1;
 761           break;
 762         }
 763       }
 764     }
 765   }
 766   else
 767 #endif
 768   if (*f) {
 769     mutt_expand_path (f, flen);
 770 #ifdef USE_IMAP
 771     if (imap_is_magic (f, NULL) == M_IMAP) {
 772       init_state (&state, NULL);
 773       state.imap_browse = 1;
 774       if (!imap_browse (f, &state))
 775         m_strcpy(LastDir, sizeof(LastDir), state.folder);
 776     }
 777     else {
 778 #endif
 779       for (i = m_strlen(f) - 1; i > 0 && f[i] != '/'; i--);
 780       if (i > 0) {
 781         if (f[0] == '/') {
 782           i = MIN(sizeof(LastDir) - 1, i);
 783           m_strcpy(LastDir, sizeof(LastDir), f);
 784         }
 785         else {
 786           getcwd(LastDir, sizeof(LastDir));
 787           m_strcat(LastDir, sizeof(LastDir), "/");
 788           m_strncat(LastDir, sizeof(LastDir), f, i);
 789         }
 790       }
 791       else {
 792         if (f[0] == '/')
 793           strcpy (LastDir, "/");        /* __STRCPY_CHECKED__ */
 794         else
 795           getcwd (LastDir, sizeof (LastDir));
 796       }
 797
 798       if (i <= 0 && f[0] != '/')
 799         m_strcpy(prefix, sizeof(prefix), f);
 800       else
 801         m_strcpy(prefix, sizeof(prefix), f + i + 1);
 802       killPrefix = 1;
 803 #ifdef USE_IMAP
 804     }
 805 #endif
 806   }
 807   else {
 808     if (!folder)
 809       getcwd (LastDir, sizeof (LastDir));
 810     else if (!LastDir[0])
 811       m_strcpy(LastDir, sizeof(LastDir), NONULL(Maildir));
 812
 813 #ifdef USE_IMAP
 814     if (!buffy && imap_is_magic (LastDir, NULL) == M_IMAP) {
 815       init_state (&state, NULL);
 816       state.imap_browse = 1;
 817       imap_browse (LastDir, &state);
 818       browser_sort (&state);
 819     }
 820 #endif
 821   }
 822
 823   *f = 0;
 824
 825   if (buffy) {
 826     if (examine_mailboxes (NULL, &state) == -1)
 827       goto bail;
 828   }
 829   else
 830 #ifdef USE_IMAP
 831   if (!state.imap_browse)
 832 #endif
 833     if (examine_directory (NULL, &state, LastDir, prefix) == -1)
 834       goto bail;
 835
 836   menu = mutt_new_menu ();
 837   menu->menu = MENU_FOLDER;
 838   menu->make_entry = folder_entry;
 839   menu->search = select_file_search;
 840   menu->title = title;
 841   menu->data = state.entry;
 842   if (multiple)
 843     menu->tag = file_tag;
 844
 845   menu->help = mutt_compile_help (helpstr, sizeof (helpstr), MENU_FOLDER,
 846 #ifdef USE_NNTP
 847                                   (option (OPTNEWS)) ? FolderNewsHelp :
 848 #endif
 849                                   FolderHelp);
 850
 851   init_menu (&state, menu, title, sizeof (title), buffy);
 852
 853   for (;;) {
 854     switch (i = mutt_menuLoop (menu)) {
 855     case OP_GENERIC_SELECT_ENTRY:
 856
 857       if (!state.entrylen) {
 858         mutt_error _("No files match the file mask");
 859
 860         break;
 861       }
 862
 863       if (S_ISDIR (state.entry[menu->current].mode) ||
 864           (S_ISLNK (state.entry[menu->current].mode) &&
 865            link_is_dir (LastDir, state.entry[menu->current].name))
 866 #ifdef USE_IMAP
 867           || state.entry[menu->current].inferiors
 868 #endif
 869         ) {
 870         /* make sure this isn't a MH or maildir mailbox */
 871         if (buffy) {
 872           m_strcpy(buf, sizeof(buf), state.entry[menu->current].name);
 873           mutt_expand_path (buf, sizeof (buf));
 874         }
 875 #ifdef USE_IMAP
 876         else if (state.imap_browse) {
 877           m_strcpy(buf, sizeof(buf), state.entry[menu->current].name);
 878         }
 879 #endif
 880         else
 881           mutt_concat_path(buf, sizeof(buf), LastDir,
 882                            state.entry[menu->current].name);
 883
 884         if ((mx_get_magic (buf) <= 0)
 885 #ifdef USE_IMAP
 886             || state.entry[menu->current].inferiors
 887 #endif
 888           ) {
 889           char OldLastDir[_POSIX_PATH_MAX];
 890
 891           /* save the old directory */
 892           m_strcpy(OldLastDir, sizeof(OldLastDir), LastDir);
 893
 894           if (m_strcmp(state.entry[menu->current].name, "..") == 0) {
 895             if (m_strcmp("..", LastDir + m_strlen(LastDir) - 2) == 0)
 896               strcat (LastDir, "/..");  /* __STRCAT_CHECKED__ */
 897             else {
 898               char *p = strrchr (LastDir + 1, '/');
 899
 900               if (p)
 901                 *p = 0;
 902               else {
 903                 if (LastDir[0] == '/')
 904                   LastDir[1] = 0;
 905                 else
 906                   strcat (LastDir, "/..");      /* __STRCAT_CHECKED__ */
 907               }
 908             }
 909           }
 910           else if (buffy) {
 911             m_strcpy(LastDir, sizeof(LastDir),
 912                      state.entry[menu->current].name);
 913             mutt_expand_path (LastDir, sizeof (LastDir));
 914           }
 915 #ifdef USE_IMAP
 916           else if (state.imap_browse) {
 917             int n;
 918             ciss_url_t url;
 919
 920             m_strcpy(LastDir, sizeof(LastDir),
 921                      state.entry[menu->current].name);
 922             /* tack on delimiter here */
 923             n = m_strlen(LastDir) + 1;
 924
 925             /* special case "" needs no delimiter */
 926             url_parse_ciss (&url, state.entry[menu->current].name);
 927             if (url.path &&
 928                 (state.entry[menu->current].delim != '\0') &&
 929                 (n < sizeof (LastDir))) {
 930               LastDir[n] = '\0';
 931               LastDir[n - 1] = state.entry[menu->current].delim;
 932             }
 933           }
 934 #endif
 935           else {
 936             char tmp[_POSIX_PATH_MAX];
 937
 938             mutt_concat_path(tmp, sizeof(tmp), LastDir,
 939                              state.entry[menu->current].name);
 940             m_strcpy(LastDir, sizeof(LastDir), tmp);
 941           }
 942
 943           destroy_state (&state);
 944           if (killPrefix) {
 945             prefix[0] = 0;
 946             killPrefix = 0;
 947           }
 948           buffy = 0;
 949 #ifdef USE_IMAP
 950           if (state.imap_browse) {
 951             init_state (&state, NULL);
 952             state.imap_browse = 1;
 953             imap_browse (LastDir, &state);
 954             browser_sort (&state);
 955             menu->data = state.entry;
 956           }
 957           else
 958 #endif
 959           if (examine_directory (menu, &state, LastDir, prefix) == -1) {
 960             /* try to restore the old values */
 961             m_strcpy(LastDir, sizeof(LastDir), OldLastDir);
 962             if (examine_directory (menu, &state, LastDir, prefix) == -1) {
 963               m_strcpy(LastDir, sizeof(LastDir), NONULL(Homedir));
 964               goto bail;
 965             }
 966           }
 967           menu->current = 0;
 968           menu->top = 0;
 969           init_menu (&state, menu, title, sizeof (title), buffy);
 970           break;
 971         }
 972       }
 973
 974 #ifdef USE_NNTP
 975       if (buffy || option (OPTNEWS))    /* news have not path */
 976 #else
 977       if (buffy)
 978 #endif
 979       {
 980         m_strcpy(f, flen, state.entry[menu->current].name);
 981         mutt_expand_path (f, flen);
 982       }
 983 #ifdef USE_IMAP
 984       else if (state.imap_browse)
 985         m_strcpy(f, flen, state.entry[menu->current].name);
 986 #endif
 987       else
 988         mutt_concat_path(f, flen, LastDir, state.entry[menu->current].name);
 989
 990       /* Fall through to OP_EXIT */
 991
 992     case OP_EXIT:
 993
 994       if (multiple) {
 995         char **tfiles;
 996         int i, j;
 997
 998         if (menu->tagged) {
 999           *numfiles = menu->tagged;
1000           tfiles = p_new(char *, *numfiles);
1001           for (i = 0, j = 0; i < state.entrylen; i++) {
1002             struct folder_file ff = state.entry[i];
1003             char full[_POSIX_PATH_MAX];
1004
1005             if (ff.tagged) {
1006               mutt_concat_path(full, sizeof(full), LastDir, ff.name);
1007               mutt_expand_path (full, sizeof (full));
1008               tfiles[j++] = m_strdup(full);
1009             }
1010           }
1011           *files = tfiles;
1012         }
1013         else if (f[0]) {        /* no tagged entries. return selected entry */
1014           *numfiles = 1;
1015           tfiles = p_new(char *, *numfiles);
1016           mutt_expand_path (f, flen);
1017           tfiles[0] = m_strdup(f);
1018           *files = tfiles;
1019         }
1020       }
1021
1022       destroy_state (&state);
1023       mutt_menuDestroy (&menu);
1024       goto bail;
1025
1026     case OP_BROWSER_TELL:
1027       if (state.entrylen)
1028         mutt_message ("%s", state.entry[menu->current].name);
1029       break;
1030
1031 #ifdef USE_IMAP
1032     case OP_BROWSER_TOGGLE_LSUB:
1033       if (option (OPTIMAPLSUB)) {
1034         unset_option (OPTIMAPLSUB);
1035       }
1036       else {
1037         set_option (OPTIMAPLSUB);
1038       }
1039       mutt_ungetch (0, OP_CHECK_NEW);
1040       break;
1041
1042     case OP_CREATE_MAILBOX:
1043       if (!state.imap_browse)
1044         mutt_error (_("Create is only supported for IMAP mailboxes"));
1045       else {
1046         imap_mailbox_create (LastDir);
1047         /* TODO: find a way to detect if the new folder would appear in
1048          *   this window, and insert it without starting over. */
1049         destroy_state (&state);
1050         init_state (&state, NULL);
1051         state.imap_browse = 1;
1052         imap_browse (LastDir, &state);
1053         browser_sort (&state);
1054         menu->data = state.entry;
1055         menu->current = 0;
1056         menu->top = 0;
1057         init_menu (&state, menu, title, sizeof (title), buffy);
1058         MAYBE_REDRAW (menu->redraw);
1059       }
1060       break;
1061
1062     case OP_RENAME_MAILBOX:
1063       if (!state.entry[menu->current].imap)
1064         mutt_error (_("Rename is only supported for IMAP mailboxes"));
1065       else {
1066         int nentry = menu->current;
1067
1068         if (imap_mailbox_rename (state.entry[nentry].name) >= 0) {
1069           destroy_state (&state);
1070           init_state (&state, NULL);
1071           state.imap_browse = 1;
1072           imap_browse (LastDir, &state);
1073           browser_sort (&state);
1074           menu->data = state.entry;
1075           menu->current = 0;
1076           menu->top = 0;
1077           init_menu (&state, menu, title, sizeof (title), buffy);
1078           MAYBE_REDRAW (menu->redraw);
1079         }
1080       }
1081       break;
1082
1083     case OP_DELETE_MAILBOX:
1084       if (!state.entry[menu->current].imap)
1085         mutt_error (_("Delete is only supported for IMAP mailboxes"));
1086       else {
1087         char msg[SHORT_STRING];
1088         IMAP_MBOX mx;
1089         int nentry = menu->current;
1090
1091         imap_parse_path (state.entry[nentry].name, &mx);
1092         snprintf (msg, sizeof (msg), _("Really delete mailbox \"%s\"?"),
1093                   mx.mbox);
1094         if (mutt_yesorno (msg, M_NO) == M_YES) {
1095           if (!imap_delete_mailbox (Context, mx)) {
1096             /* free the mailbox from the browser */
1097             p_delete(&((state.entry)[nentry].name));
1098             p_delete(&((state.entry)[nentry].desc));
1099             /* and move all other entries up */
1100             if (nentry + 1 < state.entrylen)
1101               memmove (state.entry + nentry, state.entry + nentry + 1,
1102                        sizeof (struct folder_file) * (state.entrylen -
1103                                                       (nentry + 1)));
1104             state.entrylen--;
1105             mutt_message _("Mailbox deleted.");
1106
1107             init_menu (&state, menu, title, sizeof (title), buffy);
1108             MAYBE_REDRAW (menu->redraw);
1109           }
1110         }
1111         else
1112           mutt_message _("Mailbox not deleted.");
1113         p_delete(&mx.mbox);
1114       }
1115       break;
1116 #endif
1117
1118     case OP_CHANGE_DIRECTORY:
1119
1120 #ifdef USE_NNTP
1121       if (option (OPTNEWS))
1122         break;
1123 #endif
1124
1125       m_strcpy(buf, sizeof(buf), LastDir);
1126 #ifdef USE_IMAP
1127       if (!state.imap_browse)
1128 #endif
1129       {
1130         /* add '/' at the end of the directory name if not already there */
1131         int len = m_strlen(LastDir);
1132
1133         if (len && LastDir[len - 1] != '/' && sizeof (buf) > len)
1134           buf[len] = '/';
1135       }
1136
1137       if (mutt_get_field (_("Chdir to: "), buf, sizeof (buf), M_FILE) == 0 &&
1138           buf[0]) {
1139         buffy = 0;
1140         mutt_expand_path (buf, sizeof (buf));
1141 #ifdef USE_IMAP
1142         if (imap_is_magic (buf, NULL) == M_IMAP) {
1143           m_strcpy(LastDir, sizeof(LastDir), buf);
1144           destroy_state (&state);
1145           init_state (&state, NULL);
1146           state.imap_browse = 1;
1147           imap_browse (LastDir, &state);
1148           browser_sort (&state);
1149           menu->data = state.entry;
1150           menu->current = 0;
1151           menu->top = 0;
1152           init_menu (&state, menu, title, sizeof (title), buffy);
1153         }
1154         else
1155 #endif
1156         if (stat (buf, &st) == 0) {
1157           if (S_ISDIR (st.st_mode)) {
1158             destroy_state (&state);
1159             if (examine_directory (menu, &state, buf, prefix) == 0)
1160               m_strcpy(LastDir, sizeof(LastDir), buf);
1161             else {
1162               mutt_error _("Error scanning directory.");
1163
1164               if (examine_directory (menu, &state, LastDir, prefix) == -1) {
1165                 mutt_menuDestroy (&menu);
1166                 goto bail;
1167               }
1168             }
1169             menu->current = 0;
1170             menu->top = 0;
1171             init_menu (&state, menu, title, sizeof (title), buffy);
1172           }
1173           else
1174             mutt_error (_("%s is not a directory."), buf);
1175         }
1176         else
1177           mutt_perror (buf);
1178       }
1179       MAYBE_REDRAW (menu->redraw);
1180       break;
1181
1182     case OP_ENTER_MASK:
1183
1184       m_strcpy(buf, sizeof(buf), NONULL(Mask.pattern));
1185       if (mutt_get_field (_("File Mask: "), buf, sizeof (buf), 0) == 0) {
1186         regex_t *rx = p_new(regex_t, 1);
1187         char *s = buf;
1188         int not = 0, err;
1189
1190         buffy = 0;
1191         /* assume that the user wants to see everything */
1192         if (!buf[0])
1193           m_strcpy(buf, sizeof(buf), ".");
1194         s = vskipspaces(s);
1195         if (*s == '!') {
1196           s = vskipspaces(s + 1);
1197           not = 1;
1198         }
1199
1200         if ((err = REGCOMP (rx, s, REG_NOSUB)) != 0) {
1201           regerror (err, rx, buf, sizeof (buf));
1202           regfree (rx);
1203           p_delete(&rx);
1204           mutt_error ("%s", buf);
1205         }
1206         else {
1207           str_replace (&Mask.pattern, buf);
1208           regfree (Mask.rx);
1209           p_delete(&Mask.rx);
1210           Mask.rx = rx;
1211           Mask.not = not;
1212
1213           destroy_state (&state);
1214 #ifdef USE_IMAP
1215           if (state.imap_browse) {
1216             init_state (&state, NULL);
1217             state.imap_browse = 1;
1218             imap_browse (LastDir, &state);
1219             browser_sort (&state);
1220             menu->data = state.entry;
1221             init_menu (&state, menu, title, sizeof (title), buffy);
1222           }
1223           else
1224 #endif
1225           if (examine_directory (menu, &state, LastDir, NULL) == 0)
1226             init_menu (&state, menu, title, sizeof (title), buffy);
1227           else {
1228             mutt_error _("Error scanning directory.");
1229
1230             mutt_menuDestroy (&menu);
1231             goto bail;
1232           }
1233           killPrefix = 0;
1234           if (!state.entrylen) {
1235             mutt_error _("No files match the file mask");
1236
1237             break;
1238           }
1239         }
1240       }
1241       MAYBE_REDRAW (menu->redraw);
1242       break;
1243
1244     case OP_SORT:
1245     case OP_SORT_REVERSE:
1246
1247       {
1248         int resort = 1;
1249         int reverse = (i == OP_SORT_REVERSE);
1250
1251         switch (mutt_multi_choice ((reverse) ?
1252                                    _
1253                                    ("Reverse sort by (d)ate, (a)lpha, si(z)e or do(n)'t sort? ")
1254                                    :
1255                                    _
1256                                    ("Sort by (d)ate, (a)lpha, si(z)e or do(n)'t sort? "),
1257                                    _("dazn"))) {
1258         case -1:               /* abort */
1259           resort = 0;
1260           break;
1261
1262         case 1:                /* (d)ate */
1263           BrowserSort = SORT_DATE;
1264           break;
1265
1266         case 2:                /* (a)lpha */
1267           BrowserSort = SORT_SUBJECT;
1268           break;
1269
1270         case 3:                /* si(z)e */
1271           BrowserSort = SORT_SIZE;
1272           break;
1273
1274         case 4:                /* do(n)'t sort */
1275           BrowserSort = SORT_ORDER;
1276           resort = 0;
1277           break;
1278         }
1279         if (resort) {
1280           BrowserSort |= reverse ? SORT_REVERSE : 0;
1281           browser_sort (&state);
1282           menu->redraw = REDRAW_FULL;
1283         }
1284         break;
1285       }
1286
1287     case OP_TOGGLE_MAILBOXES:
1288       buffy = 1 - buffy;
1289
1290     case OP_CHECK_NEW:
1291       destroy_state (&state);
1292       prefix[0] = 0;
1293       killPrefix = 0;
1294
1295       if (buffy) {
1296         if (examine_mailboxes (menu, &state) == -1)
1297           goto bail;
1298       }
1299 #ifdef USE_IMAP
1300       else if (imap_is_magic (LastDir, NULL) == M_IMAP) {
1301         init_state (&state, NULL);
1302         state.imap_browse = 1;
1303         imap_browse (LastDir, &state);
1304         browser_sort (&state);
1305         menu->data = state.entry;
1306       }
1307 #endif
1308       else if (examine_directory (menu, &state, LastDir, prefix) == -1)
1309         goto bail;
1310       init_menu (&state, menu, title, sizeof (title), buffy);
1311       break;
1312
1313     case OP_BUFFY_LIST:
1314       if (option (OPTFORCEBUFFYCHECK))
1315         buffy_check (1);
1316       buffy_list ();
1317       break;
1318
1319     case OP_BROWSER_NEW_FILE:
1320
1321       snprintf (buf, sizeof (buf), "%s/", LastDir);
1322       if (mutt_get_field (_("New file name: "), buf, sizeof (buf), M_FILE) ==
1323           0) {
1324         m_strcpy(f, flen, buf);
1325         destroy_state (&state);
1326         mutt_menuDestroy (&menu);
1327         goto bail;
1328       }
1329       MAYBE_REDRAW (menu->redraw);
1330       break;
1331
1332     case OP_BROWSER_VIEW_FILE:
1333       if (!state.entrylen) {
1334         mutt_error _("No files match the file mask");
1335
1336         break;
1337       }
1338
1339 #ifdef USE_IMAP
1340       if (state.entry[menu->current].selectable) {
1341         m_strcpy(f, flen, state.entry[menu->current].name);
1342         destroy_state (&state);
1343         mutt_menuDestroy (&menu);
1344         goto bail;
1345       }
1346       else
1347 #endif
1348       if (S_ISDIR (state.entry[menu->current].mode) ||
1349             (S_ISLNK (state.entry[menu->current].mode) &&
1350                link_is_dir (LastDir, state.entry[menu->current].name))) {
1351         mutt_error _("Can't view a directory");
1352
1353         break;
1354       }
1355       else {
1356         BODY *b;
1357         char buf[_POSIX_PATH_MAX];
1358
1359         mutt_concat_path(buf, sizeof(buf), LastDir,
1360                          state.entry[menu->current].name);
1361         b = mutt_make_file_attach (buf);
1362         if (b != NULL) {
1363           mutt_view_attachment (NULL, b, M_REGULAR, NULL, NULL, 0);
1364           mutt_free_body (&b);
1365           menu->redraw = REDRAW_FULL;
1366         }
1367         else
1368           mutt_error _("Error trying to view file");
1369       }
1370       break;
1371
1372 #ifdef USE_NNTP
1373     case OP_CATCHUP:
1374     case OP_UNCATCHUP:
1375       if (option (OPTNEWS)) {
1376         struct folder_file *f = &state.entry[menu->current];
1377         NNTP_DATA *nd;
1378
1379         if (i == OP_CATCHUP)
1380           nd = mutt_newsgroup_catchup (CurrentNewsSrv, f->name);
1381         else
1382           nd = mutt_newsgroup_uncatchup (CurrentNewsSrv, f->name);
1383
1384         if (nd) {
1385 /*          FOLDER folder;
1386             struct folder_file ff;
1387             char buffer[_POSIX_PATH_MAX + SHORT_STRING];
1388
1389             folder.ff = &ff;
1390             folder.ff->name = f->name;
1391             folder.ff->st = NULL;
1392             folder.ff->is_new = nd->new;
1393             folder.ff->nd = nd;
1394             p_delete(&f->desc);
1395             mutt_FormatString (buffer, sizeof (buffer), NONULL(GroupFormat),
1396                   newsgroup_format_str, (unsigned long) &folder,
1397                   M_FORMAT_ARROWCURSOR);
1398             f->desc = m_strdup(buffer); */
1399           if (menu->current + 1 < menu->max)
1400             menu->current++;
1401           menu->redraw = REDRAW_MOTION_RESYNCH;
1402         }
1403       }
1404       break;
1405
1406     case OP_LOAD_ACTIVE:
1407       if (!option (OPTNEWS))
1408         break;
1409
1410       {
1411         LIST *tmp;
1412         NNTP_DATA *data;
1413
1414         for (tmp = CurrentNewsSrv->list; tmp; tmp = tmp->next) {
1415           if ((data = (NNTP_DATA *) tmp->data))
1416             data->deleted = 1;
1417         }
1418       }
1419       nntp_get_active (CurrentNewsSrv);
1420
1421       destroy_state (&state);
1422       if (buffy)
1423         examine_mailboxes (menu, &state);
1424       else
1425         examine_directory (menu, &state, NULL, NULL);
1426       init_menu (&state, menu, title, sizeof (title), buffy);
1427       break;
1428 #endif /* USE_NNTP */
1429
1430 #if defined USE_IMAP || defined USE_NNTP
1431     case OP_BROWSER_SUBSCRIBE:
1432     case OP_BROWSER_UNSUBSCRIBE:
1433 #endif
1434 #ifdef USE_NNTP
1435     case OP_SUBSCRIBE_PATTERN:
1436     case OP_UNSUBSCRIBE_PATTERN:
1437       if (option (OPTNEWS)) {
1438         regex_t *rx = p_new(regex_t, 1);
1439         char *s = buf;
1440         int j = menu->current;
1441         NNTP_DATA *nd;
1442         NNTP_SERVER *news = CurrentNewsSrv;
1443
1444         if (i == OP_SUBSCRIBE_PATTERN || i == OP_UNSUBSCRIBE_PATTERN) {
1445           char tmp[STRING];
1446           int err;
1447
1448           buf[0] = 0;
1449           if (i == OP_SUBSCRIBE_PATTERN)
1450             snprintf (tmp, sizeof (tmp), _("Subscribe pattern: "));
1451           else
1452             snprintf (tmp, sizeof (tmp), _("Unsubscribe pattern: "));
1453           if (mutt_get_field (tmp, buf, sizeof (buf), 0) != 0 || !buf[0]) {
1454             p_delete(&rx);
1455             break;
1456           }
1457
1458           if ((err = REGCOMP (rx, s, REG_NOSUB)) != 0) {
1459             regerror (err, rx, buf, sizeof (buf));
1460             regfree (rx);
1461             p_delete(&rx);
1462             mutt_error ("%s", buf);
1463             break;
1464           }
1465           menu->redraw = REDRAW_FULL;
1466           j = 0;
1467         }
1468         else if (!state.entrylen) {
1469           mutt_error _("No newsgroups match the mask");
1470
1471           break;
1472         }
1473
1474         for (; j < state.entrylen; j++) {
1475           struct folder_file *f = &state.entry[j];
1476
1477           if (i == OP_BROWSER_SUBSCRIBE || i == OP_BROWSER_UNSUBSCRIBE ||
1478               regexec (rx, f->name, 0, NULL, 0) == 0) {
1479             if (i == OP_BROWSER_SUBSCRIBE || i == OP_SUBSCRIBE_PATTERN)
1480               nd = mutt_newsgroup_subscribe (news, f->name);
1481             else
1482               nd = mutt_newsgroup_unsubscribe (news, f->name);
1483 /*            if (nd)
1484               {
1485                 FOLDER folder;
1486                 char buffer[_POSIX_PATH_MAX + SHORT_STRING];
1487
1488                 folder.name = f->name;
1489                 folder.f = NULL;
1490                 folder.new = nd->new;
1491                 folder.nd = nd;
1492                 p_delete(&f->desc);
1493                 mutt_FormatString (buffer, sizeof (buffer), NONULL(GroupFormat),
1494                         newsgroup_format_str, (unsigned long) &folder,
1495                         M_FORMAT_ARROWCURSOR);
1496                 f->desc = m_strdup(buffer);
1497               } */
1498           }
1499           if (i == OP_BROWSER_SUBSCRIBE || i == OP_BROWSER_UNSUBSCRIBE) {
1500             if (menu->current + 1 < menu->max)
1501               menu->current++;
1502             menu->redraw = REDRAW_MOTION_RESYNCH;
1503             break;
1504           }
1505         }
1506         if (i == OP_SUBSCRIBE_PATTERN) {
1507           LIST *grouplist = NULL;
1508
1509           if (news)
1510             grouplist = news->list;
1511           for (; grouplist; grouplist = grouplist->next) {
1512             nd = (NNTP_DATA *) grouplist->data;
1513             if (nd && nd->group && !nd->subscribed) {
1514               if (regexec (rx, nd->group, 0, NULL, 0) == 0) {
1515                 mutt_newsgroup_subscribe (news, nd->group);
1516                 add_folder (menu, &state, nd->group, NULL, nd, nd->new);
1517               }
1518             }
1519           }
1520           init_menu (&state, menu, title, sizeof (title), buffy);
1521         }
1522         mutt_newsrc_update (news);
1523         nntp_clear_cacheindex (news);
1524         if (i != OP_BROWSER_SUBSCRIBE && i != OP_BROWSER_UNSUBSCRIBE)
1525           regfree (rx);
1526         p_delete(&rx);
1527       }
1528 #ifdef USE_IMAP
1529       else
1530 #endif /* USE_IMAP && USE_NNTP */
1531 #endif /* USE_NNTP */
1532 #ifdef USE_IMAP
1533       {
1534         if (i == OP_BROWSER_SUBSCRIBE)
1535           imap_subscribe (state.entry[menu->current].name, 1);
1536         else
1537           imap_subscribe (state.entry[menu->current].name, 0);
1538       }
1539 #endif /* USE_IMAP */
1540     }
1541   }
1542
1543 bail:
1544
1545   if (!folder)
1546     m_strcpy(LastDir, sizeof(LastDir), LastDirBackup);
1547
1548 }