alpine/setup.c

   1 #if !defined(lint) && !defined(DOS)
   2 static char rcsid[] = "$Id: setup.c 918 2008-01-23 19:39:38Z hubert@u.washington.edu $";
   3 #endif
   4
   5 /*
   6  * ========================================================================
   7  * Copyright 2006-2008 University of Washington
   8  * Copyright 2013-2017 Eduardo Chappa
   9  *
  10  * Licensed under the Apache License, Version 2.0 (the "License");
  11  * you may not use this file except in compliance with the License.
  12  * You may obtain a copy of the License at
  13  *
  14  *     http://www.apache.org/licenses/LICENSE-2.0
  15  *
  16  * ========================================================================
  17  */
  18
  19 #include "headers.h"
  20 #include "setup.h"
  21 #include "keymenu.h"
  22 #include "status.h"
  23 #include "confscroll.h"
  24 #include "colorconf.h"
  25 #include "reply.h"
  26 #include "radio.h"
  27 #include "listsel.h"
  28 #include "folder.h"
  29 #include "mailcmd.h"
  30 #include "../pith/state.h"
  31 #include "../pith/conf.h"
  32 #include "../pith/util.h"
  33 #include "../pith/sort.h"
  34 #include "../pith/folder.h"
  35 #include "../pith/list.h"
  36 #include "../pith/icache.h"
  37
  38
  39 /*
  40  * Internal prototypes
  41  */
  42 int      inbox_path_text_tool(struct pine *, int, CONF_S **, unsigned);
  43 int      incoming_monitoring_list_tool(struct pine *, int, CONF_S **, unsigned);
  44 int      stayopen_list_tool(struct pine *, int, CONF_S **, unsigned);
  45 char   **adjust_list_of_monitored_incoming(CONTEXT_S *, EditWhich, int);
  46 int      to_charsets_text_tool(struct pine *, int, CONF_S **, unsigned);
  47
  48
  49 #define CONFIG_SCREEN_TITLE             _("SETUP CONFIGURATION")
  50 #define CONFIG_SCREEN_TITLE_EXC         _("SETUP CONFIGURATION EXCEPTIONS")
  51
  52
  53
  54 /*----------------------------------------------------------------------
  55     Present pinerc data for manipulation
  56
  57     Args: None
  58
  59   Result: help edit certain pinerc fields.
  60   ---*/
  61 void
  62 option_screen(struct pine *ps, int edit_exceptions)
  63 {
  64     char            tmp[MAXPATH+1], *pval, **lval;
  65     int             i, j, ln = 0, readonly_warning = 0, pos;
  66     struct          variable  *vtmp;
  67     CONF_S         *ctmpa = NULL, *ctmpb, *first_line = NULL;
  68     FEATURE_S      *feature;
  69     PINERC_S       *prc = NULL;
  70     SAVED_CONFIG_S *vsave;
  71     OPT_SCREEN_S    screen;
  72     int             expose_hidden_config, add_hidden_vars_title = 0;
  73
  74     dprint((3, "-- option_screen --\n"));
  75
  76     expose_hidden_config = F_ON(F_EXPOSE_HIDDEN_CONFIG, ps_global);
  77     treat_color_vars_as_text = expose_hidden_config;
  78
  79     ew = edit_exceptions ? ps_global->ew_for_except_vars : Main;
  80
  81     if(ps->restricted)
  82       readonly_warning = 1;
  83     else{
  84         switch(ew){
  85           case Main:
  86             prc = ps->prc;
  87             break;
  88           case Post:
  89             prc = ps->post_prc;
  90             break;
  91           default:
  92             break;
  93         }
  94
  95         readonly_warning = prc ? prc->readonly : 1;
  96         if(prc && prc->quit_to_edit){
  97             quit_to_edit_msg(prc);
  98             treat_color_vars_as_text = 0;
  99             return;
 100         }
 101     }
 102
 103     ps->next_screen = SCREEN_FUN_NULL;
 104
 105     mailcap_free(); /* free resources we won't be using for a while */
 106
 107     if(ps->fix_fixed_warning)
 108       offer_to_fix_pinerc(ps);
 109
 110     pos = -1;
 111     do {        /* Beginning of BIG LOOP */
 112        ctmpa = first_line = NULL;
 113
 114     /*
 115      * First, find longest variable name
 116      */
 117     for(vtmp = ps->vars; vtmp->name; vtmp++){
 118         if(exclude_config_var(ps, vtmp, expose_hidden_config))
 119           continue;
 120
 121         if((i = utf8_width(pretty_var_name(vtmp->name))) > ln)
 122           ln = i;
 123     }
 124
 125     dprint((9, "initialize config list\n"));
 126
 127     /*
 128      * Next, allocate and initialize config line list...
 129      */
 130     for(vtmp = ps->vars; vtmp->name; vtmp++){
 131         /*
 132          * INCOMING_FOLDERS is currently the first of the normally
 133          * hidden variables. Should probably invent a more robust way
 134          * to keep this up to date.
 135          */
 136         if(expose_hidden_config && vtmp == &ps->vars[V_INCOMING_FOLDERS])
 137           add_hidden_vars_title = 1;
 138
 139         if(exclude_config_var(ps, vtmp, expose_hidden_config))
 140           continue;
 141
 142         if(add_hidden_vars_title){
 143
 144             add_hidden_vars_title = 0;
 145
 146             new_confline(&ctmpa);               /* Blank line */
 147             ctmpa->flags               |= CF_NOSELECT | CF_B_LINE;
 148
 149             new_confline(&ctmpa)->var   = NULL;
 150             ctmpa->help                 = NO_HELP;
 151             ctmpa->valoffset            = 2;
 152             ctmpa->flags               |= CF_NOSELECT;
 153             ctmpa->value = cpystr("--- [ Normally hidden configuration options ] ---");
 154
 155             new_confline(&ctmpa);               /* Blank line */
 156             ctmpa->flags               |= CF_NOSELECT | CF_B_LINE;
 157         }
 158
 159         if(vtmp->is_list)
 160           lval  = LVAL(vtmp, ew);
 161         else
 162           pval  = PVAL(vtmp, ew);
 163
 164         new_confline(&ctmpa)->var = vtmp;
 165         if(!first_line)
 166           first_line = ctmpa;
 167
 168         ctmpa->valoffset = ln + 3;
 169         if(vtmp->is_list)
 170           ctmpa->keymenu         = &config_text_wshuf_keymenu;
 171         else
 172           ctmpa->keymenu         = &config_text_keymenu;
 173
 174         ctmpa->help      = config_help(vtmp - ps->vars, 0);
 175         ctmpa->tool      = text_tool;
 176
 177         utf8_snprintf(tmp, sizeof(tmp), "%-*.100w =", ln, pretty_var_name(vtmp->name));
 178         tmp[sizeof(tmp)-1] = '\0';
 179         ctmpa->varname  = cpystr(tmp);
 180         ctmpa->varnamep = ctmpb = ctmpa;
 181         ctmpa->flags   |= CF_STARTITEM;
 182         if(vtmp == &ps->vars[V_FEATURE_LIST]){  /* special checkbox case */
 183             char *this_sect, *new_sect;
 184
 185             ctmpa->flags                 |= CF_NOSELECT;
 186             ctmpa->keymenu                = &config_checkbox_keymenu;
 187             ctmpa->tool                   = NULL;
 188
 189             /* put a nice delimiter before list */
 190             new_confline(&ctmpa)->var = NULL;
 191             ctmpa->varnamep               = ctmpb;
 192             ctmpa->keymenu                = &config_checkbox_keymenu;
 193             ctmpa->help                   = NO_HELP;
 194             ctmpa->tool                   = checkbox_tool;
 195             ctmpa->valoffset              = feature_indent();
 196             ctmpa->flags                 |= CF_NOSELECT;
 197             ctmpa->value = cpystr("Set    Feature Name");
 198
 199             new_confline(&ctmpa)->var = NULL;
 200             ctmpa->varnamep               = ctmpb;
 201             ctmpa->keymenu                = &config_checkbox_keymenu;
 202             ctmpa->help                   = NO_HELP;
 203             ctmpa->tool                   = checkbox_tool;
 204             ctmpa->valoffset              = feature_indent();
 205             ctmpa->flags                 |= CF_NOSELECT;
 206             ctmpa->value = cpystr("---  ----------------------");
 207
 208             for(i = 0, this_sect = NULL; (feature = feature_list(i)); i++)
 209               if((new_sect = feature_list_section(feature)) &&
 210                  (strcmp(new_sect, HIDDEN_PREF) != 0)){
 211                   if(this_sect != new_sect){
 212                       new_confline(&ctmpa)->var = NULL;
 213                       ctmpa->varnamep           = ctmpb;
 214                       ctmpa->keymenu            = &config_checkbox_keymenu;
 215                       ctmpa->help               = NO_HELP;
 216                       ctmpa->tool               = checkbox_tool;
 217                       ctmpa->valoffset          = 2;
 218                       ctmpa->flags             |= (CF_NOSELECT | CF_STARTITEM);
 219                       snprintf(tmp, sizeof(tmp), "[ %s ]", this_sect = new_sect);
 220                       tmp[sizeof(tmp)-1] = '\0';
 221                       ctmpa->value = cpystr(tmp);
 222                   }
 223
 224                   new_confline(&ctmpa)->var = vtmp;
 225                   ctmpa->varnamep           = ctmpb;
 226                   ctmpa->keymenu            = &config_checkbox_keymenu;
 227                   ctmpa->help               = config_help(vtmp-ps->vars,
 228                                                           feature->id);
 229                   ctmpa->tool               = checkbox_tool;
 230                   ctmpa->valoffset          = feature_indent();
 231                   ctmpa->varmem             = i;
 232                   ctmpa->value              = pretty_value(ps, ctmpa);
 233               }
 234         }
 235         else if(standard_radio_var(ps, vtmp)){
 236             standard_radio_setup(ps, &ctmpa, vtmp, NULL);
 237         }
 238         else if(vtmp == &ps->vars[V_SORT_KEY]){ /* radio case */
 239             SortOrder def_sort;
 240             int       def_sort_rev;
 241
 242             ctmpa->flags       |= CF_NOSELECT;
 243             ctmpa->keymenu      = &config_radiobutton_keymenu;
 244             ctmpa->tool         = NULL;
 245
 246             /* put a nice delimiter before list */
 247             new_confline(&ctmpa)->var = NULL;
 248             ctmpa->varnamep               = ctmpb;
 249             ctmpa->keymenu                = &config_radiobutton_keymenu;
 250             ctmpa->help                   = NO_HELP;
 251             ctmpa->tool                   = radiobutton_tool;
 252             ctmpa->valoffset              = 12;
 253             ctmpa->flags                 |= CF_NOSELECT;
 254             ctmpa->value = cpystr("Set    Sort Options");
 255
 256             new_confline(&ctmpa)->var = NULL;
 257             ctmpa->varnamep           = ctmpb;
 258             ctmpa->keymenu            = &config_radiobutton_keymenu;
 259             ctmpa->help               = NO_HELP;
 260             ctmpa->tool               = radiobutton_tool;
 261             ctmpa->valoffset          = 12;
 262             ctmpa->flags             |= CF_NOSELECT;
 263             ctmpa->value = cpystr("---  ----------------------");
 264
 265             decode_sort(pval, &def_sort, &def_sort_rev);
 266
 267             for(j = 0; j < 2; j++){
 268                 for(i = 0; ps->sort_types[i] != EndofList; i++){
 269                     new_confline(&ctmpa)->var = vtmp;
 270                     ctmpa->varnamep           = ctmpb;
 271                     ctmpa->keymenu            = &config_radiobutton_keymenu;
 272                     ctmpa->help               = config_help(vtmp - ps->vars, 0);
 273                     ctmpa->tool               = radiobutton_tool;
 274                     ctmpa->valoffset          = 12;
 275                     ctmpa->varmem             = i + (j * EndofList);
 276                     ctmpa->value              = pretty_value(ps, ctmpa);
 277                 }
 278             }
 279         }
 280         else if(vtmp == &ps->vars[V_USE_ONLY_DOMAIN_NAME]){ /* yesno case */
 281             ctmpa->keymenu = &config_yesno_keymenu;
 282             ctmpa->tool    = yesno_tool;
 283             ctmpa->value   = pretty_value(ps, ctmpa);
 284         }
 285         else if(vtmp == &ps->vars[V_LITERAL_SIG]){
 286             ctmpa->tool    = litsig_text_tool;
 287             ctmpa->value   = pretty_value(ps, ctmpa);
 288         }
 289         else if(vtmp == &ps->vars[V_INBOX_PATH]){
 290             ctmpa->tool    = inbox_path_text_tool;
 291             ctmpa->value   = pretty_value(ps, ctmpa);
 292         }
 293         else if(vtmp == &ps->vars[V_POST_CHAR_SET]
 294 #ifndef _WINDOWS
 295                 || vtmp == &ps->vars[V_CHAR_SET]
 296                 || vtmp == &ps->vars[V_KEY_CHAR_SET]
 297 #endif /* !_WINDOWS */
 298                 || vtmp == &ps->vars[V_UNK_CHAR_SET]){
 299             ctmpa->keymenu = &config_text_to_charsets_keymenu;
 300             ctmpa->tool    = to_charsets_text_tool;
 301             ctmpa->value   = pretty_value(ps, ctmpa);
 302         }
 303         else if(vtmp->is_list){
 304             int (*t_tool)(struct pine *, int, CONF_S **, unsigned);
 305             struct key_menu *km;
 306
 307             t_tool = NULL;
 308             km = NULL;
 309             if(vtmp == &ps->vars[V_INCCHECKLIST]){
 310                 t_tool = incoming_monitoring_list_tool;
 311                 km     = &config_text_keymenu;
 312             }
 313             else if(vtmp == &ps->vars[V_PERMLOCKED]){
 314                 t_tool = stayopen_list_tool;
 315                 km     = &config_text_wshufandfldr_keymenu;
 316             }
 317
 318             if(lval){
 319                 for(i = 0; lval[i]; i++){
 320                     if(i)
 321                       (void)new_confline(&ctmpa);
 322
 323                     ctmpa->var       = vtmp;
 324                     ctmpa->varmem    = i;
 325                     ctmpa->valoffset = ln + 3;
 326                     ctmpa->value     = pretty_value(ps, ctmpa);
 327                     ctmpa->keymenu   = km ? km : &config_text_wshuf_keymenu;
 328                     ctmpa->help      = config_help(vtmp - ps->vars, 0);
 329                     ctmpa->tool      = t_tool ? t_tool : text_tool;
 330                     ctmpa->varnamep  = ctmpb;
 331                 }
 332             }
 333             else{
 334                 ctmpa->varmem = 0;
 335                 ctmpa->value  = pretty_value(ps, ctmpa);
 336                 ctmpa->tool   = t_tool ? t_tool : text_tool;
 337                 ctmpa->keymenu = km ? km : &config_text_wshuf_keymenu;
 338             }
 339         }
 340         else{
 341             if(vtmp == &ps->vars[V_FILLCOL]
 342                || vtmp == &ps->vars[V_SLEEP]
 343                || vtmp == &ps->vars[V_QUOTE_SUPPRESSION]
 344                || vtmp == &ps->vars[V_OVERLAP]
 345                || vtmp == &ps->vars[V_MAXREMSTREAM]
 346                || vtmp == &ps->vars[V_MARGIN]
 347                || vtmp == &ps->vars[V_DEADLETS]
 348                || vtmp == &ps->vars[V_NMW_WIDTH]
 349                || vtmp == &ps->vars[V_STATUS_MSG_DELAY]
 350                || vtmp == &ps->vars[V_ACTIVE_MSG_INTERVAL]
 351                || vtmp == &ps->vars[V_MAILCHECK]
 352                || vtmp == &ps->vars[V_MAILCHECKNONCURR]
 353                || vtmp == &ps->vars[V_MAILDROPCHECK]
 354                || vtmp == &ps->vars[V_NNTPRANGE]
 355                || vtmp == &ps->vars[V_TCPOPENTIMEO]
 356                || vtmp == &ps->vars[V_TCPREADWARNTIMEO]
 357                || vtmp == &ps->vars[V_TCPWRITEWARNTIMEO]
 358                || vtmp == &ps->vars[V_TCPQUERYTIMEO]
 359                || vtmp == &ps->vars[V_RSHOPENTIMEO]
 360                || vtmp == &ps->vars[V_SSHOPENTIMEO]
 361                || vtmp == &ps->vars[V_INCCHECKTIMEO]
 362                || vtmp == &ps->vars[V_INCCHECKINTERVAL]
 363                || vtmp == &ps->vars[V_INC2NDCHECKINTERVAL]
 364                || vtmp == &ps->vars[V_USERINPUTTIMEO]
 365                || vtmp == &ps->vars[V_REMOTE_ABOOK_VALIDITY]
 366                || vtmp == &ps->vars[V_REMOTE_ABOOK_HISTORY])
 367               ctmpa->flags |= CF_NUMBER;
 368
 369             ctmpa->value = pretty_value(ps, ctmpa);
 370         }
 371     }
 372
 373     dprint((9, "add hidden features\n"));
 374
 375     /* add the hidden features */
 376     if(expose_hidden_config){
 377         char *new_sect;
 378
 379         new_confline(&ctmpa);           /* Blank line */
 380         ctmpa->flags           |= CF_NOSELECT | CF_B_LINE;
 381
 382         new_confline(&ctmpa)->var       = NULL;
 383         ctmpa->help                     = NO_HELP;
 384         ctmpa->valoffset                = 2;
 385         ctmpa->flags           |= CF_NOSELECT;
 386         ctmpa->value = cpystr("--- [ Normally hidden configuration features ] ---");
 387
 388         new_confline(&ctmpa);           /* Blank line */
 389         ctmpa->flags           |= CF_NOSELECT | CF_B_LINE;
 390
 391         vtmp = &ps->vars[V_FEATURE_LIST];
 392
 393         ctmpa->flags             |= CF_NOSELECT;
 394         ctmpa->keymenu            = &config_checkbox_keymenu;
 395         ctmpa->tool                       = NULL;
 396
 397         /* put a nice delimiter before list */
 398         new_confline(&ctmpa)->var = NULL;
 399         ctmpa->varnamep           = ctmpb;
 400         ctmpa->keymenu            = &config_checkbox_keymenu;
 401         ctmpa->help                       = NO_HELP;
 402         ctmpa->tool                       = checkbox_tool;
 403         ctmpa->valoffset                  = feature_indent();
 404         ctmpa->flags             |= CF_NOSELECT;
 405         ctmpa->value = cpystr("Set    Feature Name");
 406
 407         new_confline(&ctmpa)->var = NULL;
 408         ctmpa->varnamep           = ctmpb;
 409         ctmpa->keymenu            = &config_checkbox_keymenu;
 410         ctmpa->help                       = NO_HELP;
 411         ctmpa->tool                       = checkbox_tool;
 412         ctmpa->valoffset                  = feature_indent();
 413         ctmpa->flags             |= CF_NOSELECT;
 414         ctmpa->value = cpystr("---  ----------------------");
 415
 416         for(i = 0; (feature = feature_list(i)); i++)
 417           if((new_sect = feature_list_section(feature)) &&
 418              (strcmp(new_sect, HIDDEN_PREF) == 0)){
 419
 420               new_confline(&ctmpa)->var = vtmp;
 421               ctmpa->varnamep           = ctmpb;
 422               ctmpa->keymenu            = &config_checkbox_keymenu;
 423               ctmpa->help               = config_help(vtmp-ps->vars,
 424                                                       feature->id);
 425               ctmpa->tool               = checkbox_tool;
 426               ctmpa->valoffset          = feature_indent();
 427               ctmpa->varmem             = i;
 428               ctmpa->value              = pretty_value(ps, ctmpa);
 429           }
 430     }
 431
 432     vsave = save_config_vars(ps, expose_hidden_config);
 433     first_line = pos < 0 ? first_sel_confline(first_line) : set_confline_number(first_line, pos);
 434     pos = -1;
 435     memset(&screen, 0, sizeof(screen));
 436     screen.ro_warning = readonly_warning;
 437     /* TRANSLATORS: Print something1 using something2.
 438        "configuration" is something1 */
 439        switch(conf_scroll_screen(ps, &screen, first_line,
 440                               edit_exceptions ? CONFIG_SCREEN_TITLE_EXC
 441                                               : CONFIG_SCREEN_TITLE,
 442                               _("configuration"), 0, &pos)){
 443          case 0:
 444            break;
 445
 446          case 1:
 447            write_pinerc(ps, ew, WRP_NONE);
 448            break;
 449
 450          case 10:
 451            revert_to_saved_config(ps, vsave, expose_hidden_config);
 452            if(prc)
 453              prc->outstanding_pinerc_changes = 0;
 454
 455            break;
 456
 457          default:
 458            q_status_message(SM_ORDER,7,10,
 459             "conf_scroll_screen bad ret, not supposed to happen");
 460            break;
 461        }
 462     } while (pos >= 0);
 463
 464     pval = PVAL(&ps->vars[V_SORT_KEY], ew);
 465     if(vsave[V_SORT_KEY].saved_user_val.p && pval
 466        && strcmp(vsave[V_SORT_KEY].saved_user_val.p, pval)){
 467         if(!mn_get_mansort(ps_global->msgmap)){
 468             clear_index_cache(ps_global->mail_stream, 0);
 469             reset_sort_order(SRT_VRB);
 470         }
 471     }
 472
 473     treat_color_vars_as_text = 0;
 474     free_saved_config(ps, &vsave, expose_hidden_config);
 475 #ifdef _WINDOWS
 476     mswin_set_quit_confirm (F_OFF(F_QUIT_WO_CONFIRM, ps_global));
 477 #endif
 478 }
 479
 480
 481 int
 482 litsig_text_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
 483 {
 484     char           **apval;
 485     int              rv = 0;
 486
 487     if(cmd != MC_EXIT && fixed_var((*cl)->var, NULL, NULL))
 488       return(rv);
 489
 490     apval = APVAL((*cl)->var, ew);
 491
 492     switch(cmd){
 493       case MC_ADD:
 494       case MC_EDIT :
 495         if(apval){
 496             char *input = NULL, *result = NULL, *err = NULL, *cstring_version;
 497             char *olddefval = NULL, *start_with;
 498             size_t len;
 499
 500             if(!*apval && (*cl)->var->current_val.p &&
 501                (*cl)->var->current_val.p[0]){
 502                 if(!strncmp((*cl)->var->current_val.p,
 503                             DSTRING,
 504                             (len=strlen(DSTRING)))){
 505                     /* strip DSTRING and trailing paren */
 506                     olddefval = (char *)fs_get(strlen((*cl)->var->current_val.p)+1);
 507                     strncpy(olddefval, (*cl)->var->current_val.p+len,
 508                             strlen((*cl)->var->current_val.p)-len-1);
 509                     olddefval[strlen((*cl)->var->current_val.p)-len-1] = '\0';
 510                     start_with = olddefval;
 511                 }
 512                 else{
 513                     olddefval = cpystr((*cl)->var->current_val.p);
 514                     start_with = olddefval;
 515                 }
 516             }
 517             else
 518               start_with = (*apval) ? *apval : "";
 519
 520             input = (char *)fs_get((strlen(start_with)+1) * sizeof(char));
 521             input[0] = '\0';
 522             cstring_to_string(start_with, input);
 523             err = signature_edit_lit(input, &result,
 524                                      ((*cl)->var == role_comment_ptr)
 525                                          ? "COMMENT EDITOR"
 526                                          : "SIGNATURE EDITOR",
 527                                      ((*cl)->var == role_comment_ptr)
 528                                          ? h_composer_commentedit
 529                                          : h_composer_sigedit);
 530
 531             if(!err){
 532                 if(olddefval && !strcmp(input, result) &&
 533                    want_to(_("Leave unset and use default "), 'y',
 534                            'y', NO_HELP, WT_FLUSH_IN) == 'y'){
 535                     rv = 0;
 536                 }
 537                 else{
 538                     cstring_version = string_to_cstring(result);
 539
 540                     if(apval && *apval)
 541                       fs_give((void **)apval);
 542
 543                     if(apval){
 544                         *apval = cstring_version;
 545                         cstring_version = NULL;
 546                     }
 547
 548                     if(cstring_version)
 549                       fs_give((void **)&cstring_version);
 550
 551                     rv = 1;
 552                 }
 553             }
 554             else
 555               rv = 0;
 556
 557             if(err){
 558                 q_status_message1(SM_ORDER, 3, 5, "%s", err);
 559                 fs_give((void **)&err);
 560             }
 561
 562             if(result)
 563               fs_give((void **)&result);
 564             if(olddefval)
 565               fs_give((void **)&olddefval);
 566             if(input)
 567               fs_give((void **)&input);
 568         }
 569
 570         ps->mangled_screen = 1;
 571         break;
 572
 573       default:
 574         rv = text_tool(ps, cmd, cl, flags);
 575         break;
 576     }
 577
 578     /*
 579      * At this point, if changes occurred, var->user_val.X is set.
 580      * So, fix the current_val, and handle special cases...
 581      *
 582      * NOTE: we don't worry about the "fixed variable" case here, because
 583      *       editing such vars should have been prevented above...
 584      */
 585     if(rv == 1){
 586         /*
 587          * Now go and set the current_val based on user_val changes
 588          * above.  Turn off command line settings...
 589          */
 590         set_current_val((*cl)->var, TRUE, FALSE);
 591
 592         if((*cl)->value)
 593           fs_give((void **)&(*cl)->value);
 594
 595         (*cl)->value = pretty_value(ps, *cl);
 596
 597         exception_override_warning((*cl)->var);
 598
 599         /*
 600          * The value of literal sig can affect whether signature file is
 601          * used or not. So it affects what we display for sig file variable.
 602          */
 603         if((*cl)->next && (*cl)->next->var == &ps->vars[V_SIGNATURE_FILE]){
 604             if((*cl)->next->value)
 605               fs_give((void **)&(*cl)->next->value);
 606
 607             (*cl)->next->value = pretty_value(ps, (*cl)->next);
 608         }
 609     }
 610
 611     return(rv);
 612 }
 613
 614
 615 int
 616 inbox_path_text_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
 617 {
 618     char           **apval;
 619     int              rv = 0;
 620     char             new_inbox_path[2*MAXFOLDER+1];
 621     char            *def = NULL;
 622     CONTEXT_S       *cntxt;
 623
 624     if(cmd != MC_EXIT && fixed_var((*cl)->var, NULL, NULL))
 625       return(rv);
 626
 627     apval = APVAL((*cl)->var, ew);
 628
 629     switch(cmd){
 630       case MC_ADD:
 631       case MC_EDIT:
 632         cntxt = ps->context_list;
 633         if(cmd == MC_EDIT && (*cl)->var){
 634             if(ew == Post && (*cl)->var->post_user_val.p)
 635               def = (*cl)->var->post_user_val.p;
 636             else if(ew == Main && (*cl)->var->main_user_val.p)
 637               def = (*cl)->var->main_user_val.p;
 638             else if((*cl)->var->current_val.p)
 639               def = (*cl)->var->current_val.p;
 640         }
 641
 642         rv = add_new_folder(cntxt, ew, V_INBOX_PATH, new_inbox_path,
 643                             sizeof(new_inbox_path), NULL, def);
 644         rv = rv ? 1 : 0;
 645
 646         ps->mangled_screen = 1;
 647         break;
 648
 649       default:
 650         rv = text_tool(ps, cmd, cl, flags);
 651         break;
 652     }
 653
 654     /*
 655      * This is just like the end of text_tool.
 656      */
 657     if(rv == 1){
 658         /*
 659          * Now go and set the current_val based on user_val changes
 660          * above.  Turn off command line settings...
 661          */
 662         set_current_val((*cl)->var, TRUE, FALSE);
 663         fix_side_effects(ps, (*cl)->var, 0);
 664
 665         if((*cl)->value)
 666           fs_give((void **) &(*cl)->value);
 667
 668         (*cl)->value = pretty_value(ps, *cl);
 669
 670         exception_override_warning((*cl)->var);
 671     }
 672
 673     return(rv);
 674 }
 675
 676
 677 int
 678 incoming_monitoring_list_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
 679 {
 680     int         rv = 0;
 681     CONTEXT_S  *cntxt;
 682     char      **the_list;
 683     CONF_S     *ctmp;
 684     char     ***alval;
 685     OPT_SCREEN_S *saved_screen;
 686
 687     if(cmd != MC_EXIT && fixed_var((*cl)->var, NULL, NULL))
 688       return(rv);
 689
 690     switch(cmd){
 691       case MC_ADD:
 692       case MC_EDIT:
 693         cntxt = ps->context_list;
 694         if(!(cntxt && cntxt->use & CNTXT_INCMNG)){
 695             q_status_message1(SM_ORDER, 3, 3, _("Turn on incoming folders with Config feature \"%s\""), pretty_feature_name(feature_list_name(F_ENABLE_INCOMING), -1));
 696             return(rv);
 697         }
 698
 699         saved_screen = opt_screen;
 700
 701         the_list = adjust_list_of_monitored_incoming(cntxt, ew, V_INCCHECKLIST);
 702
 703         /* adjust top if it might be necessary */
 704         for(ctmp = (*cl)->varnamep;
 705             ctmp && ctmp->varnamep == (*cl)->varnamep;
 706             ctmp = next_confline(ctmp))
 707           if(ctmp == opt_screen->top_line)
 708             opt_screen->top_line = (*cl)->varnamep;
 709
 710         if(the_list){
 711             alval = ALVAL((*cl)->var, ew);
 712             free_list_array(alval);
 713             if(!*the_list){
 714                 q_status_message(SM_ORDER, 0, 3, _("Using default, monitor all incoming folders"));
 715                 if(alval){
 716                     /*
 717                      * Remove config lines except for first one.
 718                      */
 719                     *cl = (*cl)->varnamep;
 720                     while((*cl)->next && (*cl)->next->varnamep == (*cl)->varnamep)
 721                       snip_confline(&(*cl)->next);
 722                 }
 723             }
 724             else
 725               config_add_list(ps, cl, the_list, NULL, 0);
 726
 727             /* only have to free the top-level pointer */
 728             fs_give((void **) &the_list);
 729             rv = 1;
 730         }
 731         else{
 732             if(LVAL((*cl)->var, ew))
 733               q_status_message(SM_ORDER, 0, 3, _("List is unchanged"));
 734             else
 735               q_status_message(SM_ORDER, 0, 3, _("Using default, monitor all incoming folders"));
 736         }
 737
 738         opt_screen = saved_screen;
 739         ps->mangled_screen = 1;
 740         break;
 741
 742       default:
 743         rv = text_tool(ps, cmd, cl, flags);
 744         /* if we deleted last one, reverts to default */
 745         if(cmd == MC_DELETE && rv == 1 && (*cl)->varmem == 0
 746            && (!(*cl)->next || (*cl)->next->varnamep != (*cl)))
 747           q_status_message(SM_ORDER, 0, 3, _("Using default, monitor all incoming folders"));
 748
 749         break;
 750     }
 751
 752     /*
 753      * This is just like the end of text_tool.
 754      */
 755     if(rv == 1){
 756         /*
 757          * Now go and set the current_val based on user_val changes
 758          * above.  Turn off command line settings...
 759          */
 760         set_current_val((*cl)->var, TRUE, FALSE);
 761         fix_side_effects(ps, (*cl)->var, 0);
 762
 763         if((*cl)->value)
 764           fs_give((void **) &(*cl)->value);
 765
 766         (*cl)->value = pretty_value(ps, *cl);
 767
 768         exception_override_warning((*cl)->var);
 769     }
 770
 771     return(rv);
 772 }
 773
 774
 775 char **
 776 adjust_list_of_monitored_incoming(CONTEXT_S *cntxt, EditWhich which, int varnum)
 777 {
 778     LIST_SEL_S *listhead, *p, *ls;
 779     int i, cnt, ftotal;
 780     long width;
 781     FOLDER_S *f;
 782     char **the_list = NULL, buf[1000];
 783
 784     if(!(cntxt && cntxt->use & CNTXT_INCMNG))
 785       return(the_list);
 786
 787     p = listhead = NULL;
 788
 789     /* this width is determined by select_from_list_screen() */
 790     width = ps_global->ttyo->screen_cols - 4;
 791
 792     /*
 793      * Put together a list of folders to select from.
 794      * We could choose to use the list associated with
 795      * the config we're editing, and that may be correct.
 796      * However, we think most users will expect the list
 797      * to be the list that is in use. In any case, these
 798      * are almost always the same.
 799      */
 800
 801     ftotal = folder_total(FOLDERS(cntxt));
 802
 803     for(i = 0; i < ftotal; i++){
 804
 805         f = folder_entry(i, FOLDERS(cntxt));
 806
 807         ls = (LIST_SEL_S *) fs_get(sizeof(*ls));
 808         memset(ls, 0, sizeof(*ls));
 809
 810         if(f && f->nickname){
 811             ls->item = cpystr(f->nickname);
 812             snprintf(buf, sizeof(buf), "%s  (%s)", f->nickname, f->name ? f->name : "?");
 813             ls->display_item = cpystr(buf);
 814         }
 815         else
 816           ls->item = cpystr((f && f->name) ? f->name : "?");
 817
 818         if(f && f->last_unseen_update != LUU_NEVERCHK)
 819           ls->selected = 1;
 820
 821         if(p){
 822             p->next = ls;
 823             p = p->next;
 824         }
 825         else{
 826             /* add a heading */
 827             listhead = (LIST_SEL_S *) fs_get(sizeof(*ls));
 828             memset(listhead, 0, sizeof(*listhead));
 829             listhead->flags = SFL_NOSELECT;
 830             listhead->display_item = cpystr(_("Incoming folders to be monitored"));
 831             listhead->next = (LIST_SEL_S *) fs_get(sizeof(*ls));
 832             memset(listhead->next, 0, sizeof(*listhead));
 833             listhead->next->flags = SFL_NOSELECT;
 834             listhead->next->display_item = cpystr(repeat_char(width, '-'));
 835
 836             listhead->next->next = ls;
 837             p = ls;
 838         }
 839     }
 840
 841     if(!listhead){
 842         q_status_message1(SM_ORDER, 3, 3, _("Turn on incoming folders with Config feature \"%s\""), pretty_feature_name(feature_list_name(F_ENABLE_INCOMING), -1));
 843         return(the_list);
 844     }
 845
 846     if(!select_from_list_screen(listhead,
 847                         SFL_ALLOW_LISTMODE|SFL_STARTIN_LISTMODE|SFL_ONLY_LISTMODE|SFL_CTRLC,
 848                                 _("SELECT FOLDERS TO MONITOR"), _("folders"),
 849                                 h_select_incoming_to_monitor,
 850                                 _("HELP FOR SELECTING FOLDERS"), NULL)){
 851
 852         for(cnt = 0, p = listhead; p; p = p->next)
 853           if(p->selected)
 854             cnt++;
 855
 856         if(cnt >= 0 && cnt <= ftotal){
 857             the_list = (char **) fs_get((cnt+1) * sizeof(*the_list));
 858             memset(the_list, 0, (cnt+1) * sizeof(*the_list));
 859             for(i = 0, p = listhead; p; p = p->next)
 860               if(p->selected)
 861                 the_list[i++] = cpystr(p->item ? p->item : "");
 862         }
 863     }
 864
 865     free_list_sel(&listhead);
 866
 867     return(the_list);
 868 }
 869
 870
 871 int
 872 stayopen_list_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
 873 {
 874     int         rv = 0;
 875     char      **newval = NULL;
 876     char      **ltmp = NULL;
 877     char       *folder = NULL;
 878     void      (*prev_screen)(struct pine *) = ps->prev_screen,
 879               (*redraw)(void) = ps->redrawer;
 880     OPT_SCREEN_S *saved_screen = NULL;
 881
 882     switch(cmd){
 883       case MC_CHOICE:
 884         if(fixed_var((*cl)->var, NULL, NULL))
 885           break;
 886
 887         ps->redrawer = NULL;
 888         ps->next_screen = SCREEN_FUN_NULL;
 889         saved_screen = opt_screen;
 890         folder = folder_for_config(FOR_OPTIONSCREEN);
 891         removing_leading_and_trailing_white_space(folder);
 892         if(folder && *folder){
 893             ltmp    = (char **) fs_get(2 * sizeof(char *));
 894             ltmp[0] = cpystr(folder);
 895             ltmp[1] = NULL;
 896
 897             config_add_list(ps, cl, ltmp, &newval, 0);
 898
 899             if(ltmp)
 900               fs_give((void **) &ltmp);
 901
 902             rv = 1;
 903
 904             /* this stuff is from bottom of text_toolit() */
 905
 906             /*
 907              * At this point, if changes occurred, var->user_val.X is set.
 908              * So, fix the current_val, and handle special cases...
 909              *
 910              * NOTE: we don't worry about the "fixed variable" case here, because
 911              *       editing such vars should have been prevented above...
 912              */
 913
 914             /*
 915              * Now go and set the current_val based on user_val changes
 916              * above.  Turn off command line settings...
 917              */
 918             set_current_val((*cl)->var, TRUE, FALSE);
 919             fix_side_effects(ps, (*cl)->var, 0);
 920
 921             /*
 922              * Delay setting the displayed value until "var.current_val" is set
 923              * in case current val get's changed due to a special case above.
 924              */
 925             if(newval){
 926                 if(*newval)
 927                   fs_give((void **) newval);
 928
 929                 *newval = pretty_value(ps, *cl);
 930             }
 931
 932             exception_override_warning((*cl)->var);
 933
 934             if(folder)
 935               fs_give((void **) &folder);
 936         }
 937         else{
 938             ps->next_screen = prev_screen;
 939             ps->redrawer = redraw;
 940             rv = 0;
 941         }
 942
 943         opt_screen = saved_screen;
 944         ps->mangled_screen = 1;
 945         break;
 946
 947       default:
 948         rv = text_tool(ps, cmd, cl, flags);
 949         break;
 950     }
 951
 952     return(rv);
 953 }
 954
 955
 956 int
 957 to_charsets_text_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
 958 {
 959     int         rv = 0;
 960     char      **newval = NULL;
 961     void      (*prev_screen)(struct pine *) = ps->prev_screen,
 962               (*redraw)(void) = ps->redrawer;
 963     OPT_SCREEN_S *saved_screen = NULL;
 964     char      **apval;
 965     char       *charset = NULL;
 966
 967     switch(cmd){
 968       case MC_CHOICE:
 969         if(fixed_var((*cl)->var, NULL, NULL))
 970           break;
 971
 972         apval = APVAL((*cl)->var, ew);
 973
 974         if(apval){
 975             int cac_flags = CAC_ALL;
 976
 977             ps->redrawer = NULL;
 978             ps->next_screen = SCREEN_FUN_NULL;
 979             saved_screen = opt_screen;
 980
 981             if((*cl)->var == &ps->vars[V_POST_CHAR_SET])
 982               cac_flags = CAC_POSTING;
 983 #ifndef _WINDOWS
 984             else if((*cl)->var == &ps->vars[V_CHAR_SET]
 985                     || (*cl)->var == &ps->vars[V_KEY_CHAR_SET])
 986               cac_flags = CAC_DISPLAY;
 987 #endif /* !_WINDOWS */
 988
 989             charset = choose_a_charset(cac_flags);
 990
 991             removing_leading_and_trailing_white_space(charset);
 992             if(charset && *charset){
 993                 rv = 1;
 994                 if(apval && *apval)
 995                   fs_give((void **) apval);
 996
 997                 *apval = charset;
 998                 charset = NULL;
 999                 newval = &(*cl)->value;
1000
1001                 /* this stuff is from bottom of text_toolit() */
1002
1003                 /*
1004                  * At this point, if changes occurred, var->user_val.X is set.
1005                  * So, fix the current_val, and handle special cases...
1006                  *
1007                  * NOTE: we don't worry about the "fixed variable" case here, because
1008                  *       editing such vars should have been prevented above...
1009                  */
1010
1011                 /*
1012                  * Now go and set the current_val based on user_val changes
1013                  * above.  Turn off command line settings...
1014                  */
1015                 set_current_val((*cl)->var, TRUE, FALSE);
1016                 fix_side_effects(ps, (*cl)->var, 0);
1017                 if(newval){
1018                     if(*newval)
1019                       fs_give((void **) newval);
1020
1021                     *newval = pretty_value(ps, *cl);
1022                 }
1023
1024                 exception_override_warning((*cl)->var);
1025             }
1026             else{
1027                 ps->next_screen = prev_screen;
1028                 ps->redrawer = redraw;
1029                 rv = 0;
1030             }
1031
1032             if(charset)
1033               fs_give((void **) &charset);
1034
1035             opt_screen = saved_screen;
1036             ps->mangled_screen = 1;
1037         }
1038         break;
1039
1040       default:
1041         rv = text_tool(ps, cmd, cl, flags);
1042         break;
1043     }
1044
1045     return(rv);
1046 }
1047
1048
1049 /*
1050  * pretty_var_name - return a pleasantly displayable form
1051  *                   of variable name variable
1052  */
1053 char *
1054 pretty_var_name(char *varname)
1055 {
1056     struct variable *v;
1057     int         i, upper = 1;
1058     static char vbuf[100];
1059
1060     vbuf[0] = '\0';
1061     v = var_from_name(varname);
1062
1063     if(!v)
1064       return(vbuf);
1065
1066     if(v->dname && v->dname[0])
1067       return(v->dname);
1068
1069     if(!(v->name && v->name[0]))
1070       return(vbuf);
1071
1072     /* default: uppercase first letters, dashes to spaces */
1073     for(i = 0; i < sizeof(vbuf)-1 && v->name[i]; i++)
1074       if(upper){
1075           vbuf[i] = (islower((unsigned char) v->name[i]))
1076                      ? toupper((unsigned char) v->name[i])
1077                     : v->name[i];
1078           upper = 0;
1079       }
1080       else if(v->name[i] == '-'){
1081           vbuf[i] = SPACE;
1082           upper++;
1083       }
1084       else
1085         vbuf[i] = v->name[i];
1086
1087     vbuf[i] = '\0';
1088     return(vbuf);
1089 }
1090
1091
1092 /*
1093  * pretty_feature_name - return a pleasantly displayable form
1094  *                       of feature name variable
1095  */
1096 char *
1097 pretty_feature_name(char *feat, int width)
1098 {
1099     FEATURE_S  *f;
1100     int         i, upper = 1;
1101     static char fbuf[100];
1102
1103     f = feature_list(feature_list_index(feature_list_id(feat)));
1104     if(f && f->dname && f->dname[0])
1105       return(f->dname);
1106
1107     /* default: uppercase first letters, dashes become spaces */
1108     for(i = 0; i < sizeof(fbuf)-1 && feat[i]; i++)
1109       if(upper){
1110           fbuf[i] = (islower((unsigned char) feat[i]))
1111                      ? toupper((unsigned char) feat[i])
1112                     : feat[i];
1113           upper = 0;
1114       }
1115       else if(feat[i] == '-'){
1116           fbuf[i] = SPACE;
1117           upper++;
1118       }
1119       else
1120         fbuf[i] = feat[i];
1121
1122     fbuf[i] = '\0';
1123
1124     /* cut off right hand edge if necessary */
1125     if(width > 0){
1126         char *p, gbuf[100];
1127
1128         p = short_str(fbuf, gbuf, sizeof(gbuf), width, EndDots);
1129
1130         if(p != fbuf){
1131             strncpy(fbuf, p, sizeof(fbuf)-1);
1132             fbuf[sizeof(fbuf)-1] = '\0';
1133         }
1134     }
1135
1136     return(fbuf);
1137 }