1 #if !defined(lint) && !defined(DOS)
2 static char rcsid
[] = "$Id: setup.c 918 2008-01-23 19:39:38Z hubert@u.washington.edu $";
6 * ========================================================================
7 * Copyright 2006-2008 University of Washington
8 * Copyright 2013-2020 Eduardo Chappa
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
14 * http://www.apache.org/licenses/LICENSE-2.0
16 * ========================================================================
23 #include "confscroll.h"
24 #include "colorconf.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"
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);
49 #define CONFIG_SCREEN_TITLE _("SETUP CONFIGURATION")
50 #define CONFIG_SCREEN_TITLE_EXC _("SETUP CONFIGURATION EXCEPTIONS")
54 /*----------------------------------------------------------------------
55 Present pinerc data for manipulation
59 Result: help edit certain pinerc fields.
62 option_screen(struct pine
*ps
, int edit_exceptions
)
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
;
70 SAVED_CONFIG_S
*vsave
;
72 int expose_hidden_config
, add_hidden_vars_title
= 0;
74 dprint((3, "-- option_screen --\n"));
76 expose_hidden_config
= F_ON(F_EXPOSE_HIDDEN_CONFIG
, ps_global
);
77 treat_color_vars_as_text
= expose_hidden_config
;
79 ew
= edit_exceptions
? ps_global
->ew_for_except_vars
: Main
;
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;
103 ps
->next_screen
= SCREEN_FUN_NULL
;
105 mailcap_free(); /* free resources we won't be using for a while */
107 if(ps
->fix_fixed_warning
)
108 offer_to_fix_pinerc(ps
);
111 do { /* Beginning of BIG LOOP */
112 ctmpa
= first_line
= NULL
;
115 * First, find longest variable name
117 for(vtmp
= ps
->vars
; vtmp
->name
; vtmp
++){
118 if(exclude_config_var(ps
, vtmp
, expose_hidden_config
))
121 if((i
= utf8_width(pretty_var_name(vtmp
->name
))) > ln
)
125 dprint((9, "initialize config list\n"));
128 * Next, allocate and initialize config line list...
130 for(vtmp
= ps
->vars
; vtmp
->name
; vtmp
++){
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.
136 if(expose_hidden_config
&& vtmp
== &ps
->vars
[V_INCOMING_FOLDERS
])
137 add_hidden_vars_title
= 1;
139 if(exclude_config_var(ps
, vtmp
, expose_hidden_config
))
142 if(add_hidden_vars_title
){
144 add_hidden_vars_title
= 0;
146 new_confline(&ctmpa
); /* Blank line */
147 ctmpa
->flags
|= CF_NOSELECT
| CF_B_LINE
;
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 ] ---");
155 new_confline(&ctmpa
); /* Blank line */
156 ctmpa
->flags
|= CF_NOSELECT
| CF_B_LINE
;
160 lval
= LVAL(vtmp
, ew
);
162 pval
= PVAL(vtmp
, ew
);
164 new_confline(&ctmpa
)->var
= vtmp
;
168 ctmpa
->valoffset
= ln
+ 3;
170 ctmpa
->keymenu
= &config_text_wshuf_keymenu
;
172 ctmpa
->keymenu
= &config_text_keymenu
;
174 ctmpa
->help
= config_help(vtmp
- ps
->vars
, 0);
175 ctmpa
->tool
= text_tool
;
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
;
185 ctmpa
->flags
|= CF_NOSELECT
;
186 ctmpa
->keymenu
= &config_checkbox_keymenu
;
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");
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("--- ----------------------");
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
);
224 new_confline(&ctmpa
)->var
= vtmp
;
225 ctmpa
->varnamep
= ctmpb
;
226 ctmpa
->keymenu
= &config_checkbox_keymenu
;
227 ctmpa
->help
= config_help(vtmp
-ps
->vars
,
229 ctmpa
->tool
= checkbox_tool
;
230 ctmpa
->valoffset
= feature_indent();
232 ctmpa
->value
= pretty_value(ps
, ctmpa
);
235 else if(standard_radio_var(ps
, vtmp
)){
236 standard_radio_setup(ps
, &ctmpa
, vtmp
, NULL
);
238 else if(vtmp
== &ps
->vars
[V_SORT_KEY
]){ /* radio case */
242 ctmpa
->flags
|= CF_NOSELECT
;
243 ctmpa
->keymenu
= &config_radiobutton_keymenu
;
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");
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("--- ----------------------");
265 decode_sort(pval
, &def_sort
, &def_sort_rev
);
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
);
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
);
285 else if(vtmp
== &ps
->vars
[V_LITERAL_SIG
]){
286 ctmpa
->tool
= litsig_text_tool
;
287 ctmpa
->value
= pretty_value(ps
, ctmpa
);
289 else if(vtmp
== &ps
->vars
[V_INBOX_PATH
]){
290 ctmpa
->tool
= inbox_path_text_tool
;
291 ctmpa
->value
= pretty_value(ps
, ctmpa
);
293 else if(vtmp
== &ps
->vars
[V_POST_CHAR_SET
]
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
);
303 else if(vtmp
->is_list
){
304 int (*t_tool
)(struct pine
*, int, CONF_S
**, unsigned);
309 if(vtmp
== &ps
->vars
[V_INCCHECKLIST
]){
310 t_tool
= incoming_monitoring_list_tool
;
311 km
= &config_text_keymenu
;
313 else if(vtmp
== &ps
->vars
[V_PERMLOCKED
]){
314 t_tool
= stayopen_list_tool
;
315 km
= &config_text_wshufandfldr_keymenu
;
319 for(i
= 0; lval
[i
]; i
++){
321 (void)new_confline(&ctmpa
);
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
;
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
;
341 if(vtmp
== &ps
->vars
[V_FILLCOL
]
342 || vtmp
== &ps
->vars
[V_QUOTE_SUPPRESSION
]
343 || vtmp
== &ps
->vars
[V_OVERLAP
]
344 || vtmp
== &ps
->vars
[V_MAXREMSTREAM
]
345 || vtmp
== &ps
->vars
[V_MARGIN
]
346 || vtmp
== &ps
->vars
[V_DEADLETS
]
347 || vtmp
== &ps
->vars
[V_NMW_WIDTH
]
348 || vtmp
== &ps
->vars
[V_STATUS_MSG_DELAY
]
349 || vtmp
== &ps
->vars
[V_ACTIVE_MSG_INTERVAL
]
350 || vtmp
== &ps
->vars
[V_MAILCHECK
]
351 || vtmp
== &ps
->vars
[V_MAILCHECKNONCURR
]
352 || vtmp
== &ps
->vars
[V_MAILDROPCHECK
]
353 || vtmp
== &ps
->vars
[V_NNTPRANGE
]
354 || vtmp
== &ps
->vars
[V_TCPOPENTIMEO
]
355 || vtmp
== &ps
->vars
[V_TCPREADWARNTIMEO
]
356 || vtmp
== &ps
->vars
[V_TCPWRITEWARNTIMEO
]
357 || vtmp
== &ps
->vars
[V_TCPQUERYTIMEO
]
358 || vtmp
== &ps
->vars
[V_RSHOPENTIMEO
]
359 || vtmp
== &ps
->vars
[V_SSHOPENTIMEO
]
360 || vtmp
== &ps
->vars
[V_INCCHECKTIMEO
]
361 || vtmp
== &ps
->vars
[V_INCCHECKINTERVAL
]
362 || vtmp
== &ps
->vars
[V_INC2NDCHECKINTERVAL
]
363 || vtmp
== &ps
->vars
[V_USERINPUTTIMEO
]
364 || vtmp
== &ps
->vars
[V_REMOTE_ABOOK_VALIDITY
]
365 || vtmp
== &ps
->vars
[V_REMOTE_ABOOK_HISTORY
])
366 ctmpa
->flags
|= CF_NUMBER
;
368 ctmpa
->value
= pretty_value(ps
, ctmpa
);
372 dprint((9, "add hidden features\n"));
374 /* add the hidden features */
375 if(expose_hidden_config
){
378 new_confline(&ctmpa
); /* Blank line */
379 ctmpa
->flags
|= CF_NOSELECT
| CF_B_LINE
;
381 new_confline(&ctmpa
)->var
= NULL
;
382 ctmpa
->help
= NO_HELP
;
383 ctmpa
->valoffset
= 2;
384 ctmpa
->flags
|= CF_NOSELECT
;
385 ctmpa
->value
= cpystr("--- [ Normally hidden configuration features ] ---");
387 new_confline(&ctmpa
); /* Blank line */
388 ctmpa
->flags
|= CF_NOSELECT
| CF_B_LINE
;
390 vtmp
= &ps
->vars
[V_FEATURE_LIST
];
392 ctmpa
->flags
|= CF_NOSELECT
;
393 ctmpa
->keymenu
= &config_checkbox_keymenu
;
396 /* put a nice delimiter before list */
397 new_confline(&ctmpa
)->var
= NULL
;
398 ctmpa
->varnamep
= ctmpb
;
399 ctmpa
->keymenu
= &config_checkbox_keymenu
;
400 ctmpa
->help
= NO_HELP
;
401 ctmpa
->tool
= checkbox_tool
;
402 ctmpa
->valoffset
= feature_indent();
403 ctmpa
->flags
|= CF_NOSELECT
;
404 ctmpa
->value
= cpystr("Set Feature Name");
406 new_confline(&ctmpa
)->var
= NULL
;
407 ctmpa
->varnamep
= ctmpb
;
408 ctmpa
->keymenu
= &config_checkbox_keymenu
;
409 ctmpa
->help
= NO_HELP
;
410 ctmpa
->tool
= checkbox_tool
;
411 ctmpa
->valoffset
= feature_indent();
412 ctmpa
->flags
|= CF_NOSELECT
;
413 ctmpa
->value
= cpystr("--- ----------------------");
415 for(i
= 0; (feature
= feature_list(i
)); i
++)
416 if((new_sect
= feature_list_section(feature
)) &&
417 (strcmp(new_sect
, HIDDEN_PREF
) == 0)){
419 new_confline(&ctmpa
)->var
= vtmp
;
420 ctmpa
->varnamep
= ctmpb
;
421 ctmpa
->keymenu
= &config_checkbox_keymenu
;
422 ctmpa
->help
= config_help(vtmp
-ps
->vars
,
424 ctmpa
->tool
= checkbox_tool
;
425 ctmpa
->valoffset
= feature_indent();
427 ctmpa
->value
= pretty_value(ps
, ctmpa
);
431 vsave
= save_config_vars(ps
, expose_hidden_config
);
432 first_line
= pos
< 0 ? first_sel_confline(first_line
) : set_confline_number(first_line
, pos
);
434 memset(&screen
, 0, sizeof(screen
));
435 screen
.ro_warning
= readonly_warning
;
436 /* TRANSLATORS: Print something1 using something2.
437 "configuration" is something1 */
438 switch(conf_scroll_screen(ps
, &screen
, first_line
,
439 edit_exceptions
? CONFIG_SCREEN_TITLE_EXC
440 : CONFIG_SCREEN_TITLE
,
441 _("configuration"), 0, &pos
)){
446 write_pinerc(ps
, ew
, WRP_NONE
);
450 revert_to_saved_config(ps
, vsave
, expose_hidden_config
);
452 prc
->outstanding_pinerc_changes
= 0;
457 q_status_message(SM_ORDER
,7,10,
458 "conf_scroll_screen bad ret, not supposed to happen");
463 pval
= PVAL(&ps
->vars
[V_SORT_KEY
], ew
);
464 if(vsave
[V_SORT_KEY
].saved_user_val
.p
&& pval
465 && strcmp(vsave
[V_SORT_KEY
].saved_user_val
.p
, pval
)){
466 if(!mn_get_mansort(ps_global
->msgmap
)){
467 clear_index_cache(ps_global
->mail_stream
, 0);
468 reset_sort_order(SRT_VRB
);
472 treat_color_vars_as_text
= 0;
473 free_saved_config(ps
, &vsave
, expose_hidden_config
);
475 mswin_set_quit_confirm (F_OFF(F_QUIT_WO_CONFIRM
, ps_global
));
481 litsig_text_tool(struct pine
*ps
, int cmd
, CONF_S
**cl
, unsigned int flags
)
486 if(cmd
!= MC_EXIT
&& fixed_var((*cl
)->var
, NULL
, NULL
))
489 apval
= APVAL((*cl
)->var
, ew
);
495 char *input
= NULL
, *result
= NULL
, *err
= NULL
, *cstring_version
;
496 char *olddefval
= NULL
, *start_with
;
499 if(!*apval
&& (*cl
)->var
->current_val
.p
&&
500 (*cl
)->var
->current_val
.p
[0]){
501 if(!strncmp((*cl
)->var
->current_val
.p
,
503 (len
=strlen(DSTRING
)))){
504 /* strip DSTRING and trailing paren */
505 olddefval
= (char *)fs_get(strlen((*cl
)->var
->current_val
.p
)+1);
506 strncpy(olddefval
, (*cl
)->var
->current_val
.p
+len
,
507 strlen((*cl
)->var
->current_val
.p
)-len
-1);
508 olddefval
[strlen((*cl
)->var
->current_val
.p
)-len
-1] = '\0';
509 start_with
= olddefval
;
512 olddefval
= cpystr((*cl
)->var
->current_val
.p
);
513 start_with
= olddefval
;
517 start_with
= (*apval
) ? *apval
: "";
519 input
= (char *)fs_get((strlen(start_with
)+1) * sizeof(char));
521 cstring_to_string(start_with
, input
);
522 err
= signature_edit_lit(input
, &result
,
523 ((*cl
)->var
== role_comment_ptr
)
525 : "SIGNATURE EDITOR",
526 ((*cl
)->var
== role_comment_ptr
)
527 ? h_composer_commentedit
528 : h_composer_sigedit
);
531 if(olddefval
&& !strcmp(input
, result
) &&
532 want_to(_("Leave unset and use default "), 'y',
533 'y', NO_HELP
, WT_FLUSH_IN
) == 'y'){
537 cstring_version
= string_to_cstring(result
);
540 fs_give((void **)apval
);
543 *apval
= cstring_version
;
544 cstring_version
= NULL
;
548 fs_give((void **)&cstring_version
);
557 q_status_message1(SM_ORDER
, 3, 5, "%s", err
);
558 fs_give((void **)&err
);
562 fs_give((void **)&result
);
564 fs_give((void **)&olddefval
);
566 fs_give((void **)&input
);
569 ps
->mangled_screen
= 1;
573 rv
= text_tool(ps
, cmd
, cl
, flags
);
578 * At this point, if changes occurred, var->user_val.X is set.
579 * So, fix the current_val, and handle special cases...
581 * NOTE: we don't worry about the "fixed variable" case here, because
582 * editing such vars should have been prevented above...
586 * Now go and set the current_val based on user_val changes
587 * above. Turn off command line settings...
589 set_current_val((*cl
)->var
, TRUE
, FALSE
);
592 fs_give((void **)&(*cl
)->value
);
594 (*cl
)->value
= pretty_value(ps
, *cl
);
596 exception_override_warning((*cl
)->var
);
599 * The value of literal sig can affect whether signature file is
600 * used or not. So it affects what we display for sig file variable.
602 if((*cl
)->next
&& (*cl
)->next
->var
== &ps
->vars
[V_SIGNATURE_FILE
]){
603 if((*cl
)->next
->value
)
604 fs_give((void **)&(*cl
)->next
->value
);
606 (*cl
)->next
->value
= pretty_value(ps
, (*cl
)->next
);
615 inbox_path_text_tool(struct pine
*ps
, int cmd
, CONF_S
**cl
, unsigned int flags
)
619 char new_inbox_path
[2*MAXFOLDER
+1];
623 if(cmd
!= MC_EXIT
&& fixed_var((*cl
)->var
, NULL
, NULL
))
626 apval
= APVAL((*cl
)->var
, ew
);
631 cntxt
= ps
->context_list
;
632 if(cmd
== MC_EDIT
&& (*cl
)->var
){
633 if(ew
== Post
&& (*cl
)->var
->post_user_val
.p
)
634 def
= (*cl
)->var
->post_user_val
.p
;
635 else if(ew
== Main
&& (*cl
)->var
->main_user_val
.p
)
636 def
= (*cl
)->var
->main_user_val
.p
;
637 else if((*cl
)->var
->current_val
.p
)
638 def
= (*cl
)->var
->current_val
.p
;
641 rv
= add_new_folder(cntxt
, ew
, V_INBOX_PATH
, new_inbox_path
,
642 sizeof(new_inbox_path
), NULL
, def
);
645 ps
->mangled_screen
= 1;
649 rv
= text_tool(ps
, cmd
, cl
, flags
);
654 * This is just like the end of text_tool.
658 * Now go and set the current_val based on user_val changes
659 * above. Turn off command line settings...
661 set_current_val((*cl
)->var
, TRUE
, FALSE
);
662 fix_side_effects(ps
, (*cl
)->var
, 0);
665 fs_give((void **) &(*cl
)->value
);
667 (*cl
)->value
= pretty_value(ps
, *cl
);
669 exception_override_warning((*cl
)->var
);
677 incoming_monitoring_list_tool(struct pine
*ps
, int cmd
, CONF_S
**cl
, unsigned int flags
)
684 OPT_SCREEN_S
*saved_screen
;
686 if(cmd
!= MC_EXIT
&& fixed_var((*cl
)->var
, NULL
, NULL
))
692 cntxt
= ps
->context_list
;
693 if(!(cntxt
&& cntxt
->use
& CNTXT_INCMNG
)){
694 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));
698 saved_screen
= opt_screen
;
700 the_list
= adjust_list_of_monitored_incoming(cntxt
, ew
, V_INCCHECKLIST
);
702 /* adjust top if it might be necessary */
703 for(ctmp
= (*cl
)->varnamep
;
704 ctmp
&& ctmp
->varnamep
== (*cl
)->varnamep
;
705 ctmp
= next_confline(ctmp
))
706 if(ctmp
== opt_screen
->top_line
)
707 opt_screen
->top_line
= (*cl
)->varnamep
;
710 alval
= ALVAL((*cl
)->var
, ew
);
711 free_list_array(alval
);
713 q_status_message(SM_ORDER
, 0, 3, _("Using default, monitor all incoming folders"));
716 * Remove config lines except for first one.
718 *cl
= (*cl
)->varnamep
;
719 while((*cl
)->next
&& (*cl
)->next
->varnamep
== (*cl
)->varnamep
)
720 snip_confline(&(*cl
)->next
);
724 config_add_list(ps
, cl
, the_list
, NULL
, 0);
726 /* only have to free the top-level pointer */
727 fs_give((void **) &the_list
);
731 if(LVAL((*cl
)->var
, ew
))
732 q_status_message(SM_ORDER
, 0, 3, _("List is unchanged"));
734 q_status_message(SM_ORDER
, 0, 3, _("Using default, monitor all incoming folders"));
737 opt_screen
= saved_screen
;
738 ps
->mangled_screen
= 1;
742 rv
= text_tool(ps
, cmd
, cl
, flags
);
743 /* if we deleted last one, reverts to default */
744 if(cmd
== MC_DELETE
&& rv
== 1 && (*cl
)->varmem
== 0
745 && (!(*cl
)->next
|| (*cl
)->next
->varnamep
!= (*cl
)))
746 q_status_message(SM_ORDER
, 0, 3, _("Using default, monitor all incoming folders"));
752 * This is just like the end of text_tool.
756 * Now go and set the current_val based on user_val changes
757 * above. Turn off command line settings...
759 set_current_val((*cl
)->var
, TRUE
, FALSE
);
760 fix_side_effects(ps
, (*cl
)->var
, 0);
763 fs_give((void **) &(*cl
)->value
);
765 (*cl
)->value
= pretty_value(ps
, *cl
);
767 exception_override_warning((*cl
)->var
);
775 adjust_list_of_monitored_incoming(CONTEXT_S
*cntxt
, EditWhich which
, int varnum
)
777 LIST_SEL_S
*listhead
, *p
, *ls
;
781 char **the_list
= NULL
, buf
[1000];
783 if(!(cntxt
&& cntxt
->use
& CNTXT_INCMNG
))
788 /* this width is determined by select_from_list_screen() */
789 width
= ps_global
->ttyo
->screen_cols
- 4;
792 * Put together a list of folders to select from.
793 * We could choose to use the list associated with
794 * the config we're editing, and that may be correct.
795 * However, we think most users will expect the list
796 * to be the list that is in use. In any case, these
797 * are almost always the same.
800 ftotal
= folder_total(FOLDERS(cntxt
));
802 for(i
= 0; i
< ftotal
; i
++){
804 f
= folder_entry(i
, FOLDERS(cntxt
));
806 ls
= (LIST_SEL_S
*) fs_get(sizeof(*ls
));
807 memset(ls
, 0, sizeof(*ls
));
809 if(f
&& f
->nickname
){
810 ls
->item
= cpystr(f
->nickname
);
811 snprintf(buf
, sizeof(buf
), "%s (%s)", f
->nickname
, f
->name
? f
->name
: "?");
812 ls
->display_item
= cpystr(buf
);
815 ls
->item
= cpystr((f
&& f
->name
) ? f
->name
: "?");
817 if(f
&& f
->last_unseen_update
!= LUU_NEVERCHK
)
826 listhead
= (LIST_SEL_S
*) fs_get(sizeof(*ls
));
827 memset(listhead
, 0, sizeof(*listhead
));
828 listhead
->flags
= SFL_NOSELECT
;
829 listhead
->display_item
= cpystr(_("Incoming folders to be monitored"));
830 listhead
->next
= (LIST_SEL_S
*) fs_get(sizeof(*ls
));
831 memset(listhead
->next
, 0, sizeof(*listhead
));
832 listhead
->next
->flags
= SFL_NOSELECT
;
833 listhead
->next
->display_item
= cpystr(repeat_char(width
, '-'));
835 listhead
->next
->next
= ls
;
841 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));
845 if(!select_from_list_screen(listhead
,
846 SFL_ALLOW_LISTMODE
|SFL_STARTIN_LISTMODE
|SFL_ONLY_LISTMODE
|SFL_CTRLC
,
847 _("SELECT FOLDERS TO MONITOR"), _("folders"),
848 h_select_incoming_to_monitor
,
849 _("HELP FOR SELECTING FOLDERS"), NULL
)){
851 for(cnt
= 0, p
= listhead
; p
; p
= p
->next
)
855 if(cnt
>= 0 && cnt
<= ftotal
){
856 the_list
= (char **) fs_get((cnt
+1) * sizeof(*the_list
));
857 memset(the_list
, 0, (cnt
+1) * sizeof(*the_list
));
858 for(i
= 0, p
= listhead
; p
; p
= p
->next
)
860 the_list
[i
++] = cpystr(p
->item
? p
->item
: "");
864 free_list_sel(&listhead
);
871 stayopen_list_tool(struct pine
*ps
, int cmd
, CONF_S
**cl
, unsigned int flags
)
874 char **newval
= NULL
;
877 void (*prev_screen
)(struct pine
*) = ps
->prev_screen
,
878 (*redraw
)(void) = ps
->redrawer
;
879 OPT_SCREEN_S
*saved_screen
= NULL
;
883 if(fixed_var((*cl
)->var
, NULL
, NULL
))
887 ps
->next_screen
= SCREEN_FUN_NULL
;
888 saved_screen
= opt_screen
;
889 folder
= folder_for_config(FOR_OPTIONSCREEN
);
890 removing_leading_and_trailing_white_space(folder
);
891 if(folder
&& *folder
){
892 ltmp
= (char **) fs_get(2 * sizeof(char *));
893 ltmp
[0] = cpystr(folder
);
896 config_add_list(ps
, cl
, ltmp
, &newval
, 0);
899 fs_give((void **) <mp
);
903 /* this stuff is from bottom of text_toolit() */
906 * At this point, if changes occurred, var->user_val.X is set.
907 * So, fix the current_val, and handle special cases...
909 * NOTE: we don't worry about the "fixed variable" case here, because
910 * editing such vars should have been prevented above...
914 * Now go and set the current_val based on user_val changes
915 * above. Turn off command line settings...
917 set_current_val((*cl
)->var
, TRUE
, FALSE
);
918 fix_side_effects(ps
, (*cl
)->var
, 0);
921 * Delay setting the displayed value until "var.current_val" is set
922 * in case current val gets changed due to a special case above.
926 fs_give((void **) newval
);
928 *newval
= pretty_value(ps
, *cl
);
931 exception_override_warning((*cl
)->var
);
934 fs_give((void **) &folder
);
937 ps
->next_screen
= prev_screen
;
938 ps
->redrawer
= redraw
;
942 opt_screen
= saved_screen
;
943 ps
->mangled_screen
= 1;
947 rv
= text_tool(ps
, cmd
, cl
, flags
);
956 to_charsets_text_tool(struct pine
*ps
, int cmd
, CONF_S
**cl
, unsigned int flags
)
959 char **newval
= NULL
;
960 void (*prev_screen
)(struct pine
*) = ps
->prev_screen
,
961 (*redraw
)(void) = ps
->redrawer
;
962 OPT_SCREEN_S
*saved_screen
= NULL
;
964 char *charset
= NULL
;
968 if(fixed_var((*cl
)->var
, NULL
, NULL
))
971 apval
= APVAL((*cl
)->var
, ew
);
974 int cac_flags
= CAC_ALL
;
977 ps
->next_screen
= SCREEN_FUN_NULL
;
978 saved_screen
= opt_screen
;
980 if((*cl
)->var
== &ps
->vars
[V_POST_CHAR_SET
])
981 cac_flags
= CAC_POSTING
;
983 else if((*cl
)->var
== &ps
->vars
[V_CHAR_SET
]
984 || (*cl
)->var
== &ps
->vars
[V_KEY_CHAR_SET
])
985 cac_flags
= CAC_DISPLAY
;
986 #endif /* !_WINDOWS */
988 charset
= choose_a_charset(cac_flags
);
990 removing_leading_and_trailing_white_space(charset
);
991 if(charset
&& *charset
){
994 fs_give((void **) apval
);
998 newval
= &(*cl
)->value
;
1000 /* this stuff is from bottom of text_toolit() */
1003 * At this point, if changes occurred, var->user_val.X is set.
1004 * So, fix the current_val, and handle special cases...
1006 * NOTE: we don't worry about the "fixed variable" case here, because
1007 * editing such vars should have been prevented above...
1011 * Now go and set the current_val based on user_val changes
1012 * above. Turn off command line settings...
1014 set_current_val((*cl
)->var
, TRUE
, FALSE
);
1015 fix_side_effects(ps
, (*cl
)->var
, 0);
1018 fs_give((void **) newval
);
1020 *newval
= pretty_value(ps
, *cl
);
1023 exception_override_warning((*cl
)->var
);
1026 ps
->next_screen
= prev_screen
;
1027 ps
->redrawer
= redraw
;
1032 fs_give((void **) &charset
);
1034 opt_screen
= saved_screen
;
1035 ps
->mangled_screen
= 1;
1040 rv
= text_tool(ps
, cmd
, cl
, flags
);
1049 * pretty_var_name - return a pleasantly displayable form
1050 * of variable name variable
1053 pretty_var_name(char *varname
)
1057 static char vbuf
[100];
1060 v
= var_from_name(varname
);
1065 if(v
->dname
&& v
->dname
[0])
1068 if(!(v
->name
&& v
->name
[0]))
1071 /* default: uppercase first letters, dashes to spaces */
1072 for(i
= 0; i
< sizeof(vbuf
)-1 && v
->name
[i
]; i
++)
1074 vbuf
[i
] = (islower((unsigned char) v
->name
[i
]))
1075 ? toupper((unsigned char) v
->name
[i
])
1079 else if(v
->name
[i
] == '-'){
1084 vbuf
[i
] = v
->name
[i
];
1092 * pretty_feature_name - return a pleasantly displayable form
1093 * of feature name variable
1096 pretty_feature_name(char *feat
, int width
)
1100 static char fbuf
[100];
1102 f
= feature_list(feature_list_index(feature_list_id(feat
)));
1103 if(f
&& f
->dname
&& f
->dname
[0])
1106 /* default: uppercase first letters, dashes become spaces */
1107 for(i
= 0; i
< sizeof(fbuf
)-1 && feat
[i
]; i
++)
1109 fbuf
[i
] = (islower((unsigned char) feat
[i
]))
1110 ? toupper((unsigned char) feat
[i
])
1114 else if(feat
[i
] == '-'){
1123 /* cut off right hand edge if necessary */
1127 p
= short_str(fbuf
, gbuf
, sizeof(gbuf
), width
, EndDots
);
1130 strncpy(fbuf
, p
, sizeof(fbuf
)-1);
1131 fbuf
[sizeof(fbuf
)-1] = '\0';