?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* S/MIME: validation of signed messages in servers that modify
[alpine.git] / alpine / confscroll.c
blob5ca2702b8e6549ac8df66abb1e07edfae3f8a5c6
1 #if !defined(lint) && !defined(DOS)
2 static char rcsid[] = "$Id: confscroll.c 1169 2008-08-27 06:42:06Z hubert@u.washington.edu $";
3 #endif
4
5 /*
6 * ========================================================================
7 * Copyright 2006-2008 University of Washington
8 * Copyright 2013-2014 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 "confscroll.h"
21 #include "keymenu.h"
22 #include "status.h"
23 #include "titlebar.h"
24 #include "help.h"
25 #include "radio.h"
26 #include "print.h"
27 #include "ldapconf.h"
28 #include "roleconf.h"
29 #include "colorconf.h"
30 #include "mailview.h"
31 #include "mailcmd.h"
32 #include "mailindx.h"
33 #include "talk.h"
34 #include "setup.h"
35 #include "smime.h"
36 #include "../pith/state.h"
37 #include "../pith/flag.h"
38 #include "../pith/list.h"
39 #include "../pith/conf.h"
40 #include "../pith/util.h"
41 #include "../pith/newmail.h"
42 #include "../pith/sort.h"
43 #include "../pith/thread.h"
44 #include "../pith/color.h"
45 #include "../pith/hist.h"
46 #include "../pith/icache.h"
47 #include "../pith/conf.h"
48 #include "../pith/init.h"
49 #include "../pith/folder.h"
50 #include "../pith/busy.h"
51 #include "../pith/tempfile.h"
52 #include "../pith/pattern.h"
53 #include "../pith/charconv/utf8.h"
54
55
56 #define CONFIG_SCREEN_HELP_TITLE _("HELP FOR SETUP CONFIGURATION")
57
58 /* TRANSLATORS: Empty Value is what is shown in the configuration
59 screen when the user not only does not set an option but also
60 wants to explicitly not use the default value. Empty value means
61 an option with no value. */
62 char *empty_val = N_("Empty Value");
63 char *empty_val2 = N_("<Empty Value>");
64 /* TRANSLATORS: No Value set is similar to Empty Value, but the
65 user has not explicitly decided to not use the default. It is
66 just an option which the user has left at the default value. */
67 char *no_val = N_("No Value Set");
68 /* TRANSLATORS: Value is Fixed is what is displayed in the config
69 screen when the system managers have set an option to a specific
70 value and they don't allow the user to change it. The value
71 is fixed to a certain value. This isn't the same word as
72 Repaired, it means Unchanging. */
73 char *fixed_val = N_("Value is Fixed");
74 char yesstr[] = "Yes";
75 char nostr[] = "No";
76
77
78 EditWhich ew = Main;
79
80
81 OPT_SCREEN_S *opt_screen;
82
83
84 /*
85 * This is pretty ugly. Some of the routines operate differently depending
86 * on which variable they are operating on. Sometimes those variables are
87 * global (real alpine.h V_ style variables) and sometimes they are just
88 * local variables (as in role_config_edit_screen). These pointers are here
89 * so that the routines can figure out which variable they are operating
90 * on and do the right thing.
91 */
92 struct variable *score_act_global_ptr,
93 *scorei_pat_global_ptr,
94 *age_pat_global_ptr,
95 *size_pat_global_ptr,
96 *cati_global_ptr,
97 *cat_cmd_global_ptr,
98 *cat_lim_global_ptr,
99 *startup_ptr,
100 *role_comment_ptr,
101 *role_forw_ptr,
102 *role_repl_ptr,
103 *role_fldr_ptr,
104 *role_afrom_ptr,
105 *role_filt_ptr,
106 *role_status1_ptr,
107 *role_status2_ptr,
108 *role_status3_ptr,
109 *role_status4_ptr,
110 *role_status5_ptr,
111 *role_status6_ptr,
112 *role_status7_ptr,
113 *role_status8_ptr,
114 *msg_state1_ptr,
115 *msg_state2_ptr,
116 *msg_state3_ptr,
117 *msg_state4_ptr;
118
119
120 typedef NAMEVAL_S *(*PTR_TO_RULEFUNC)(int);
121
122
123 /*
124 * Internal prototypes
125 */
126 PTR_TO_RULEFUNC rulefunc_from_var(struct pine *, struct variable *);
127 void set_radio_pretty_vals(struct pine *, CONF_S **);
128 int save_include(struct pine *, struct variable *, int);
129 void config_scroll_up(long);
130 void config_scroll_down(long);
131 void config_scroll_to_pos(long);
132 CONF_S *config_top_scroll(struct pine *, CONF_S *);
133 void update_option_screen(struct pine *, OPT_SCREEN_S *, Pos *);
134 void print_option_screen(OPT_SCREEN_S *, char *);
135 void option_screen_redrawer(void);
136 char *text_pretty_value(struct pine *, CONF_S *);
137 char *checkbox_pretty_value(struct pine *, CONF_S *);
138 char *yesno_pretty_value(struct pine *, CONF_S *);
139 char *radio_pretty_value(struct pine *, CONF_S *);
140 char *sigfile_pretty_value(struct pine *, CONF_S *);
141 char *color_pretty_value(struct pine *, CONF_S *);
142 char *sort_pretty_value(struct pine *, CONF_S *);
143 int longest_feature_name(void);
144 COLOR_PAIR *sample_color(struct pine *, struct variable *);
145 COLOR_PAIR *sampleexc_color(struct pine *, struct variable *);
146 void clear_feature(char ***, char *);
147 CONF_S *last_confline(CONF_S *);
148 #ifdef _WINDOWS
149 int config_scroll_callback(int, long);
150 #endif
151
152
153 /*
154 * We test for this same set of vars in a few places.
155 */
156 int
157 standard_radio_var(struct pine *ps, struct variable *v)
158 {
159 return(v == &ps->vars[V_SAVED_MSG_NAME_RULE] ||
160 v == &ps->vars[V_FCC_RULE] ||
161 v == &ps->vars[V_GOTO_DEFAULT_RULE] ||
162 v == &ps->vars[V_INCOMING_STARTUP] ||
163 v == &ps->vars[V_PRUNING_RULE] ||
164 v == &ps->vars[V_REOPEN_RULE] ||
165 v == &ps->vars[V_THREAD_DISP_STYLE] ||
166 v == &ps->vars[V_THREAD_INDEX_STYLE] ||
167 v == &ps->vars[V_FLD_SORT_RULE] ||
168 #ifndef _WINDOWS
169 v == &ps->vars[V_COLOR_STYLE] ||
170 #endif
171 v == &ps->vars[V_INDEX_COLOR_STYLE] ||
172 v == &ps->vars[V_TITLEBAR_COLOR_STYLE] ||
173 v == &ps->vars[V_AB_SORT_RULE]);
174 }
175
176
177 PTR_TO_RULEFUNC
178 rulefunc_from_var(struct pine *ps, struct variable *v)
179 {
180 PTR_TO_RULEFUNC rulefunc = NULL;
181
182 if(v == &ps->vars[V_SAVED_MSG_NAME_RULE])
183 rulefunc = save_msg_rules;
184 else if(v == &ps->vars[V_FCC_RULE])
185 rulefunc = fcc_rules;
186 else if(v == &ps->vars[V_GOTO_DEFAULT_RULE])
187 rulefunc = goto_rules;
188 else if(v == &ps->vars[V_INCOMING_STARTUP])
189 rulefunc = incoming_startup_rules;
190 else if(v == startup_ptr)
191 rulefunc = startup_rules;
192 else if(v == &ps->vars[V_PRUNING_RULE])
193 rulefunc = pruning_rules;
194 else if(v == &ps->vars[V_REOPEN_RULE])
195 rulefunc = reopen_rules;
196 else if(v == &ps->vars[V_THREAD_DISP_STYLE])
197 rulefunc = thread_disp_styles;
198 else if(v == &ps->vars[V_THREAD_INDEX_STYLE])
199 rulefunc = thread_index_styles;
200 else if(v == &ps->vars[V_FLD_SORT_RULE])
201 rulefunc = fld_sort_rules;
202 else if(v == &ps->vars[V_AB_SORT_RULE])
203 rulefunc = ab_sort_rules;
204 else if(v == &ps->vars[V_INDEX_COLOR_STYLE])
205 rulefunc = index_col_style;
206 else if(v == &ps->vars[V_TITLEBAR_COLOR_STYLE])
207 rulefunc = titlebar_col_style;
208 #ifndef _WINDOWS
209 else if(v == &ps->vars[V_COLOR_STYLE])
210 rulefunc = col_style;
211 #endif
212
213 return(rulefunc);
214 }
215
216
217 void
218 standard_radio_setup(struct pine *ps, CONF_S **cl, struct variable *v, CONF_S **first_line)
219 {
220 int i, rindent = 12;
221 CONF_S *ctmpb;
222 PTR_TO_RULEFUNC rulefunc;
223 NAMEVAL_S *f;
224 char b[100];
225
226 if(!(cl && *cl))
227 return;
228
229 rulefunc = rulefunc_from_var(ps, v);
230 ctmpb = (*cl);
231
232 (*cl)->flags |= CF_NOSELECT;
233 (*cl)->keymenu = &config_radiobutton_keymenu;
234 (*cl)->tool = NULL;
235
236 /* put a nice delimiter before list */
237 new_confline(cl)->var = NULL;
238 (*cl)->varnamep = ctmpb;
239 (*cl)->keymenu = &config_radiobutton_keymenu;
240 (*cl)->help = NO_HELP;
241 (*cl)->tool = radiobutton_tool;
242 (*cl)->valoffset = rindent;
243 (*cl)->flags |= CF_NOSELECT;
244 /* TRANSLATORS: Set and Rule Values are the headings for an option
245 that can take one of several values. Underneath the Set heading
246 will be a column where one possibility is turned on (is Set).
247 The other column will be very short descriptions of what
248 the possibilities are (the Rule Values). */
249 utf8_snprintf(b, sizeof(b), "%-5.5w %s", _("Set"), _("Rule Values"));
250 (*cl)->value = cpystr(b);
251
252 new_confline(cl)->var = NULL;
253 (*cl)->varnamep = ctmpb;
254 (*cl)->keymenu = &config_radiobutton_keymenu;
255 (*cl)->help = NO_HELP;
256 (*cl)->tool = radiobutton_tool;
257 (*cl)->valoffset = rindent;
258 (*cl)->flags |= CF_NOSELECT;
259 (*cl)->value = cpystr("--- ----------------------");
260
261 if(rulefunc)
262 for(i = 0; (f = (*rulefunc)(i)); i++){
263 new_confline(cl)->var = v;
264 if(first_line && !*first_line && !pico_usingcolor())
265 *first_line = (*cl);
266
267 (*cl)->varnamep = ctmpb;
268 (*cl)->keymenu = &config_radiobutton_keymenu;
269 (*cl)->help = (v == startup_ptr)
270 ? h_config_other_startup
271 : config_help(v - ps->vars,0);
272 (*cl)->tool = radiobutton_tool;
273 (*cl)->valoffset = rindent;
274 (*cl)->varmem = i;
275 (*cl)->value = pretty_value(ps, *cl);
276 }
277 }
278
279
280 /*
281 * Reset the displayed values for all of the lines for this
282 * variable because others besides this line may change.
283 */
284 void
285 set_radio_pretty_vals(struct pine *ps, CONF_S **cl)
286 {
287 CONF_S *ctmp;
288
289 if(!(cl && *cl &&
290 ((*cl)->var == &ps->vars[V_SORT_KEY] ||
291 standard_radio_var(ps, (*cl)->var) ||
292 (*cl)->var == startup_ptr)))
293 return;
294
295 /* hunt backwards */
296 for(ctmp = *cl;
297 ctmp && !(ctmp->flags & CF_NOSELECT) && !ctmp->varname;
298 ctmp = prev_confline(ctmp)){
299 if(ctmp->value)
300 fs_give((void **)&ctmp->value);
301
302 ctmp->value = pretty_value(ps, ctmp);
303 }
304
305 /* hunt forwards */
306 for(ctmp = *cl;
307 ctmp && !ctmp->varname && !(ctmp->flags & CF_NOSELECT);
308 ctmp = next_confline(ctmp)){
309 if(ctmp->value)
310 fs_give((void **)&ctmp->value);
311
312 ctmp->value = pretty_value(ps, ctmp);
313 }
314 }
315
316
317 /*
318 * test whether or not a var is
319 *
320 * returns: 1 if it should be excluded, 0 otw
321 */
322 int
323 exclude_config_var(struct pine *ps, struct variable *var, int allow_hard_to_config_remotely)
324 {
325 if((ew != Main && (var->is_onlymain)) ||
326 (ew != ps_global->ew_for_except_vars && var->is_outermost))
327 return(1);
328
329 if(allow_hard_to_config_remotely)
330 return(!(var->is_user && var->is_used && !var->is_obsolete));
331
332 switch(var - ps->vars){
333 case V_MAIL_DIRECTORY :
334 case V_INCOMING_FOLDERS :
335 case V_FOLDER_SPEC :
336 case V_NEWS_SPEC :
337 case V_STANDARD_PRINTER :
338 case V_LAST_TIME_PRUNE_QUESTION :
339 case V_LAST_VERS_USED :
340 case V_ADDRESSBOOK :
341 case V_GLOB_ADDRBOOK :
342 case V_DISABLE_DRIVERS :
343 case V_DISABLE_AUTHS :
344 case V_REMOTE_ABOOK_METADATA :
345 case V_REMOTE_ABOOK_HISTORY :
346 case V_REMOTE_ABOOK_VALIDITY :
347 case V_OPER_DIR :
348 case V_USERINPUTTIMEO :
349 case V_TCPOPENTIMEO :
350 case V_TCPREADWARNTIMEO :
351 case V_TCPWRITEWARNTIMEO :
352 case V_TCPQUERYTIMEO :
353 case V_RSHCMD :
354 case V_RSHPATH :
355 case V_RSHOPENTIMEO :
356 case V_SSHCMD :
357 case V_SSHPATH :
358 case V_SSHOPENTIMEO :
359 case V_SENDMAIL_PATH :
360 case V_NEW_VER_QUELL :
361 case V_PATTERNS :
362 case V_PAT_ROLES :
363 case V_PAT_FILTS :
364 case V_PAT_SCORES :
365 case V_PAT_INCOLS :
366 case V_PAT_OTHER :
367 case V_PAT_SRCH :
368 case V_PRINTER :
369 case V_PERSONAL_PRINT_COMMAND :
370 case V_PERSONAL_PRINT_CATEGORY :
371 case V_RSS_NEWS :
372 case V_RSS_WEATHER :
373 case V_WP_INDEXHEIGHT :
374 case V_WP_INDEXLINES :
375 case V_WP_AGGSTATE :
376 case V_WP_STATE :
377 case V_WP_COLUMNS :
378 #ifndef _WINDOWS
379 case V_OLD_CHAR_SET :
380 #endif /* ! _WINDOWS */
381 #if defined(DOS) || defined(OS2)
382 case V_UPLOAD_CMD :
383 case V_UPLOAD_CMD_PREFIX :
384 case V_DOWNLOAD_CMD :
385 case V_DOWNLOAD_CMD_PREFIX :
386 #ifdef _WINDOWS
387 case V_FONT_NAME :
388 case V_FONT_SIZE :
389 case V_FONT_STYLE :
390 case V_FONT_CHAR_SET :
391 case V_PRINT_FONT_NAME :
392 case V_PRINT_FONT_SIZE :
393 case V_PRINT_FONT_STYLE :
394 case V_PRINT_FONT_CHAR_SET :
395 case V_WINDOW_POSITION :
396 case V_CURSOR_STYLE :
397 #endif /* _WINDOWS */
398 #endif /* DOS */
399 #ifdef ENABLE_LDAP
400 case V_LDAP_SERVERS :
401 #endif /* ENABLE_LDAP */
402 return(1);
403
404 default:
405 break;
406 }
407
408 return(!(var->is_user && var->is_used && !var->is_obsolete &&
409 #ifdef SMIME
410 !smime_related_var(ps, var) &&
411 #endif /* SMIME */
412 !color_related_var(ps, var)));
413 }
414
415
416 /*
417 * Test to indicate what should be saved in case user wants to abandon
418 * changes.
419 */
420 int
421 save_include(struct pine *ps, struct variable *v, int allow_hard_to_config_remotely)
422 {
423 return(!exclude_config_var(ps, v, allow_hard_to_config_remotely)
424 || (v->is_user
425 && v->is_used
426 && !v->is_obsolete
427 && (v == &ps->vars[V_PERSONAL_PRINT_COMMAND]
428 #ifdef ENABLE_LDAP
429 || v == &ps->vars[V_LDAP_SERVERS]
430 #endif
431 )));
432 }
433
434
435 /*
436 * Handles screen painting and motion. Passes other commands to
437 * custom tools.
438 *
439 * Tool return values: Tools should return the following:
440 * 0 nothing changed
441 * -1 unrecognized command
442 * 1 something changed, conf_scroll_screen should remember that
443 * 2 tells conf_scroll_screen to return with value 1 or 0 depending
444 * on whether or not it has previously gotten a 1 from some tool.
445 * 3 tells conf_scroll_screen to return 1 (like 1 and 2 combined)
446 * ? Other tool-specific values can be used. They will cause
447 * conf_scroll_screen to return that value.
448 *
449 * Return values:
450 * 0 if nothing happened. That is, a tool returned 2 and we hadn't
451 * previously noted a return of 1
452 * 1 if something happened. That is, a tool returned 2 and we had
453 * previously noted a return of 1
454 * ? Tool-returned value different from -1, 0, 1, 2, or 3. This is it.
455 *
456 * Special proviso: If first_line->flags has CF_CHANGES set on entry, then
457 * that will cause things to behave like a change was made since entering
458 * this function.
459 */
460 int
461 conf_scroll_screen(struct pine *ps, OPT_SCREEN_S *screen, CONF_S *start_line, char *title, char *pdesc, int multicol)
462 {
463 char tmp[MAXPATH+1];
464 char *utf8str;
465 UCS ch = 'x';
466 int cmd, i, j, done = 0, changes = 0;
467 int retval = 0;
468 int km_popped = 0, stay_in_col = 0;
469 struct key_menu *km = NULL;
470 CONF_S *ctmpa = NULL, *ctmpb = NULL;
471 Pos cursor_pos;
472 OtherMenu what_keymenu = FirstMenu;
473 void (*prev_redrawer)(void);
474
475 dprint((7, "conf_scroll_screen()\n"));
476
477 if(BODY_LINES(ps) < 1){
478 q_status_message(SM_ORDER | SM_DING, 3, 3, _("Screen too small"));
479 return(0);
480 }
481
482 if(screen && screen->ro_warning)
483 q_status_message1(SM_ORDER, 1, 3,
484 /* TRANSLATORS: "Config file not changeable," is what replaces the %s */
485 _("%s can't change options or settings"),
486 ps_global->restricted ? "Alpine demo"
487 : _("Config file not changeable,"));
488
489 screen->current = start_line;
490 if(start_line && start_line->flags & CF_CHANGES)
491 changes++;
492
493 opt_screen = screen;
494 ps->mangled_screen = 1;
495 ps->redrawer = option_screen_redrawer;
496
497 while(!done){
498 ps->user_says_cancel = 0;
499 if(km_popped){
500 km_popped--;
501 if(km_popped == 0){
502 clearfooter(ps);
503 ps->mangled_body = 1;
504 }
505 }
506
507 if(ps->mangled_screen){
508 ps->mangled_header = 1;
509 ps->mangled_footer = 1;
510 ps->mangled_body = 1;
511 ps->mangled_screen = 0;
512 }
513
514 /*----------- Check for new mail -----------*/
515 if(new_mail(0, NM_TIMING(ch), NM_STATUS_MSG | NM_DEFER_SORT) >= 0)
516 ps->mangled_header = 1;
517
518 if(ps->mangled_header){
519 set_titlebar(title, ps->mail_stream,
520 ps->context_current,
521 ps->cur_folder, ps->msgmap, 1, FolderName, 0, 0, NULL);
522 ps->mangled_header = 0;
523 }
524
525 update_option_screen(ps, screen, &cursor_pos);
526
527 if(F_OFF(F_SHOW_CURSOR, ps)){
528 cursor_pos.row = ps->ttyo->screen_rows - FOOTER_ROWS(ps);
529 cursor_pos.col = 0;
530 }
531
532 /*---- This displays new mail notification, or errors ---*/
533 if(km_popped){
534 FOOTER_ROWS(ps) = 3;
535 mark_status_unknown();
536 }
537
538 display_message(ch);
539 if(km_popped){
540 FOOTER_ROWS(ps) = 1;
541 mark_status_unknown();
542 }
543
544 if(ps->mangled_footer || km != screen->current->keymenu){
545 bitmap_t bitmap;
546
547 setbitmap(bitmap);
548
549 ps->mangled_footer = 0;
550 km = screen->current->keymenu;
551
552 if(multicol &&
553 (F_OFF(F_ARROW_NAV, ps_global) ||
554 F_ON(F_RELAXED_ARROW_NAV, ps_global))){
555 menu_clear_binding(km, KEY_LEFT);
556 menu_clear_binding(km, KEY_RIGHT);
557 menu_clear_binding(km, KEY_UP);
558 menu_clear_binding(km, KEY_DOWN);
559 menu_add_binding(km, KEY_UP, MC_CHARUP);
560 menu_add_binding(km, KEY_DOWN, MC_CHARDOWN);
561 menu_add_binding(km, KEY_LEFT, MC_PREVITEM);
562 menu_add_binding(km, ctrl('B'), MC_PREVITEM);
563 menu_add_binding(km, KEY_RIGHT, MC_NEXTITEM);
564 menu_add_binding(km, ctrl('F'), MC_NEXTITEM);
565 }
566 else{
567 menu_clear_binding(km, KEY_LEFT);
568 menu_clear_binding(km, KEY_RIGHT);
569 menu_clear_binding(km, KEY_UP);
570 menu_clear_binding(km, KEY_DOWN);
571
572 /*
573 * Fix up arrow nav mode if necessary...
574 */
575 if(F_ON(F_ARROW_NAV, ps_global)){
576 int cmd;
577
578 if((cmd = menu_clear_binding(km, '<')) != MC_UNKNOWN){
579 menu_add_binding(km, '<', cmd);
580 menu_add_binding(km, KEY_LEFT, cmd);
581 }
582
583 if((cmd = menu_clear_binding(km, '>')) != MC_UNKNOWN){
584 menu_add_binding(km, '>', cmd);
585 menu_add_binding(km, KEY_RIGHT, cmd);
586 }
587
588 if((cmd = menu_clear_binding(km, 'p')) != MC_UNKNOWN){
589 menu_add_binding(km, 'p', cmd);
590 menu_add_binding(km, KEY_UP, cmd);
591 }
592
593 if((cmd = menu_clear_binding(km, 'n')) != MC_UNKNOWN){
594 menu_add_binding(km, 'n', cmd);
595 menu_add_binding(km, KEY_DOWN, cmd);
596 }
597 }
598 }
599
600 if(km_popped){
601 FOOTER_ROWS(ps) = 3;
602 clearfooter(ps);
603 }
604
605 draw_keymenu(km, bitmap, ps->ttyo->screen_cols,
606 1-FOOTER_ROWS(ps), 0, what_keymenu);
607 what_keymenu = SameMenu;
608
609 if(km_popped){
610 FOOTER_ROWS(ps) = 1;
611 mark_keymenu_dirty();
612 }
613 }
614
615 MoveCursor(cursor_pos.row, cursor_pos.col);
616 #ifdef MOUSE
617 mouse_in_content(KEY_MOUSE, -1, -1, 0, 0); /* prime the handler */
618 register_mfunc(mouse_in_content, HEADER_ROWS(ps_global), 0,
619 ps_global->ttyo->screen_rows -(FOOTER_ROWS(ps_global)+1),
620 ps_global->ttyo->screen_cols);
621 #endif
622 #ifdef _WINDOWS
623 mswin_setscrollcallback(config_scroll_callback);
624 #endif
625 /*------ Read the command from the keyboard ----*/
626 ch = READ_COMMAND(&utf8str);
627 #ifdef MOUSE
628 clear_mfunc(mouse_in_content);
629 #endif
630 #ifdef _WINDOWS
631 mswin_setscrollcallback(NULL);
632 #endif
633
634 cmd = menu_command(ch, km);
635
636 if(km_popped)
637 switch(cmd){
638 case MC_NONE:
639 case MC_OTHER:
640 case MC_RESIZE:
641 case MC_REPAINT:
642 km_popped++;
643 break;
644
645 default:
646 clearfooter(ps);
647 break;
648 }
649
650 switch(cmd){
651 case MC_OTHER :
652 what_keymenu = NextMenu;
653 ps->mangled_footer = 1;
654 break;
655
656 case MC_HELP: /* help! */
657 if(FOOTER_ROWS(ps) == 1 && km_popped == 0){
658 km_popped = 2;
659 ps->mangled_footer = 1;
660 break;
661 }
662
663 if(screen->current->help != NO_HELP){
664 prev_redrawer = ps_global->redrawer;
665 helper(screen->current->help,
666 (screen->current->help_title)
667 ? screen->current->help_title
668 : CONFIG_SCREEN_HELP_TITLE,
669 HLPD_SIMPLE);
670 ps_global->redrawer = prev_redrawer;
671 ps->mangled_screen = 1;
672 }
673 else
674 q_status_message(SM_ORDER,0,3,_("No help yet."));
675
676 break;
677
678
679 case MC_NEXTITEM: /* next list element */
680 case MC_CHARDOWN:
681 stay_in_col = 0;
682 if(screen->current->flags & CF_DOUBLEVAR){
683 /* if going from col1 to col2, it's simple */
684 if(!(screen->current->flags & CF_VAR2) && cmd == MC_NEXTITEM){
685 screen->current->flags |= CF_VAR2;
686 break;
687 }
688
689 /* otherwise we fall through to normal next */
690 stay_in_col = (screen->current->flags & CF_VAR2 &&
691 cmd == MC_CHARDOWN);
692 screen->current->flags &= ~CF_VAR2;
693 }
694
695 for(ctmpa = next_confline(screen->current), i = 1;
696 ctmpa && (ctmpa->flags & CF_NOSELECT);
697 ctmpa = next_confline(ctmpa), i++)
698 ;
699
700 if(ctmpa){
701 screen->current = ctmpa;
702 if(screen->current->flags & CF_DOUBLEVAR && stay_in_col)
703 screen->current->flags |= CF_VAR2;
704
705 if(cmd == MC_CHARDOWN){
706 for(ctmpa = screen->top_line,
707 j = BODY_LINES(ps) - 1 - HS_MARGIN(ps);
708 j > 0 && ctmpa && ctmpa != screen->current;
709 ctmpa = next_confline(ctmpa), j--)
710 ;
711
712 if(!j && ctmpa){
713 for(i = 0;
714 ctmpa && ctmpa != screen->current;
715 ctmpa = next_confline(ctmpa), i++)
716 ;
717
718 if(i)
719 config_scroll_up(i);
720 }
721 }
722 }
723 else{
724 /*
725 * Scroll screen a bit so we show the non-selectable
726 * lines at the bottom.
727 */
728
729 /* set ctmpa to the bottom line on the screen */
730 for(ctmpa = screen->top_line, j = BODY_LINES(ps) - 1;
731 j > 0 && ctmpa;
732 ctmpa = next_confline(ctmpa), j--)
733 ;
734
735 i = 0;
736 if(ctmpa){
737 for(ctmpa = next_confline(ctmpa);
738 ctmpa &&
739 (ctmpa->flags & (CF_NOSELECT | CF_B_LINE)) ==
740 CF_NOSELECT;
741 ctmpa = next_confline(ctmpa), i++)
742 ;
743 }
744
745 if(i)
746 config_scroll_up(i);
747 else
748 q_status_message(SM_ORDER,0,1, _("Already at end of screen"));
749 }
750
751 break;
752
753 case MC_PREVITEM: /* prev list element */
754 case MC_CHARUP:
755 stay_in_col = 0;
756 if(screen->current->flags & CF_DOUBLEVAR){
757 if(screen->current->flags & CF_VAR2 && cmd == MC_PREVITEM){
758 screen->current->flags &= ~CF_VAR2;
759 break;
760 }
761
762 /* otherwise we fall through to normal prev */
763 stay_in_col = (!(screen->current->flags & CF_VAR2) &&
764 cmd == MC_CHARUP);
765 screen->current->flags &= ~CF_VAR2;
766 }
767 else if(cmd == MC_CHARUP)
768 stay_in_col = 1;
769
770 ctmpa = screen->current;
771 i = 0;
772 do
773 if(ctmpa == config_top_scroll(ps, screen->top_line))
774 i = 1;
775 else if(i)
776 i++;
777 while((ctmpa = prev_confline(ctmpa))
778 && (ctmpa->flags&CF_NOSELECT));
779
780 if(ctmpa){
781 screen->current = ctmpa;
782 if(screen->current->flags & CF_DOUBLEVAR && !stay_in_col)
783 screen->current->flags |= CF_VAR2;
784
785 if((cmd == MC_CHARUP) && i)
786 config_scroll_down(i);
787 }
788 else
789 q_status_message(SM_ORDER, 0, 1,
790 _("Already at start of screen"));
791
792 break;
793
794 case MC_PAGEDN: /* page forward */
795 screen->current->flags &= ~CF_VAR2;
796 for(ctmpa = screen->top_line, i = BODY_LINES(ps);
797 i > 0 && ctmpa;
798 ctmpb = ctmpa, ctmpa = next_confline(ctmpa), i--)
799 ;
800
801 if(ctmpa){ /* first line off bottom of screen */
802 ctmpb = ctmpa;
803 ps->mangled_body = 1;
804 /* find first selectable line on next page */
805 for(screen->top_line = ctmpa;
806 ctmpa && (ctmpa->flags & CF_NOSELECT);
807 ctmpa = next_confline(ctmpa))
808 ;
809
810 /*
811 * No selectable lines on next page. Slide up to first
812 * selectable.
813 */
814 if(!ctmpa){
815 for(ctmpa = prev_confline(ctmpb);
816 ctmpa && (ctmpa->flags & CF_NOSELECT);
817 ctmpa = prev_confline(ctmpa))
818 ;
819
820 if(ctmpa)
821 screen->top_line = ctmpa;
822 }
823 }
824 else{ /* on last screen */
825 /* just move current down to last entry on screen */
826 if(ctmpb){ /* last line of data */
827 for(ctmpa = ctmpb, i = BODY_LINES(ps);
828 i > 0 && ctmpa && (ctmpa->flags & CF_NOSELECT);
829 ctmpa = prev_confline(ctmpa), i--)
830 ;
831
832 if(ctmpa == screen->current){
833 q_status_message(SM_ORDER,0,1,
834 _("Already at end of screen"));
835 goto no_down;
836 }
837
838 ps->mangled_body = 1;
839 }
840 }
841
842 if(ctmpa)
843 screen->current = ctmpa;
844 no_down:
845 break;
846
847 case MC_PAGEUP: /* page backward */
848 ps->mangled_body = 1;
849 screen->current->flags &= ~CF_VAR2;
850 if(!(ctmpa=prev_confline(screen->top_line)))
851 ctmpa = screen->current;
852
853 for(i = BODY_LINES(ps) - 1;
854 i > 0 && prev_confline(ctmpa);
855 i--, ctmpa = prev_confline(ctmpa))
856 ;
857
858 for(screen->top_line = ctmpa;
859 ctmpa && (ctmpa->flags & CF_NOSELECT);
860 ctmpa = next_confline(ctmpa))
861 ;
862
863 if(ctmpa){
864 if(ctmpa == screen->current){
865 /*
866 * We get to here if there was nothing selectable on
867 * the previous page. There still may be something
868 * selectable further back than the previous page,
869 * so look for that.
870 */
871 for(ctmpa = prev_confline(screen->top_line);
872 ctmpa && (ctmpa->flags & CF_NOSELECT);
873 ctmpa = prev_confline(ctmpa))
874 ;
875
876 if(!ctmpa){
877 ctmpa = screen->current;
878 q_status_message(SM_ORDER, 0, 1,
879 _("Already at start of screen"));
880 }
881 }
882
883 screen->current = ctmpa;
884 }
885
886 break;
887
888 #ifdef MOUSE
889 case MC_MOUSE:
890 {
891 MOUSEPRESS mp;
892
893 mouse_get_last (NULL, &mp);
894 mp.row -= HEADER_ROWS(ps);
895 ctmpa = screen->top_line;
896
897 while (mp.row && ctmpa != NULL) {
898 --mp.row;
899 ctmpa = ctmpa->next;
900 }
901
902 if (ctmpa != NULL && !(ctmpa->flags & CF_NOSELECT)){
903 if(screen->current->flags & CF_DOUBLEVAR)
904 screen->current->flags &= ~CF_VAR2;
905
906 screen->current = ctmpa;
907
908 if(screen->current->flags & CF_DOUBLEVAR &&
909 mp.col >= screen->current->val2offset)
910 screen->current->flags |= CF_VAR2;
911
912 update_option_screen(ps, screen, &cursor_pos);
913
914 if(mp.button == M_BUTTON_LEFT && mp.doubleclick){
915
916 if(screen->current->tool){
917 unsigned flags;
918 int default_cmd;
919
920 flags = screen->current->flags;
921 flags |= (changes ? CF_CHANGES : 0);
922
923 default_cmd = menu_command(ctrl('M'), km);
924 switch(i=(*screen->current->tool)(ps, default_cmd,
925 &screen->current, flags)){
926 case -1:
927 case 0:
928 break;
929
930 case 1:
931 changes = 1;
932 break;
933
934 case 2:
935 retval = changes;
936 done++;
937 break;
938
939 case 3:
940 retval = 1;
941 done++;
942 break;
943
944 default:
945 retval = i;
946 done++;
947 break;
948 }
949 }
950 }
951 #ifdef _WINDOWS
952 else if(mp.button == M_BUTTON_RIGHT) {
953 MPopup other_popup[20];
954 int n = -1, cmd, i;
955 struct key_menu *sckm = screen->current->keymenu; /* only for popup */
956
957 if((cmd = menu_command(ctrl('M'), sckm)) != MC_UNKNOWN){
958 i = menu_binding_index(sckm, cmd);
959 other_popup[++n].type = tQueue;
960 other_popup[n].label.style = lNormal;
961 other_popup[n].label.string = sckm->keys[i].label;
962 other_popup[n].data.val = ctrl('M');
963 }
964 else if((cmd = menu_command('>', sckm)) != MC_UNKNOWN){
965 i = menu_binding_index(sckm, cmd);
966 other_popup[++n].type = tQueue;
967 other_popup[n].label.style = lNormal;
968 other_popup[n].label.string = sckm->keys[i].label;
969 other_popup[n].data.val = '>';
970 }
971
972 if(((i = menu_binding_index(sckm, MC_RGB1)) >= 0) ||
973 ((i = menu_binding_index(sckm, MC_RGB2)) >= 0)){
974 other_popup[++n].type = tQueue;
975 other_popup[n].label.style = lNormal;
976 other_popup[n].label.string = sckm->keys[i].label;
977 other_popup[n].data.val =
978 sckm->keys[i].bind.ch[0];
979 }
980
981 if((cmd = menu_command('<', sckm)) != MC_UNKNOWN){
982 i = menu_binding_index(sckm, cmd);
983 other_popup[++n].type = tQueue;
984 other_popup[n].label.style = lNormal;
985 other_popup[n].label.string = sckm->keys[i].label;
986 other_popup[n].data.val = '<';
987 }
988 else if((i = menu_binding_index(sckm, MC_EXIT)) >= 0){
989 other_popup[++n].type = tQueue;
990 other_popup[n].label.style = lNormal;
991 other_popup[n].label.string = sckm->keys[i].label;
992 other_popup[n].data.val =
993 sckm->keys[i].bind.ch[0];
994 }
995
996 if((i = menu_binding_index(sckm, MC_HELP)) >= 0){
997 if(n > 0)
998 other_popup[++n].type = tSeparator;
999
1000 other_popup[++n].type = tQueue;
1001 other_popup[n].label.style = lNormal;
1002 other_popup[n].label.string = sckm->keys[i].label;
1003 other_popup[n].data.val = sckm->keys[i].bind.ch[0];
1004 }
1005
1006 if(n > 0){
1007 other_popup[++n].type = tTail;
1008 mswin_popup(other_popup);
1009 }
1010 }
1011 }
1012 else if(mp.button == M_BUTTON_RIGHT) {
1013 MPopup other_popup[20];
1014 int n = -1, cmd, i;
1015 struct key_menu *sckm = screen->current->keymenu; /* only for popup */
1016
1017 if((cmd = menu_command('<', sckm)) != MC_UNKNOWN){
1018 i = menu_binding_index(sckm, cmd);
1019 other_popup[++n].type = tQueue;
1020 other_popup[n].label.style = lNormal;
1021 other_popup[n].label.string = sckm->keys[i].label;
1022 other_popup[n].data.val = '<';
1023 }
1024 else if((i = menu_binding_index(sckm, MC_EXIT)) >= 0){
1025 other_popup[++n].type = tQueue;
1026 other_popup[n].label.style = lNormal;
1027 other_popup[n].label.string = sckm->keys[i].label;
1028 other_popup[n].data.val = sckm->keys[i].bind.ch[0];
1029 }
1030
1031 other_popup[++n].type = tTail;
1032
1033 if(n > 0)
1034 mswin_popup(other_popup);
1035 #endif
1036 }
1037 }
1038 break;
1039 #endif
1040
1041 case MC_PRINTTXT: /* print screen */
1042 print_option_screen(screen, pdesc ? pdesc : "");
1043 break;
1044
1045 case MC_WHEREIS: /* whereis */
1046 /*--- get string ---*/
1047 {int rc, found = 0;
1048 #define FOUND_IT 0x01
1049 #define FOUND_CURRENT 0x02
1050 #define FOUND_WRAPPED 0x04
1051 #define FOUND_NOSELECT 0x08
1052 #define FOUND_ABOVE 0x10
1053 char *result = NULL, buf[64];
1054 char *p, last[64];
1055 static HISTORY_S *history = NULL;
1056 HelpType help;
1057 static ESCKEY_S ekey[] = {
1058 {0, 0, "", ""},
1059 /* TRANSLATORS: go to Top of screen */
1060 {ctrl('Y'), 10, "^Y", N_("Top")},
1061 {ctrl('V'), 11, "^V", N_("Bottom")},
1062 {KEY_UP, 30, "", ""},
1063 {KEY_DOWN, 31, "", ""},
1064 {-1, 0, NULL, NULL}};
1065 #define KU_WI (3) /* index of KEY_UP */
1066
1067 init_hist(&history, HISTSIZE);
1068 last[0] = '\0';
1069 if((p = get_prev_hist(history, "", 0, NULL)) != NULL){
1070 strncpy(last, p, sizeof(last));
1071 last[sizeof(last)-1] = '\0';
1072 }
1073
1074 ps->mangled_footer = 1;
1075 buf[0] = '\0';
1076 snprintf(tmp, sizeof(tmp), "Word to find %s%s%s: ",
1077 (last[0]) ? "[" : "",
1078 (last[0]) ? last : "",
1079 (last[0]) ? "]" : "");
1080 tmp[sizeof(tmp)-1] = '\0';
1081 help = NO_HELP;
1082 while(1){
1083 int flags = OE_APPEND_CURRENT;
1084
1085 /*
1086 * 2 is really 1 because there will be one real entry and
1087 * one entry of "" because of the get_prev_hist above.
1088 */
1089 if(items_in_hist(history) > 2){
1090 ekey[KU_WI].name = HISTORY_UP_KEYNAME;
1091 ekey[KU_WI].label = HISTORY_KEYLABEL;
1092 ekey[KU_WI+1].name = HISTORY_DOWN_KEYNAME;
1093 ekey[KU_WI+1].label = HISTORY_KEYLABEL;
1094 }
1095 else{
1096 ekey[KU_WI].name = "";
1097 ekey[KU_WI].label = "";
1098 ekey[KU_WI+1].name = "";
1099 ekey[KU_WI+1].label = "";
1100 }
1101
1102 rc = optionally_enter(buf,-FOOTER_ROWS(ps),0,sizeof(buf),
1103 tmp,ekey,help,&flags);
1104 if(rc == 3)
1105 help = help == NO_HELP ? h_config_whereis : NO_HELP;
1106 else if(rc == 30){
1107 if((p = get_prev_hist(history, buf, 0, NULL)) != NULL){
1108 strncpy(buf, p, sizeof(buf));
1109 buf[sizeof(buf)-1] = '\0';
1110 }
1111 else
1112 Writechar(BELL, 0);
1113
1114 continue;
1115 }
1116 else if(rc == 31){
1117 if((p = get_next_hist(history, buf, 0, NULL)) != NULL){
1118 strncpy(buf, p, sizeof(buf));
1119 buf[sizeof(buf)-1] = '\0';
1120 }
1121 else
1122 Writechar(BELL, 0);
1123
1124 continue;
1125 }
1126 else if(rc == 0 || rc == 1 || rc == 10 || rc == 11 || !buf[0]){
1127 if(rc == 0 && !buf[0] && last[0])
1128 strncpy(buf, last, 64);
1129
1130 break;
1131 }
1132 }
1133
1134 screen->current->flags &= ~CF_VAR2;
1135 if(rc == 0 && buf[0]){
1136 CONF_S *started_here;
1137
1138 save_hist(history, buf, 0, NULL);
1139
1140 ch = KEY_DOWN;
1141 ctmpa = screen->current;
1142 /*
1143 * Skip over the unselectable lines of this "item"
1144 * before starting search so that we don't find the
1145 * same one again.
1146 */
1147 while((ctmpb = next_confline(ctmpa)) &&
1148 (ctmpb->flags & CF_NOSELECT) &&
1149 !(ctmpb->flags & CF_STARTITEM))
1150 ctmpa = ctmpb;
1151
1152 started_here = next_confline(ctmpa);
1153 while((ctmpa = next_confline(ctmpa)) != NULL)
1154 if(srchstr(ctmpa->varname, buf)
1155 || srchstr(ctmpa->value, buf)){
1156
1157 found = FOUND_IT;
1158 /*
1159 * If this line is not selectable, back up to the
1160 * previous selectable line, but not past the
1161 * start of this "entry".
1162 */
1163 if(ctmpa->flags & CF_NOSELECT)
1164 found |= FOUND_NOSELECT;
1165
1166 while((ctmpa->flags & CF_NOSELECT) &&
1167 !(ctmpa->flags & CF_STARTITEM) &&
1168 (ctmpb = prev_confline(ctmpa)))
1169 ctmpa = ctmpb;
1170
1171 /*
1172 * If that isn't selectable, better search forward
1173 * for something that is.
1174 */
1175 while((ctmpa->flags & CF_NOSELECT) &&
1176 (ctmpb = next_confline(ctmpa))){
1177 ctmpa = ctmpb;
1178 found |= FOUND_ABOVE;
1179 }
1180
1181 /*
1182 * If that still isn't selectable, better search
1183 * backwards for something that is.
1184 */
1185 while((ctmpa->flags & CF_NOSELECT) &&
1186 (ctmpb = prev_confline(ctmpa))){
1187 ctmpa = ctmpb;
1188 found &= ~FOUND_ABOVE;
1189 }
1190
1191 break;
1192 }
1193
1194 if(!found){
1195 found = FOUND_WRAPPED;
1196 ctmpa = first_confline(screen->current);
1197
1198 while(ctmpa != started_here)
1199 if(srchstr(ctmpa->varname, buf)
1200 || srchstr(ctmpa->value, buf)){
1201
1202 found |= FOUND_IT;
1203 if(ctmpa->flags & CF_NOSELECT)
1204 found |= FOUND_NOSELECT;
1205
1206 while((ctmpa->flags & CF_NOSELECT) &&
1207 !(ctmpa->flags & CF_STARTITEM) &&
1208 (ctmpb = prev_confline(ctmpa)))
1209 ctmpa = ctmpb;
1210
1211 while((ctmpa->flags & CF_NOSELECT) &&
1212 (ctmpb = next_confline(ctmpa))){
1213 ctmpa = ctmpb;
1214 found |= FOUND_ABOVE;
1215 }
1216
1217 if(ctmpa == screen->current)
1218 found |= FOUND_CURRENT;
1219
1220 break;
1221 }
1222 else
1223 ctmpa = next_confline(ctmpa);
1224 }
1225 }
1226 else if(rc == 10){
1227 screen->current = first_confline(screen->current);
1228 if(screen->current && screen->current->flags & CF_NOSELECT){
1229 for(ctmpa = next_confline(screen->current);
1230 ctmpa && (ctmpa->flags & CF_NOSELECT);
1231 ctmpa = next_confline(ctmpa))
1232 ;
1233
1234 if(ctmpa)
1235 screen->current = ctmpa;
1236 }
1237
1238 /* TRANSLATORS: Searched to ... is the result of the search, searched
1239 to top means the search went past the bottom of the screen and
1240 wrapped back around to the top. */
1241 result = _("Searched to top");
1242 }
1243 else if(rc == 11){
1244 screen->current = last_confline(screen->current);
1245 if(screen->current && screen->current->flags & CF_NOSELECT){
1246 for(ctmpa = prev_confline(screen->current);
1247 ctmpa && (ctmpa->flags & CF_NOSELECT);
1248 ctmpa = prev_confline(ctmpa))
1249 ;
1250
1251 if(ctmpa)
1252 screen->current = ctmpa;
1253 }
1254
1255 result = _("Searched to bottom");
1256 }
1257 else
1258 result = _("WhereIs cancelled");
1259
1260 if((found & FOUND_IT) && ctmpa){
1261 strncpy(last, buf, 64);
1262 result =
1263 (found & FOUND_CURRENT && found & FOUND_WRAPPED && found & FOUND_NOSELECT)
1264 ? _("Current item contains the only match")
1265 : (found & FOUND_CURRENT && found & FOUND_WRAPPED)
1266 ? _("Current line contains the only match")
1267 : (found & FOUND_NOSELECT && found & FOUND_WRAPPED)
1268 ? ((found & FOUND_ABOVE)
1269 ? _("Search wrapped: word found in text above current line")
1270 : _("Search wrapped: word found in text below current line"))
1271 : (found & FOUND_WRAPPED)
1272 ? _("Search wrapped to beginning: word found")
1273 : (found & FOUND_NOSELECT)
1274 ? ((found & FOUND_ABOVE)
1275 ? _("Word found in text above current line")
1276 : _("Word found in text below current line"))
1277 : _("Word found");
1278 screen->current = ctmpa;
1279 }
1280
1281 q_status_message(SM_ORDER,0,3,result ? result : _("Word not found"));
1282 }
1283
1284 break;
1285
1286 case MC_HOMEKEY:
1287 screen->current = first_confline(screen->current);
1288 if(screen->current && screen->current->flags & CF_NOSELECT){
1289 for(ctmpa = next_confline(screen->current);
1290 ctmpa && (ctmpa->flags & CF_NOSELECT);
1291 ctmpa = next_confline(ctmpa))
1292 ;
1293
1294 if(ctmpa)
1295 screen->current = ctmpa;
1296 }
1297
1298 q_status_message(SM_ORDER,0,3, _("Moved to top"));
1299 break;
1300
1301 case MC_ENDKEY:
1302 screen->current = last_confline(screen->current);
1303 if(screen->current && screen->current->flags & CF_NOSELECT){
1304 for(ctmpa = prev_confline(screen->current);
1305 ctmpa && (ctmpa->flags & CF_NOSELECT);
1306 ctmpa = prev_confline(ctmpa))
1307 ;
1308
1309 if(ctmpa)
1310 screen->current = ctmpa;
1311 }
1312
1313 q_status_message(SM_ORDER,0,3, _("Moved to bottom"));
1314 break;
1315
1316 case MC_REPAINT: /* redraw the display */
1317 case MC_RESIZE:
1318 ClearScreen();
1319 ps->mangled_screen = 1;
1320 break;
1321
1322 default:
1323 if(screen && screen->ro_warning){
1324 if(cmd == MC_EXIT){
1325 retval = 0;
1326 done++;
1327 }
1328 else
1329 q_status_message1(SM_ORDER|SM_DING, 1, 3,
1330 _("%s can't change options or settings"),
1331 ps_global->restricted ? "Alpine demo"
1332 : _("Config file not changeable,"));
1333 }
1334 else if(screen->current->tool){
1335 unsigned flags;
1336
1337 flags = screen->current->flags;
1338 flags |= (changes ? CF_CHANGES : 0);
1339
1340 switch(i=(*screen->current->tool)(ps, cmd,
1341 &screen->current, flags)){
1342 case -1:
1343 q_status_message2(SM_ORDER, 0, 2,
1344 /* TRANSLATORS: Command <command letter> not defined here.
1345 Leave the trailing %s which might be a parenthetical
1346 remark. */
1347 _("Command \"%s\" not defined here.%s"),
1348 pretty_command(ch),
1349 F_ON(F_BLANK_KEYMENU,ps) ? "" : " See key menu below.");
1350 break;
1351
1352 case 0:
1353 break;
1354
1355 case 1:
1356 changes = 1;
1357 break;
1358
1359 case 2:
1360 retval = changes;
1361 done++;
1362 break;
1363
1364 case 3:
1365 retval = 1;
1366 done++;
1367 break;
1368
1369 default:
1370 retval = i;
1371 done++;
1372 break;
1373 }
1374 }
1375
1376 break;
1377
1378 case MC_UTF8:
1379 bogus_utf8_command(utf8str, "?");
1380 break;
1381
1382 case MC_NONE: /* simple timeout */
1383 break;
1384 }
1385 }
1386
1387 screen->current = first_confline(screen->current);
1388 free_conflines(&screen->current);
1389 return(retval);
1390 }
1391
1392
1393 /*
1394 *
1395 */
1396 void
1397 config_scroll_up(long int n)
1398 {
1399 CONF_S *ctmp = opt_screen->top_line;
1400 int cur_found = 0;
1401
1402 if(n < 0)
1403 config_scroll_down(-n);
1404 else if(n){
1405 for(; n>0 && ctmp->next; n--){
1406 ctmp = next_confline(ctmp);
1407 if(prev_confline(ctmp) == opt_screen->current)
1408 cur_found++;
1409 }
1410
1411 opt_screen->top_line = ctmp;
1412 ps_global->mangled_body = 1;
1413 if(cur_found){
1414 for(ctmp = opt_screen->top_line;
1415 ctmp && (ctmp->flags & CF_NOSELECT);
1416 ctmp = next_confline(ctmp))
1417 ;
1418
1419 if(ctmp)
1420 opt_screen->current = opt_screen->prev = ctmp;
1421 else {
1422 while(opt_screen->top_line->flags & CF_NOSELECT)
1423 opt_screen->top_line = prev_confline(opt_screen->top_line);
1424 opt_screen->current = opt_screen->prev = opt_screen->top_line;
1425 }
1426 }
1427 }
1428 }
1429
1430
1431 /*
1432 * config_scroll_down -
1433 */
1434 void
1435 config_scroll_down(long int n)
1436 {
1437 CONF_S *ctmp = opt_screen->top_line, *last_sel = NULL;
1438 int i;
1439
1440 if(n < 0)
1441 config_scroll_up(-n);
1442 else if(n){
1443 for(; n>0 && ctmp->prev; n--)
1444 ctmp = prev_confline(ctmp);
1445
1446 opt_screen->top_line = ctmp;
1447 ps_global->mangled_body = 1;
1448 for(ctmp = opt_screen->top_line, i = BODY_LINES(ps_global);
1449 i > 0 && ctmp && ctmp != opt_screen->current;
1450 ctmp = next_confline(ctmp), i--)
1451 if(!(ctmp->flags & CF_NOSELECT))
1452 last_sel = ctmp;
1453
1454 if(!i && last_sel)
1455 opt_screen->current = opt_screen->prev = last_sel;
1456 }
1457 }
1458
1459
1460 /*
1461 * config_scroll_to_pos -
1462 */
1463 void
1464 config_scroll_to_pos(long int n)
1465 {
1466 CONF_S *ctmp;
1467
1468 for(ctmp = first_confline(opt_screen->current);
1469 n && ctmp && ctmp != opt_screen->top_line;
1470 ctmp = next_confline(ctmp), n--)
1471 ;
1472
1473 if(n == 0)
1474 while(ctmp && ctmp != opt_screen->top_line)
1475 if((ctmp = next_confline(ctmp)) != NULL)
1476 n--;
1477
1478 config_scroll_up(n);
1479 }
1480
1481
1482 /*
1483 * config_top_scroll - return pointer to the
1484 */
1485 CONF_S *
1486 config_top_scroll(struct pine *ps, CONF_S *topline)
1487 {
1488 int i;
1489 CONF_S *ctmp;
1490
1491 for(ctmp = topline, i = HS_MARGIN(ps);
1492 ctmp && i;
1493 ctmp = next_confline(ctmp), i--)
1494 ;
1495
1496 return(ctmp ? ctmp : topline);
1497 }
1498
1499
1500 int
1501 text_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
1502 {
1503 return(text_toolit(ps, cmd, cl, flags, 0));
1504 }
1505
1506
1507 /*
1508 * simple text variable handler
1509 *
1510 * note, things get a little involved due to the
1511 * screen struct <--> variable mapping. (but, once its
1512 * running it shouldn't need changing ;).
1513 *
1514 * look_for_backslash == 1 means that backslash is an escape character.
1515 * In particular, \, can be used to put a literal comma
1516 * into a value. The value will still have the backslash
1517 * in it, but the comma after the backslash won't be treated
1518 * as an item separator.
1519 *
1520 * returns: -1 on unrecognized cmd, 0 if no change, 1 if change
1521 * returns what conf_exit_cmd returns for exit command.
1522 */
1523 int
1524 text_toolit(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags, int look_for_backslash)
1525 {
1526 char prompt[81], *sval, *tmp, *swap_val, **newval = NULL;
1527 char *pval, **apval, **lval, ***alval;
1528 char *olddefval = NULL;
1529 int rv = 0, skip_to_next = 0, after = 0, i = 4, j, k;
1530 int lowrange, hirange, incr, oeflags, oebufsize;
1531 int numval, repeat_key = 0;
1532 int curindex, previndex, nextindex, deefault;
1533 HelpType help;
1534 ESCKEY_S ekey[6];
1535
1536 if((*cl)->var->is_list){
1537 lval = LVAL((*cl)->var, ew);
1538 alval = ALVAL((*cl)->var, ew);
1539 }
1540 else{
1541 pval = PVAL((*cl)->var, ew);
1542 apval = APVAL((*cl)->var, ew);
1543 }
1544
1545 oebufsize = 6*MAXPATH;
1546 sval = (char *) fs_get(oebufsize*sizeof(char));
1547 sval[0] = '\0';
1548
1549 if(flags&CF_NUMBER){ /* only happens if !is_list */
1550 incr = 1;
1551 if((*cl)->var == &ps->vars[V_FILLCOL]){
1552 lowrange = 1;
1553 hirange = MAX_FILLCOL;
1554 }
1555 else if((*cl)->var == &ps->vars[V_SLEEP]){
1556 lowrange = 60;
1557 hirange = 600;
1558 }
1559 else if((*cl)->var == &ps->vars[V_OVERLAP]
1560 || (*cl)->var == &ps->vars[V_MARGIN]){
1561 lowrange = 0;
1562 hirange = 20;
1563 }
1564 else if((*cl)->var == &ps->vars[V_QUOTE_SUPPRESSION]){
1565 lowrange = -(Q_SUPP_LIMIT-1);
1566 hirange = 1000;
1567 }
1568 else if((*cl)->var == &ps->vars[V_MAXREMSTREAM]){
1569 lowrange = 0;
1570 hirange = 15;
1571 }
1572 else if((*cl)->var == &ps->vars[V_STATUS_MSG_DELAY]){
1573 lowrange = -10;
1574 hirange = 30;
1575 }
1576 else if((*cl)->var == &ps->vars[V_ACTIVE_MSG_INTERVAL]){
1577 lowrange = 0;
1578 hirange = 20;
1579 }
1580 else if((*cl)->var == &ps->vars[V_MAILCHECK] ||
1581 (*cl)->var == &ps->vars[V_INCCHECKINTERVAL] ||
1582 (*cl)->var == &ps->vars[V_INC2NDCHECKINTERVAL] ||
1583 (*cl)->var == &ps->vars[V_MAILCHECKNONCURR]){
1584 lowrange = 0;
1585 hirange = 25000;
1586 incr = 15;
1587 }
1588 else if((*cl)->var == &ps->vars[V_DEADLETS]){
1589 lowrange = 0;
1590 hirange = 9;
1591 }
1592 else if((*cl)->var == &ps->vars[V_NMW_WIDTH]){
1593 lowrange = 20;
1594 hirange = MAX_SCREEN_COLS;
1595 }
1596 else if((*cl)->var == score_act_global_ptr){
1597 lowrange = -100;
1598 hirange = 100;
1599 }
1600 else if((*cl)->var == &ps->vars[V_TCPOPENTIMEO] ||
1601 (*cl)->var == &ps->vars[V_TCPREADWARNTIMEO] ||
1602 (*cl)->var == &ps->vars[V_TCPQUERYTIMEO]){
1603 lowrange = 5;
1604 hirange = 1000;
1605 }
1606 else if((*cl)->var == &ps->vars[V_TCPWRITEWARNTIMEO] ||
1607 (*cl)->var == &ps->vars[V_RSHOPENTIMEO] ||
1608 (*cl)->var == &ps->vars[V_SSHOPENTIMEO] ||
1609 (*cl)->var == &ps->vars[V_USERINPUTTIMEO]){
1610 lowrange = 0;
1611 hirange = 1000;
1612 }
1613 else if((*cl)->var == &ps->vars[V_INCCHECKTIMEO]){
1614 lowrange = 1;
1615 hirange = 1000;
1616 }
1617 else if((*cl)->var == &ps->vars[V_MAILDROPCHECK]){
1618 lowrange = 0;
1619 hirange = 1000000;
1620 incr = 60;
1621 }
1622 else if((*cl)->var == &ps->vars[V_NNTPRANGE]){
1623 lowrange = 0;
1624 hirange = 1000000;
1625 incr = 100;
1626 }
1627 else if((*cl)->var == &ps->vars[V_REMOTE_ABOOK_VALIDITY]){
1628 lowrange = -1;
1629 hirange = 25000;
1630 }
1631 else if((*cl)->var == &ps->vars[V_REMOTE_ABOOK_HISTORY]){
1632 lowrange = 0;
1633 hirange = 100;
1634 }
1635 else if((*cl)->var == cat_lim_global_ptr){
1636 lowrange = -1;
1637 hirange = 10000000;
1638 }
1639 else{
1640 lowrange = 0;
1641 hirange = 25000;
1642 }
1643
1644 ekey[0].ch = -2;
1645 ekey[0].rval = 'x';
1646 ekey[0].name = "";
1647 ekey[0].label = "";
1648 ekey[1].ch = ctrl('P');
1649 ekey[1].rval = ctrl('P');
1650 ekey[1].name = "^P";
1651 ekey[1].label = N_("Decrease");
1652 ekey[2].ch = ctrl('N');
1653 ekey[2].rval = ctrl('N');
1654 ekey[2].name = "^N";
1655 ekey[2].label = N_("Increase");
1656 ekey[3].ch = KEY_DOWN;
1657 ekey[3].rval = ctrl('P');
1658 ekey[3].name = "";
1659 ekey[3].label = "";
1660 ekey[4].ch = KEY_UP;
1661 ekey[4].rval = ctrl('N');
1662 ekey[4].name = "";
1663 ekey[4].label = "";
1664 ekey[5].ch = -1;
1665 }
1666
1667 switch(cmd){
1668 case MC_ADD: /* add to list */
1669 if(fixed_var((*cl)->var, "add to", NULL)){
1670 break;
1671 }
1672 else if(!(*cl)->var->is_list && pval){
1673 q_status_message(SM_ORDER, 3, 3,
1674 _("Only single value allowed. Use \"Change\"."));
1675 }
1676 else{
1677 int maxwidth;
1678 char *p;
1679
1680 if((*cl)->var->is_list
1681 && lval && lval[0] && lval[0][0]
1682 && (*cl)->value){
1683 char tmpval[101];
1684 /* regular add to an existing list */
1685
1686 strncpy(tmpval, (*cl)->value, sizeof(tmpval));
1687 tmpval[sizeof(tmpval)-1] = '\0';
1688 removing_trailing_white_space(tmpval);
1689
1690 /* 33 is the number of chars other than the value */
1691 maxwidth = MIN(80, ps->ttyo->screen_cols) - 15;
1692 k = MIN(18, MAX(maxwidth-33,0));
1693 if(utf8_width(tmpval) > k && k >= 3){
1694 (void) utf8_truncate(tmpval, k-3);
1695 strncat(tmpval, "...", sizeof(tmpval)-strlen(tmpval)-1);
1696 tmpval[sizeof(tmpval)-1] = '\0';
1697 }
1698
1699 utf8_snprintf(prompt, sizeof(prompt),
1700 _("Enter text to insert before \"%.*w\": "), k, tmpval);
1701 prompt[sizeof(prompt)-1] = '\0';
1702 }
1703 else if((*cl)->var->is_list
1704 && !lval
1705 && (*cl)->var->current_val.l){
1706 /* Add to list which doesn't exist, but default does exist */
1707 ekey[0].ch = 'r';
1708 ekey[0].rval = 'r';
1709 ekey[0].name = "R";
1710 ekey[0].label = N_("Replace");
1711 ekey[1].ch = 'a';
1712 ekey[1].rval = 'a';
1713 ekey[1].name = "A";
1714 ekey[1].label = N_("Add To");
1715 ekey[2].ch = -1;
1716 strncpy(prompt, _("Replace or Add To default value ? "), sizeof(prompt));
1717 prompt[sizeof(prompt)-1] = '\0';
1718 switch(radio_buttons(prompt, -FOOTER_ROWS(ps), ekey, 'a', 'x',
1719 h_config_replace_add, RB_NORM)){
1720 case 'a':
1721 p = sval;
1722 for(j = 0; (*cl)->var->current_val.l[j]; j++){
1723 sstrncpy(&p, (*cl)->var->current_val.l[j], oebufsize-(p-sval));
1724 if(oebufsize-(p-sval) > 2){
1725 *p++ = ',';
1726 *p++ = ' ';
1727 }
1728
1729 if(oebufsize-(p-sval) > 0)
1730 *p = '\0';
1731 }
1732
1733 sval[oebufsize-1] = '\0';
1734
1735 add_text:
1736 if(flags & CF_NUMBER)
1737 snprintf(prompt, sizeof(prompt), _("Enter the numeric text to be added : "));
1738 else
1739 snprintf(prompt, sizeof(prompt), _("Enter the text to be added : "));
1740
1741 break;
1742
1743 case 'r':
1744 replace_text:
1745 if(olddefval){
1746 strncpy(sval, olddefval, oebufsize);
1747 sval[oebufsize-1] = '\0';
1748 }
1749
1750 if(flags & CF_NUMBER)
1751 snprintf(prompt, sizeof(prompt), _("Enter the numeric replacement text : "));
1752 else
1753 snprintf(prompt, sizeof(prompt), _("Enter the replacement text : "));
1754
1755 break;
1756
1757 case 'x':
1758 i = 1;
1759 cmd_cancelled("Add");
1760 break;
1761 }
1762 }
1763 else{
1764 if(flags & CF_NUMBER)
1765 snprintf(prompt, sizeof(prompt), _("Enter the numeric text to be added : "));
1766 else
1767 snprintf(prompt, sizeof(prompt), _("Enter the text to be added : "));
1768 }
1769
1770 prompt[sizeof(prompt)-1] = '\0';
1771
1772 ps->mangled_footer = 1;
1773
1774 if(i == 1)
1775 break;
1776
1777 help = NO_HELP;
1778 while(1){
1779 if((*cl)->var->is_list
1780 && lval && lval[0] && lval[0][0]
1781 && (*cl)->value){
1782 ekey[0].ch = ctrl('W');
1783 ekey[0].rval = 5;
1784 ekey[0].name = "^W";
1785 /* TRANSLATORS: Insert new item before current item */
1786 ekey[0].label = after ? N_("InsertBefore") : N_("InsertAfter");
1787 ekey[1].ch = -1;
1788 }
1789 else if(!(flags&CF_NUMBER))
1790 ekey[0].ch = -1;
1791
1792 oeflags = OE_APPEND_CURRENT;
1793 i = optionally_enter(sval, -FOOTER_ROWS(ps), 0, oebufsize,
1794 prompt,
1795 (ekey[0].ch != -1) ? ekey : NULL,
1796 help, &oeflags);
1797 if(i == 0){
1798 rv = 1;
1799 if((*cl)->var->is_list)
1800 ps->mangled_body = 1;
1801 else
1802 ps->mangled_footer = 1;
1803
1804 removing_leading_and_trailing_white_space(sval);
1805 /*
1806 * Coerce "" and <Empty Value> to empty string input.
1807 * Catch <No Value Set> as a substitute for deleting.
1808 */
1809 if((*sval == '\"' && *(sval+1) == '\"' && *(sval+2) == '\0')
1810 || !struncmp(sval, _(empty_val), strlen(_(empty_val)))
1811 || (*sval == '<'
1812 && !struncmp(sval+1, _(empty_val), strlen(_(empty_val)))))
1813 *sval = '\0';
1814 else if(!struncmp(sval, _(no_val), strlen(_(no_val)))
1815 || (*sval == '<'
1816 && !struncmp(sval+1, _(no_val), strlen(_(no_val)))))
1817 goto delete;
1818
1819 if((*cl)->var->is_list){
1820 if(*sval || !lval){
1821 char **ltmp;
1822 int i;
1823
1824 i = 0;
1825 for(tmp = sval; *tmp; tmp++)
1826 if(*tmp == ',')
1827 i++; /* conservative count of ,'s */
1828
1829 if(!i){
1830 ltmp = (char **)fs_get(2 * sizeof(char *));
1831 ltmp[0] = cpystr(sval);
1832 ltmp[1] = NULL;
1833 }
1834 else
1835 ltmp = parse_list(sval, i + 1,
1836 look_for_backslash
1837 ? PL_COMMAQUOTE : 0,
1838 NULL);
1839
1840 if(ltmp[0]){
1841 config_add_list(ps, cl, ltmp, &newval, after);
1842 if(after)
1843 skip_to_next = 1;
1844 }
1845 else{
1846 q_status_message1(SM_ORDER, 0, 3,
1847 _("Can't add %s to list"), _(empty_val));
1848 rv = ps->mangled_body = 0;
1849 }
1850
1851 fs_give((void **)&ltmp);
1852 }
1853 else{
1854 q_status_message1(SM_ORDER, 0, 3,
1855 _("Can't add %s to list"), _(empty_val));
1856 }
1857 }
1858 else{
1859 if(flags&CF_NUMBER && sval[0]
1860 && !(isdigit((unsigned char)sval[0])
1861 || sval[0] == '-' || sval[0] == '+')){
1862 q_status_message(SM_ORDER,3,3,
1863 _("Entry must be numeric"));
1864 i = 3; /* to keep loop going */
1865 continue;
1866 }
1867
1868 if(apval && *apval)
1869 fs_give((void **)apval);
1870
1871 if(!(olddefval && !strcmp(sval, olddefval))
1872 || ((*cl)->var == &ps->vars[V_POST_CHAR_SET])
1873 || want_to(_("Leave unset and use default "),
1874 'y', 'y', NO_HELP, WT_FLUSH_IN) == 'n')
1875 *apval = cpystr(sval);
1876
1877 newval = &(*cl)->value;
1878 }
1879 }
1880 else if(i == 1){
1881 cmd_cancelled("Add");
1882 }
1883 else if(i == 3){
1884 help = help == NO_HELP ? h_config_add : NO_HELP;
1885 continue;
1886 }
1887 else if(i == 4){ /* no redraw, yet */
1888 continue;
1889 }
1890 else if(i == 5){ /* change from/to prepend to/from append */
1891 char tmpval[101];
1892
1893 after = after ? 0 : 1;
1894 strncpy(tmpval, (*cl)->value, sizeof(tmpval));
1895 tmpval[sizeof(tmpval)-1] = '\0';
1896 removing_trailing_white_space(tmpval);
1897 /* 33 is the number of chars other than the value */
1898 maxwidth = MIN(80, ps->ttyo->screen_cols) - 15;
1899 k = MIN(18, MAX(maxwidth-33,0));
1900 if(utf8_width(tmpval) > k && k >= 3){
1901 (void) utf8_truncate(tmpval, k-3);
1902 strncat(tmpval, "...", sizeof(tmpval)-strlen(tmpval)-1);
1903 tmpval[sizeof(tmpval)-1] = '\0';
1904 }
1905
1906 if(after)
1907 snprintf(prompt, sizeof(prompt), _("Enter text to insert after \"%.*s\": "), k, tmpval);
1908 else
1909 snprintf(prompt, sizeof(prompt), _("Enter text to insert before \"%.*s\": "), k, tmpval);
1910
1911 continue;
1912 }
1913 else if(i == ctrl('P')){
1914 if(sval[0])
1915 numval = atoi(sval);
1916 else{
1917 if(pval)
1918 numval = atoi(pval);
1919 else
1920 numval = lowrange + 1;
1921 }
1922
1923 if(numval == lowrange){
1924 /*
1925 * Protect user from repeating arrow key that
1926 * causes message to appear over and over.
1927 */
1928 if(++repeat_key > 0){
1929 q_status_message1(SM_ORDER,3,3,
1930 _("Minimum value is %s"), comatose(lowrange));
1931 repeat_key = -5;
1932 }
1933 }
1934 else
1935 repeat_key = 0;
1936
1937 numval = MAX(numval - incr, lowrange);
1938 snprintf(sval, oebufsize, "%d", numval);
1939 sval[oebufsize-1] = '\0';
1940 continue;
1941 }
1942 else if(i == ctrl('N')){
1943 if(sval[0])
1944 numval = atoi(sval);
1945 else{
1946 if(pval)
1947 numval = atoi(pval);
1948 else
1949 numval = lowrange + 1;
1950 }
1951
1952 if(numval == hirange){
1953 if(++repeat_key > 0){
1954 q_status_message1(SM_ORDER,3,3,
1955 _("Maximum value is %s"), comatose(hirange));
1956 repeat_key = -5;
1957 }
1958 }
1959 else
1960 repeat_key = 0;
1961
1962 numval = MIN(numval + incr, hirange);
1963 snprintf(sval, oebufsize, "%d", numval);
1964 sval[oebufsize-1] = '\0';
1965 continue;
1966 }
1967
1968 break;
1969 }
1970 }
1971
1972 break;
1973
1974 case MC_DELETE: /* delete */
1975 delete:
1976 if(!(*cl)->var->is_list
1977 && apval && !*apval
1978 && (*cl)->var->current_val.p){
1979 char pmt[80];
1980
1981 snprintf(pmt, sizeof(pmt), _("Override default with %s"), _(empty_val2));
1982 pmt[sizeof(pmt)-1] = '\0';
1983 if(want_to(pmt, 'n', 'n', NO_HELP, WT_FLUSH_IN) == 'y'){
1984 sval[0] = '\0';
1985 *apval = cpystr(sval);
1986 newval = &(*cl)->value;
1987 rv = ps->mangled_footer = 1;
1988 }
1989 }
1990 else if((*cl)->var->is_list
1991 && alval && !lval
1992 && (*cl)->var->current_val.l){
1993 char pmt[80];
1994
1995 snprintf(pmt, sizeof(pmt), _("Override default with %s"), _(empty_val2));
1996 pmt[sizeof(pmt)-1] = '\0';
1997 if(want_to(pmt, 'n', 'n', NO_HELP, WT_FLUSH_IN) == 'y'){
1998 char **ltmp;
1999
2000 sval[0] = '\0';
2001 ltmp = (char **)fs_get(2 * sizeof(char *));
2002 ltmp[0] = cpystr(sval);
2003 ltmp[1] = NULL;
2004 config_add_list(ps, cl, ltmp, &newval, 0);
2005 fs_give((void **)&ltmp);
2006 rv = ps->mangled_body = 1;
2007 }
2008 }
2009 else if(((*cl)->var->is_list && !lval)
2010 || (!(*cl)->var->is_list && !pval)){
2011 q_status_message(SM_ORDER, 0, 3, _("No set value to delete"));
2012 }
2013 else{
2014 if((*cl)->var->is_fixed)
2015 snprintf(prompt, sizeof(prompt), _("Delete (unused) %s from %s "),
2016 (*cl)->var->is_list
2017 ? (!*lval[(*cl)->varmem])
2018 ? _(empty_val2)
2019 : lval[(*cl)->varmem]
2020 : (pval)
2021 ? (!*pval)
2022 ? _(empty_val2)
2023 : pval
2024 : "<NULL VALUE>",
2025 (*cl)->var->name);
2026 else
2027 snprintf(prompt, sizeof(prompt), _("Really delete %s%s from %s "),
2028 (*cl)->var->is_list ? "item " : "",
2029 (*cl)->var->is_list
2030 ? int2string((*cl)->varmem + 1)
2031 : (pval)
2032 ? (!*pval)
2033 ? _(empty_val2)
2034 : pval
2035 : "<NULL VALUE>",
2036 (*cl)->var->name);
2037
2038 prompt[sizeof(prompt)-1] = '\0';
2039
2040
2041 ps->mangled_footer = 1;
2042 if(want_to(prompt, 'n', 'n', NO_HELP, WT_FLUSH_IN) == 'y'){
2043 rv = 1;
2044 if((*cl)->var->is_list)
2045 ps->mangled_body = 1;
2046 else
2047 ps->mangled_footer = 1;
2048
2049 if((*cl)->var->is_list){
2050 if(lval[(*cl)->varmem])
2051 fs_give((void **)&lval[(*cl)->varmem]);
2052
2053 config_del_list_item(cl, &newval);
2054 }
2055 else{
2056 if(apval && *apval)
2057 fs_give((void **)apval);
2058
2059 newval = &(*cl)->value;
2060 }
2061 }
2062 else
2063 q_status_message(SM_ORDER, 0, 3, _("Value not deleted"));
2064 }
2065
2066 break;
2067
2068 case MC_EDIT: /* edit/change list option */
2069 if(fixed_var((*cl)->var, NULL, NULL)){
2070 break;
2071 }
2072 else if(((*cl)->var->is_list
2073 && !lval
2074 && (*cl)->var->current_val.l)
2075 ||
2076 (!(*cl)->var->is_list
2077 && !pval
2078 && (*cl)->var->current_val.p)){
2079
2080 /*
2081 * In non-list case, offer default value for editing.
2082 */
2083 if(!(*cl)->var->is_list
2084 && (*cl)->var != &ps->vars[V_REPLY_INTRO]
2085 && (*cl)->var->current_val.p[0]
2086 && strcmp(VSTRING,(*cl)->var->current_val.p)){
2087 int quote_it;
2088 size_t len;
2089
2090 olddefval = (char *) fs_get(strlen((*cl)->var->current_val.p)+3);
2091
2092 if(!strncmp((*cl)->var->current_val.p,
2093 DSTRING,
2094 (len=strlen(DSTRING)))){
2095 /* strip DSTRING and trailing paren */
2096 strncpy(olddefval, (*cl)->var->current_val.p+len,
2097 strlen((*cl)->var->current_val.p)-len-1);
2098 olddefval[strlen((*cl)->var->current_val.p)-len-1] = '\0';
2099 }
2100 else{
2101 /* quote it if there are trailing spaces */
2102 quote_it = ((*cl)->var->current_val.p[strlen((*cl)->var->current_val.p)-1] == SPACE);
2103 snprintf(olddefval, strlen((*cl)->var->current_val.p)+3, "%s%s%s", quote_it ? "\"" : "", (*cl)->var->current_val.p, quote_it ? "\"" : "");
2104 }
2105
2106 olddefval[strlen((*cl)->var->current_val.p)+3-1] = '\0';
2107 }
2108
2109 goto replace_text;
2110 }
2111 else if(((*cl)->var->is_list
2112 && !lval
2113 && !(*cl)->var->current_val.l)
2114 ||
2115 (!(*cl)->var->is_list
2116 && !pval
2117 && !(*cl)->var->current_val.p)){
2118 goto add_text;
2119 }
2120 else{
2121 HelpType help;
2122 char *clptr;
2123
2124 if(sval)
2125 fs_give((void **)&sval);
2126 if((*cl)->var->is_list){
2127 snprintf(prompt, sizeof(prompt), _("Change field %s list entry : "),
2128 (*cl)->var->name);
2129 prompt[sizeof(prompt)-1] = '\0';
2130 clptr = lval[(*cl)->varmem] ? lval[(*cl)->varmem] : NULL;
2131 }
2132 else{
2133 if(flags & CF_NUMBER)
2134 snprintf(prompt, sizeof(prompt), _("Change numeric field %s value : "), (*cl)->var->name);
2135 else
2136 snprintf(prompt, sizeof(prompt), _("Change field %s value : "), (*cl)->var->name);
2137
2138 clptr = pval ? pval : NULL;
2139 }
2140
2141 oebufsize = clptr ? (int) MAX(MAXPATH, 50+strlen(clptr)) : MAXPATH;
2142 sval = (char *) fs_get(oebufsize * sizeof(char));
2143 snprintf(sval, oebufsize, "%s", clptr ? clptr : "");
2144 sval[oebufsize-1] = '\0';
2145
2146 ps->mangled_footer = 1;
2147 help = NO_HELP;
2148 while(1){
2149 if(!(flags&CF_NUMBER))
2150 ekey[0].ch = -1;
2151
2152 oeflags = OE_APPEND_CURRENT;
2153 i = optionally_enter(sval, -FOOTER_ROWS(ps), 0, oebufsize,
2154 prompt,
2155 (ekey[0].ch != -1) ? ekey : NULL,
2156 help, &oeflags);
2157 if(i == 0){
2158 removing_leading_and_trailing_white_space(sval);
2159 /*
2160 * Coerce "" and <Empty Value> to empty string input.
2161 * Catch <No Value Set> as a substitute for deleting.
2162 */
2163 if((*sval == '\"' && *(sval+1) == '\"' && *(sval+2) == '\0')
2164 || !struncmp(sval, _(empty_val), strlen(_(empty_val)))
2165 || (*sval == '<'
2166 && !struncmp(sval+1, _(empty_val), strlen(_(empty_val)))))
2167 *sval = '\0';
2168 else if(!struncmp(sval, _(no_val), strlen(_(no_val)))
2169 || (*sval == '<'
2170 && !struncmp(sval+1, _(no_val), strlen(_(no_val)))))
2171 goto delete;
2172
2173 rv = 1;
2174 if((*cl)->var->is_list)
2175 ps->mangled_body = 1;
2176 else
2177 ps->mangled_footer = 1;
2178
2179 if((*cl)->var->is_list){
2180 char **ltmp = NULL;
2181 int i;
2182
2183 if(lval[(*cl)->varmem])
2184 fs_give((void **)&lval[(*cl)->varmem]);
2185
2186 i = 0;
2187 for(tmp = sval; *tmp; tmp++)
2188 if(*tmp == ',')
2189 i++; /* conservative count of ,'s */
2190
2191 if(i)
2192 ltmp = parse_list(sval, i + 1,
2193 look_for_backslash
2194 ? PL_COMMAQUOTE : 0,
2195 NULL);
2196
2197 if(ltmp && !ltmp[0]) /* only commas */
2198 goto delete;
2199 else if(!i || (ltmp && !ltmp[1])){ /* only one item */
2200 lval[(*cl)->varmem] = cpystr(sval);
2201 newval = &(*cl)->value;
2202
2203 if(ltmp && ltmp[0])
2204 fs_give((void **)&ltmp[0]);
2205 }
2206 else if(ltmp){
2207 /*
2208 * Looks like the value was changed to a
2209 * list, so delete old value, and insert
2210 * new list...
2211 *
2212 * If more than one item in existing list and
2213 * current is end of existing list, then we
2214 * have to delete and append instead of
2215 * deleting and prepending.
2216 */
2217 if(((*cl)->varmem > 0 || lval[1])
2218 && !(lval[(*cl)->varmem+1])){
2219 after = 1;
2220 skip_to_next = 1;
2221 }
2222
2223 config_del_list_item(cl, &newval);
2224 config_add_list(ps, cl, ltmp, &newval, after);
2225 }
2226
2227 if(ltmp)
2228 fs_give((void **)&ltmp);
2229 }
2230 else{
2231 if(flags&CF_NUMBER && sval[0]
2232 && !(isdigit((unsigned char)sval[0])
2233 || sval[0] == '-' || sval[0] == '+')){
2234 q_status_message(SM_ORDER,3,3,
2235 _("Entry must be numeric"));
2236 continue;
2237 }
2238
2239 if(apval && *apval)
2240 fs_give((void **)apval);
2241
2242 if(sval[0] && apval)
2243 *apval = cpystr(sval);
2244
2245 newval = &(*cl)->value;
2246 }
2247 }
2248 else if(i == 1){
2249 cmd_cancelled("Change");
2250 }
2251 else if(i == 3){
2252 help = help == NO_HELP ? h_config_change : NO_HELP;
2253 continue;
2254 }
2255 else if(i == 4){ /* no redraw, yet */
2256 continue;
2257 }
2258 else if(i == ctrl('P')){
2259 numval = atoi(sval);
2260 if(numval == lowrange){
2261 /*
2262 * Protect user from repeating arrow key that
2263 * causes message to appear over and over.
2264 */
2265 if(++repeat_key > 0){
2266 q_status_message1(SM_ORDER,3,3,
2267 _("Minimum value is %s"), comatose(lowrange));
2268 repeat_key = -5;
2269 }
2270 }
2271 else
2272 repeat_key = 0;
2273
2274 numval = MAX(numval - incr, lowrange);
2275 snprintf(sval, oebufsize, "%d", numval);
2276 sval[oebufsize-1] = '\0';
2277 continue;
2278 }
2279 else if(i == ctrl('N')){
2280 numval = atoi(sval);
2281 if(numval == hirange){
2282 if(++repeat_key > 0){
2283 q_status_message1(SM_ORDER,3,3,
2284 _("Maximum value is %s"), comatose(hirange));
2285 repeat_key = -5;
2286 }
2287 }
2288 else
2289 repeat_key = 0;
2290
2291 numval = MIN(numval + incr, hirange);
2292 snprintf(sval, oebufsize, "%d", numval);
2293 sval[oebufsize-1] = '\0';
2294 continue;
2295 }
2296
2297 break;
2298 }
2299 }
2300
2301 break;
2302
2303 case MC_SHUFFLE:
2304 if(!((*cl)->var && (*cl)->var->is_list)){
2305 q_status_message(SM_ORDER, 0, 2,
2306 _("Can't shuffle single-valued setting"));
2307 break;
2308 }
2309
2310 if(!alval)
2311 break;
2312
2313 curindex = (*cl)->varmem;
2314 previndex = curindex-1;
2315 nextindex = curindex+1;
2316 if(!*alval || !(*alval)[nextindex])
2317 nextindex = -1;
2318
2319 if((previndex < 0 && nextindex < 0) || !*alval){
2320 q_status_message(SM_ORDER, 0, 3,
2321 _("Shuffle only makes sense when there is more than one value defined"));
2322 break;
2323 }
2324
2325 /* Move it up or down? */
2326 i = 0;
2327 ekey[i].ch = 'u';
2328 ekey[i].rval = 'u';
2329 ekey[i].name = "U";
2330 ekey[i++].label = N_("Up");
2331
2332 ekey[i].ch = 'd';
2333 ekey[i].rval = 'd';
2334 ekey[i].name = "D";
2335 ekey[i++].label = N_("Down");
2336
2337 ekey[i].ch = -1;
2338 deefault = 'u';
2339
2340 if(previndex < 0){ /* no up */
2341 ekey[0].ch = -2;
2342 deefault = 'd';
2343 }
2344 else if(nextindex < 0)
2345 ekey[1].ch = -2; /* no down */
2346
2347 snprintf(prompt, sizeof(prompt), "Shuffle %s%s%s ? ",
2348 (ekey[0].ch != -2) ? "UP" : "",
2349 (ekey[0].ch != -2 && ekey[1].ch != -2) ? " or " : "",
2350 (ekey[1].ch != -2) ? "DOWN" : "");
2351 help = (ekey[0].ch == -2) ? h_hdrcolor_shuf_down
2352 : (ekey[1].ch == -2) ? h_hdrcolor_shuf_up
2353 : h_hdrcolor_shuf;
2354 prompt[sizeof(prompt)-1] = '\0';
2355
2356 i = radio_buttons(prompt, -FOOTER_ROWS(ps), ekey, deefault, 'x',
2357 help, RB_NORM);
2358
2359 switch(i){
2360 case 'x':
2361 cmd_cancelled("Shuffle");
2362 return(rv);
2363
2364 case 'u':
2365 case 'd':
2366 break;
2367 }
2368
2369 /* swap order */
2370 if(i == 'd'){
2371 swap_val = (*alval)[curindex];
2372 (*alval)[curindex] = (*alval)[nextindex];
2373 (*alval)[nextindex] = swap_val;
2374 }
2375 else if(i == 'u'){
2376 swap_val = (*alval)[curindex];
2377 (*alval)[curindex] = (*alval)[previndex];
2378 (*alval)[previndex] = swap_val;
2379 }
2380 else /* can't happen */
2381 break;
2382
2383 /*
2384 * Fix the conf line values.
2385 */
2386
2387 if((*cl)->value)
2388 fs_give((void **)&(*cl)->value);
2389
2390 (*cl)->value = pretty_value(ps, *cl);
2391
2392 if(i == 'd'){
2393 if((*cl)->next->value)
2394 fs_give((void **)&(*cl)->next->value);
2395
2396 (*cl)->next->value = pretty_value(ps, (*cl)->next);
2397 *cl = next_confline(*cl);
2398 }
2399 else{
2400 if((*cl)->prev->value)
2401 fs_give((void **)&(*cl)->prev->value);
2402
2403 (*cl)->prev->value = pretty_value(ps, (*cl)->prev);
2404 *cl = prev_confline(*cl);
2405 }
2406
2407 rv = ps->mangled_body = 1;
2408 break;
2409
2410 case MC_EXIT: /* exit */
2411 rv = config_exit_cmd(flags);
2412 break;
2413
2414 default:
2415 rv = -1;
2416 break;
2417 }
2418
2419 if(skip_to_next)
2420 *cl = next_confline(*cl);
2421
2422 /*
2423 * At this point, if changes occurred, var->user_val.X is set.
2424 * So, fix the current_val, and handle special cases...
2425 *
2426 * NOTE: we don't worry about the "fixed variable" case here, because
2427 * editing such vars should have been prevented above...
2428 */
2429 if(rv == 1){
2430 /*
2431 * Now go and set the current_val based on user_val changes
2432 * above. Turn off command line settings...
2433 */
2434 set_current_val((*cl)->var, TRUE, FALSE);
2435 fix_side_effects(ps, (*cl)->var, 0);
2436
2437 /*
2438 * Delay setting the displayed value until "var.current_val" is set
2439 * in case current val get's changed due to a special case above.
2440 */
2441 if(newval){
2442 if(*newval)
2443 fs_give((void **) newval);
2444
2445 *newval = pretty_value(ps, *cl);
2446 }
2447
2448 exception_override_warning((*cl)->var);
2449 }
2450
2451 if(sval)
2452 fs_give((void **) &sval);
2453
2454 if(olddefval)
2455 fs_give((void **) &olddefval);
2456
2457 return(rv);
2458 }
2459
2460
2461 int
2462 config_exit_cmd(unsigned int flags)
2463 {
2464 return(screen_exit_cmd(flags, "Configuration"));
2465 }
2466
2467
2468 int
2469 simple_exit_cmd(unsigned int flags)
2470 {
2471 return(2);
2472 }
2473
2474
2475 /*
2476 * screen_exit_cmd - basic config/flag screen exit logic
2477 */
2478 int
2479 screen_exit_cmd(unsigned int flags, char *cmd)
2480 {
2481 if(flags & CF_CHANGES){
2482 switch(want_to(EXIT_PMT, 'y', 'x', h_config_undo, WT_FLUSH_IN)){
2483 case 'y':
2484 q_status_message1(SM_ORDER,0,3,"%s changes saved", cmd);
2485 return(2);
2486
2487 case 'n':
2488 q_status_message1(SM_ORDER,3,5,"No %s changes saved", cmd);
2489 return(10);
2490
2491 case 'x': /* ^C */
2492 default :
2493 q_status_message(SM_ORDER,3,5,"Changes not yet saved");
2494 return(0);
2495 }
2496 }
2497 else
2498 return(2);
2499 }
2500
2501
2502 /*
2503 *
2504 */
2505 void
2506 config_add_list(struct pine *ps, CONF_S **cl, char **ltmp, char ***newval, int after)
2507 {
2508 int items, i;
2509 char *tmp, ***alval;
2510 CONF_S *ctmp;
2511
2512 for(items = 0, i = 0; ltmp[i]; i++) /* count list items */
2513 items++;
2514
2515 alval = ALVAL((*cl)->var, ew);
2516
2517 if(alval && (*alval)){
2518 if((*alval)[0] && (*alval)[0][0]){
2519 /*
2520 * Since we were already a list, make room
2521 * for the new member[s] and fall thru to
2522 * actually fill them in below...
2523 */
2524 for(i = 0; (*alval)[i]; i++)
2525 ;
2526
2527 fs_resize((void **)alval, (i + items + 1) * sizeof(char *));
2528
2529 /*
2530 * move the ones that will be bumped down to the bottom of the list
2531 */
2532 for(; i >= (*cl)->varmem + (after?1:0); i--)
2533 (*alval)[i+items] = (*alval)[i];
2534
2535 i = 0;
2536 }
2537 else if(alval){
2538 (*cl)->varmem = 0;
2539 if(*alval)
2540 free_list_array(alval);
2541
2542 *alval = (char **)fs_get((items+1)*sizeof(char *));
2543 memset((void *)(*alval), 0, (items+1)*sizeof(char *));
2544 (*alval)[0] = ltmp[0];
2545 if(newval)
2546 *newval = &(*cl)->value;
2547
2548 if((*cl)->value)
2549 fs_give((void **)&(*cl)->value);
2550
2551 i = 1;
2552 }
2553 }
2554 else if(alval){
2555 /*
2556 * since we were previously empty, we want
2557 * to replace the first CONF_S's value with
2558 * the first new value, and fill the other
2559 * in below if there's a list...
2560 *
2561 * first, make sure we're at the beginning of this config
2562 * section and dump the config lines for the default list,
2563 * except for the first one, which we will over-write.
2564 */
2565 *cl = (*cl)->varnamep;
2566 while((*cl)->next && (*cl)->next->varnamep == (*cl)->varnamep)
2567 snip_confline(&(*cl)->next);
2568
2569 /*
2570 * now allocate the new user_val array and fill in the first entry.
2571 */
2572 *alval = (char **)fs_get((items+1)*sizeof(char *));
2573 memset((void *)(*alval), 0, (items+1) * sizeof(char *));
2574 (*alval)[(*cl)->varmem=0] = ltmp[0];
2575 if(newval)
2576 *newval = &(*cl)->value;
2577
2578 if((*cl)->value)
2579 fs_give((void **)&(*cl)->value);
2580
2581 i = 1;
2582 }
2583
2584 /*
2585 * Make new cl's to fit in the new space. Move the value from the current
2586 * line if inserting before it, else leave it where it is.
2587 */
2588 for(; i < items ; i++){
2589 (*alval)[i+(*cl)->varmem + (after?1:0)] = ltmp[i];
2590 tmp = (*cl)->value;
2591 new_confline(cl);
2592 if(after)
2593 (*cl)->value = NULL;
2594 else
2595 (*cl)->value = tmp;
2596
2597 (*cl)->var = (*cl)->prev->var;
2598 (*cl)->valoffset = (*cl)->prev->valoffset;
2599 (*cl)->varoffset = (*cl)->prev->varoffset;
2600 (*cl)->headingp = (*cl)->prev->headingp;
2601 (*cl)->keymenu = (*cl)->prev->keymenu;
2602 (*cl)->help = (*cl)->prev->help;
2603 (*cl)->tool = (*cl)->prev->tool;
2604 (*cl)->varnamep = (*cl)->prev->varnamep;
2605 *cl = (*cl)->prev;
2606 if(!after)
2607 (*cl)->value = NULL;
2608
2609 if(newval){
2610 if(after)
2611 *newval = &(*cl)->next->value;
2612 else
2613 *newval = &(*cl)->value;
2614 }
2615 }
2616
2617 /*
2618 * now fix up varmem values and fill in new values that have been
2619 * left NULL
2620 */
2621 for(ctmp = (*cl)->varnamep, i = 0;
2622 (*alval)[i];
2623 ctmp = ctmp->next, i++){
2624 ctmp->varmem = i;
2625 if(!ctmp->value){
2626 /* BUG: We should be able to do this without the temp
2627 * copy...
2628 */
2629 char *ptmp = pretty_value(ps, ctmp);
2630 ctmp->value = (ctmp->varnamep->flags & CF_PRINTER) ? printer_name(ptmp) : cpystr(ptmp);
2631 fs_give((void **)&ptmp);
2632 }
2633 }
2634 }
2635
2636
2637 /*
2638 *
2639 */
2640 void
2641 config_del_list_item(CONF_S **cl, char ***newval)
2642 {
2643 char **bufp, ***alval;
2644 int i;
2645 CONF_S *ctmp;
2646
2647 alval = ALVAL((*cl)->var, ew);
2648
2649 if((*alval)[(*cl)->varmem + 1]){
2650 for(bufp = &(*alval)[(*cl)->varmem];
2651 (*bufp = *(bufp+1)) != NULL; bufp++)
2652 ;
2653
2654 if(*cl == (*cl)->varnamep){ /* leading value */
2655 if((*cl)->value)
2656 fs_give((void **)&(*cl)->value);
2657
2658 ctmp = (*cl)->next;
2659 (*cl)->value = ctmp->value;
2660 ctmp->value = NULL;
2661 }
2662 else{
2663 ctmp = *cl; /* blast the confline */
2664 *cl = (*cl)->next;
2665 if(ctmp == opt_screen->top_line)
2666 opt_screen->top_line = *cl;
2667 }
2668
2669 snip_confline(&ctmp);
2670
2671 for(ctmp = (*cl)->varnamep, i = 0; /* now fix up varmem values */
2672 (*alval)[i];
2673 ctmp = ctmp->next, i++)
2674 ctmp->varmem = i;
2675 }
2676 else if((*cl)->varmem){ /* blasted last in list */
2677 ctmp = *cl;
2678 *cl = (*cl)->prev;
2679 if(ctmp == opt_screen->top_line)
2680 opt_screen->top_line = *cl;
2681
2682 snip_confline(&ctmp);
2683 }
2684 else{ /* blasted last remaining */
2685 if(alval && *alval)
2686 fs_give((void **)alval);
2687
2688 *newval = &(*cl)->value;
2689 }
2690 }
2691
2692
2693 /*
2694 * feature list manipulation tool
2695 *
2696 *
2697 * returns: -1 on unrecognized cmd, 0 if no change, 1 if change
2698 */
2699 int
2700 checkbox_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
2701 {
2702 int rv = 0;
2703
2704 switch(cmd){
2705 case MC_TOGGLE: /* mark/unmark feature */
2706 if((*cl)->var == &ps->vars[V_FEATURE_LIST]){
2707 rv = 1;
2708 toggle_feature_bit(ps, (*cl)->varmem, (*cl)->var, *cl, 0);
2709 }
2710 else
2711 q_status_message(SM_ORDER | SM_DING, 3, 6,
2712 "Programmer botch! Unknown checkbox type.");
2713
2714 break;
2715
2716 case MC_EXIT: /* exit */
2717 rv = config_exit_cmd(flags);
2718 break;
2719
2720 default :
2721 rv = -1;
2722 break;
2723 }
2724
2725 return(rv);
2726 }
2727
2728
2729 /*
2730 * simple radio-button style variable handler
2731 */
2732 int
2733 radiobutton_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
2734 {
2735 char **apval;
2736 int rv = 0;
2737 NAMEVAL_S *rule = NULL;
2738 #ifndef _WINDOWS
2739 int old_uc, old_cs;
2740 CONF_S *ctmp;
2741 #endif
2742
2743 apval = APVAL((*cl)->var, ew);
2744
2745 switch(cmd){
2746 case MC_CHOICE : /* set/unset feature */
2747
2748 if(fixed_var((*cl)->var, NULL, NULL)){
2749 if(((*cl)->var->post_user_val.p || (*cl)->var->main_user_val.p)
2750 && want_to(_("Delete old unused personal option setting"),
2751 'y', 'n', NO_HELP, WT_FLUSH_IN) == 'y'){
2752 delete_user_vals((*cl)->var);
2753 q_status_message(SM_ORDER, 0, 3, _("Deleted"));
2754 rv = 1;
2755 }
2756
2757 return(rv);
2758 }
2759
2760 if(standard_radio_var(ps, (*cl)->var) || (*cl)->var == startup_ptr){
2761 PTR_TO_RULEFUNC rulefunc;
2762
2763 #ifndef _WINDOWS
2764 if((*cl)->var == &ps->vars[V_COLOR_STYLE]){
2765 old_uc = pico_usingcolor();
2766 old_cs = ps->color_style;
2767 }
2768 #endif
2769
2770 if((*cl)->var->cmdline_val.p)
2771 fs_give((void **)&(*cl)->var->cmdline_val.p);
2772
2773 if(apval && *apval)
2774 fs_give((void **)apval);
2775
2776 rulefunc = rulefunc_from_var(ps, (*cl)->var);
2777 if(rulefunc)
2778 rule = (*rulefunc)((*cl)->varmem);
2779
2780 if(apval && rule)
2781 *apval = cpystr(S_OR_L(rule));
2782
2783 cur_rule_value((*cl)->var, TRUE, TRUE);
2784 set_radio_pretty_vals(ps, cl);
2785
2786 if((*cl)->var == &ps->vars[V_AB_SORT_RULE])
2787 addrbook_redo_sorts();
2788 else if((*cl)->var == &ps->vars[V_THREAD_DISP_STYLE]){
2789 clear_index_cache(ps->mail_stream, 0);
2790 }
2791 else if((*cl)->var == &ps->vars[V_THREAD_INDEX_STYLE]){
2792 MAILSTREAM *m;
2793 int i;
2794
2795 clear_index_cache(ps->mail_stream, 0);
2796 /* clear all hidden and collapsed flags */
2797 set_lflags(ps->mail_stream, ps->msgmap, MN_COLL | MN_CHID, 0);
2798
2799 if(SEP_THRDINDX()
2800 && SORT_IS_THREADED(ps->msgmap)
2801 && unview_thread(ps, ps->mail_stream, ps->msgmap)){
2802 ps->next_screen = mail_index_screen;
2803 ps->view_skipped_index = 0;
2804 ps->mangled_screen = 1;
2805 }
2806
2807 if(SORT_IS_THREADED(ps->msgmap)
2808 && (SEP_THRDINDX() || COLL_THRDS()))
2809 collapse_threads(ps->mail_stream, ps->msgmap, NULL);
2810
2811 for(i = 0; i < ps_global->s_pool.nstream; i++){
2812 m = ps_global->s_pool.streams[i];
2813 if(m)
2814 sp_set_viewing_a_thread(m, 0);
2815 }
2816
2817 adjust_cur_to_visible(ps->mail_stream, ps->msgmap);
2818 }
2819 #ifndef _WINDOWS
2820 else if((*cl)->var == &ps->vars[V_COLOR_STYLE]){
2821 if(old_cs != ps->color_style){
2822 pico_toggle_color(0);
2823 switch(ps->color_style){
2824 case COL_NONE:
2825 case COL_TERMDEF:
2826 pico_set_color_options(pico_trans_color() ? COLOR_TRANS_OPT : 0);
2827 break;
2828 case COL_ANSI8:
2829 pico_set_color_options(COLOR_ANSI8_OPT|COLOR_TRANS_OPT);
2830 break;
2831 case COL_ANSI16:
2832 pico_set_color_options(COLOR_ANSI16_OPT|COLOR_TRANS_OPT);
2833 break;
2834 case COL_ANSI256:
2835 pico_set_color_options(COLOR_ANSI256_OPT|COLOR_TRANS_OPT);
2836 break;
2837 }
2838
2839 if(ps->color_style != COL_NONE)
2840 pico_toggle_color(1);
2841 }
2842
2843 if(pico_usingcolor())
2844 pico_set_normal_color();
2845
2846 if(!old_uc && pico_usingcolor()){
2847
2848 /*
2849 * remove the explanatory warning line and a blank line
2850 */
2851
2852 /* first find the first blank line */
2853 for(ctmp = *cl; ctmp; ctmp = next_confline(ctmp))
2854 if(ctmp->flags & CF_NOSELECT)
2855 break;
2856
2857 if(ctmp && ctmp->flags & CF_NOSELECT &&
2858 ctmp->prev && !(ctmp->prev->flags & CF_NOSELECT) &&
2859 ctmp->next && ctmp->next->flags & CF_NOSELECT &&
2860 ctmp->next->next &&
2861 ctmp->next->next->flags & CF_NOSELECT){
2862 ctmp->prev->next = ctmp->next->next;
2863 ctmp->next->next->prev = ctmp->prev;
2864 ctmp->next->next = NULL;
2865 free_conflines(&ctmp);
2866 }
2867
2868 /* make all the colors selectable */
2869 for(ctmp = *cl; ctmp; ctmp = next_confline(ctmp))
2870 if(ctmp->flags & CF_POT_SLCTBL)
2871 ctmp->flags &= ~CF_NOSELECT;
2872 }
2873 else if(old_uc && !pico_usingcolor()){
2874
2875 /*
2876 * add the explanatory warning line and a blank line
2877 */
2878
2879 /* first find the existing blank line */
2880 for(ctmp = *cl; ctmp; ctmp = next_confline(ctmp))
2881 if(ctmp->flags & CF_NOSELECT)
2882 break;
2883
2884 /* add the explanatory warning line */
2885 new_confline(&ctmp);
2886 ctmp->help = NO_HELP;
2887 ctmp->flags |= CF_NOSELECT;
2888 ctmp->value = cpystr(COLORNOSET);
2889
2890 /* and add another blank line */
2891 new_confline(&ctmp);
2892 ctmp->flags |= (CF_NOSELECT | CF_B_LINE);
2893
2894 /* make all the colors non-selectable */
2895 for(ctmp = *cl; ctmp; ctmp = next_confline(ctmp))
2896 if(ctmp->flags & CF_POT_SLCTBL)
2897 ctmp->flags |= CF_NOSELECT;
2898 }
2899
2900 clear_index_cache(ps->mail_stream, 0);
2901 ClearScreen();
2902 ps->mangled_screen = 1;
2903 }
2904 #endif
2905
2906 ps->mangled_body = 1; /* BUG: redraw it all for now? */
2907 rv = 1;
2908 }
2909 else if((*cl)->var == &ps->vars[V_SORT_KEY]){
2910 SortOrder def_sort;
2911 int def_sort_rev;
2912
2913 def_sort_rev = (*cl)->varmem >= (short) EndofList;
2914 def_sort = (SortOrder) ((*cl)->varmem - (def_sort_rev
2915 * EndofList));
2916 snprintf(tmp_20k_buf, SIZEOF_20KBUF, "%s%s", sort_name(def_sort),
2917 (def_sort_rev) ? "/Reverse" : "");
2918
2919 if((*cl)->var->cmdline_val.p)
2920 fs_give((void **)&(*cl)->var->cmdline_val.p);
2921
2922 if(apval){
2923 if(*apval)
2924 fs_give((void **)apval);
2925
2926 *apval = cpystr(tmp_20k_buf);
2927 }
2928
2929 set_current_val((*cl)->var, TRUE, TRUE);
2930 if(decode_sort(ps->VAR_SORT_KEY, &def_sort, &def_sort_rev) != -1){
2931 ps->def_sort = def_sort;
2932 ps->def_sort_rev = def_sort_rev;
2933 }
2934
2935 set_radio_pretty_vals(ps, cl);
2936 ps->mangled_body = 1; /* BUG: redraw it all for now? */
2937 rv = 1;
2938 }
2939 else
2940 q_status_message(SM_ORDER | SM_DING, 3, 6,
2941 "Programmer botch! Unknown radiobutton type.");
2942
2943 break;
2944
2945 case MC_EXIT: /* exit */
2946 rv = config_exit_cmd(flags);
2947 break;
2948
2949 default :
2950 rv = -1;
2951 break;
2952 }
2953
2954 if(rv == 1)
2955 exception_override_warning((*cl)->var);
2956
2957 return(rv);
2958 }
2959
2960
2961 /*
2962 * simple yes/no style variable handler
2963 */
2964 int
2965 yesno_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
2966 {
2967 int rv = 0, yes = 0;
2968 char *pval, **apval;
2969
2970 pval = PVAL((*cl)->var, ew);
2971 apval = APVAL((*cl)->var, ew);
2972
2973 switch(cmd){
2974 case MC_TOGGLE: /* toggle yes to no and back */
2975 if(fixed_var((*cl)->var, NULL, NULL)){
2976 if(((*cl)->var->post_user_val.p || (*cl)->var->main_user_val.p)
2977 && want_to(_("Delete old unused personal option setting"),
2978 'y', 'n', NO_HELP, WT_FLUSH_IN) == 'y'){
2979 delete_user_vals((*cl)->var);
2980 q_status_message(SM_ORDER, 0, 3, _("Deleted"));
2981 rv = 1;
2982 }
2983
2984 return(rv);
2985 }
2986
2987 rv = 1;
2988 yes = ((pval && !strucmp(pval, yesstr)) ||
2989 (!pval && (*cl)->var->current_val.p &&
2990 !strucmp((*cl)->var->current_val.p, yesstr)));
2991 fs_give((void **)&(*cl)->value);
2992
2993 if(apval){
2994 if(*apval)
2995 fs_give((void **)apval);
2996
2997 if(yes)
2998 *apval = cpystr(nostr);
2999 else
3000 *apval = cpystr(yesstr);
3001 }
3002
3003 set_current_val((*cl)->var, FALSE, FALSE);
3004 if((*cl)->value)
3005 fs_give((void **)&(*cl)->value);
3006
3007 (*cl)->value = pretty_value(ps, *cl);
3008 fix_side_effects(ps, (*cl)->var, 0);
3009
3010 break;
3011
3012 case MC_EXIT: /* exit */
3013 rv = config_exit_cmd(flags);
3014 break;
3015
3016 default :
3017 rv = -1;
3018 break;
3019 }
3020
3021 return(rv);
3022 }
3023
3024
3025 /*
3026 * Manage display of the config/options menu body.
3027 */
3028 void
3029 update_option_screen(struct pine *ps, OPT_SCREEN_S *screen, Pos *cursor_pos)
3030 {
3031 int dline, w, save = '\0';
3032 CONF_S *top_line, *ctmp;
3033 char *value;
3034 unsigned got_width;
3035 int want_width, first_width;
3036 char *saveptr = NULL;
3037
3038 #ifdef _WINDOWS
3039 int last_selectable;
3040 mswin_beginupdate();
3041 #endif
3042 if(screen == NULL || BODY_LINES(ps) < 1)
3043 return;
3044
3045 if(cursor_pos){
3046 cursor_pos->col = 0;
3047 cursor_pos->row = -1; /* to tell us if we've set it yet */
3048 }
3049
3050 /*
3051 * calculate top line of display for reframing if the current field
3052 * is off the display defined by screen->top_line...
3053 */
3054 if((ctmp = screen->top_line) != NULL)
3055 for(dline = BODY_LINES(ps);
3056 dline && ctmp && ctmp != screen->current;
3057 ctmp = next_confline(ctmp), dline--)
3058 ;
3059
3060 if(!ctmp || !dline){ /* force reframing */
3061 dline = 0;
3062 ctmp = top_line = first_confline(screen->current);
3063 do
3064 if(((dline++)%BODY_LINES(ps)) == 0)
3065 top_line = ctmp;
3066 while(ctmp != screen->current && (ctmp = next_confline(ctmp)));
3067 }
3068 else
3069 top_line = screen->top_line;
3070
3071 #ifdef _WINDOWS
3072 /*
3073 * Figure out how far down the top line is from the top and how many
3074 * total lines there are. Dumb to loop every time thru, but
3075 * there aren't that many lines, and it's cheaper than rewriting things
3076 * to maintain a line count in each structure...
3077 */
3078 for(dline = 0, ctmp = prev_confline(top_line); ctmp; ctmp = prev_confline(ctmp))
3079 dline++;
3080
3081 scroll_setpos(dline);
3082 last_selectable = dline;
3083 for(ctmp = next_confline(top_line); ctmp ; ctmp = next_confline(ctmp)){
3084 dline++;
3085 if (!(ctmp->flags & CF_NOSELECT))
3086 last_selectable = dline;
3087 }
3088 dline = last_selectable;
3089 scroll_setrange(BODY_LINES(ps), dline);
3090 #endif
3091
3092 /* mangled body or new page, force redraw */
3093 if(ps->mangled_body || screen->top_line != top_line)
3094 screen->prev = NULL;
3095
3096 /* loop thru painting what's needed */
3097 for(dline = 0, ctmp = top_line;
3098 dline < BODY_LINES(ps);
3099 dline++, ctmp = next_confline(ctmp)){
3100
3101 /*
3102 * only fall thru painting if something needs painting...
3103 */
3104 if(!(!screen->prev || ctmp == screen->prev || ctmp == screen->current
3105 || ctmp == screen->prev->varnamep
3106 || ctmp == screen->current->varnamep
3107 || ctmp == screen->prev->headingp
3108 || ctmp == screen->current->headingp))
3109 continue;
3110
3111 ClearLine(dline + HEADER_ROWS(ps));
3112
3113 if(ctmp){
3114 if(ctmp->flags & CF_B_LINE)
3115 continue;
3116
3117 if(ctmp->varname && !(ctmp->flags & CF_INVISIBLEVAR)){
3118 if(ctmp == screen->current && cursor_pos)
3119 cursor_pos->row = dline + HEADER_ROWS(ps);
3120
3121 if((ctmp == screen->current
3122 || ctmp == screen->current->varnamep
3123 || ctmp == screen->current->headingp)
3124 && !(ctmp->flags & CF_NOHILITE))
3125 StartInverse();
3126
3127 if(ctmp->flags & CF_H_LINE){
3128 MoveCursor(dline + HEADER_ROWS(ps), 0);
3129 Write_to_screen(repeat_char(ps->ttyo->screen_cols, '-'));
3130 }
3131
3132 if(ctmp->flags & CF_CENTERED){
3133 int offset = ps->ttyo->screen_cols/2
3134 - (utf8_width(ctmp->varname)/2);
3135 MoveCursor(dline + HEADER_ROWS(ps),
3136 (offset > 0) ? offset : 0);
3137 }
3138 else if(ctmp->varoffset)
3139 MoveCursor(dline+HEADER_ROWS(ps), ctmp->varoffset);
3140
3141 Write_to_screen(ctmp->varname);
3142 if((ctmp == screen->current
3143 || ctmp == screen->current->varnamep
3144 || ctmp == screen->current->headingp)
3145 && !(ctmp->flags & CF_NOHILITE))
3146 EndInverse();
3147 }
3148
3149 value = (ctmp->flags & CF_INHERIT) ? INHERIT : ctmp->value;
3150
3151 if(value){
3152 char *p;
3153 int i, j;
3154
3155 memset(tmp_20k_buf, '\0',
3156 (6*ps->ttyo->screen_cols + 1) * sizeof(char));
3157 if(ctmp == screen->current){
3158 if(!(ctmp->flags & CF_DOUBLEVAR && ctmp->flags & CF_VAR2))
3159 StartInverse();
3160
3161 if(cursor_pos)
3162 cursor_pos->row = dline + HEADER_ROWS(ps);
3163 }
3164
3165 if(ctmp->flags & CF_H_LINE)
3166 memset(tmp_20k_buf, '-',
3167 ps->ttyo->screen_cols * sizeof(char));
3168
3169 if(ctmp->flags & CF_CENTERED){
3170 int offset = ps->ttyo->screen_cols/2
3171 - (utf8_width(value)/2);
3172 /* BUG: tabs screw us figuring length above */
3173 if(offset > 0){
3174 char *q;
3175
3176 p = tmp_20k_buf + offset;
3177 if(!*(q = tmp_20k_buf))
3178 while(q < p)
3179 *q++ = ' ';
3180 }
3181 }
3182 else
3183 p = tmp_20k_buf;
3184
3185 /*
3186 * Copy the value to a temp buffer expanding tabs, and
3187 * making sure not to write beyond screen right...
3188 */
3189 for(i = 0, j = ctmp->valoffset; value[i]; i++){
3190 if(value[i] == ctrl('I')){
3191 do
3192 *p++ = ' ';
3193 while((++j) & 0x07);
3194 }
3195 else{
3196 *p++ = value[i];
3197 j++;
3198 }
3199 }
3200
3201 if(ctmp == screen->current && cursor_pos){
3202 if(ctmp->flags & CF_DOUBLEVAR && ctmp->flags & CF_VAR2)
3203 cursor_pos->col = ctmp->val2offset;
3204 else
3205 cursor_pos->col = ctmp->valoffset;
3206
3207 if(ctmp->tool == radiobutton_tool
3208 #ifdef ENABLE_LDAP
3209 || ctmp->tool==ldap_radiobutton_tool
3210 #endif
3211 || ctmp->tool==role_radiobutton_tool
3212 || ctmp->tool==checkbox_tool
3213 || (ctmp->tool==color_setting_tool &&
3214 ctmp->valoffset != COLOR_INDENT))
3215 cursor_pos->col++;
3216 }
3217
3218 if(ctmp->flags & CF_DOUBLEVAR){
3219 long l;
3220
3221 p = tmp_20k_buf;
3222 first_width = ctmp->val2offset - ctmp->valoffset - SPACE_BETWEEN_DOUBLEVARS;
3223 if((l=utf8_width(p)) > first_width && first_width >= 0){
3224 saveptr = utf8_count_forw_width(p, first_width, &got_width);
3225 /*
3226 * got_width != first_width indicates there's a problem
3227 * that should not happen. Ignore it.
3228 */
3229 if(saveptr){
3230 save = *saveptr;
3231 *saveptr = '\0';
3232 }
3233 }
3234 else
3235 save = '\0';
3236
3237 /*
3238 * If this is a COLOR_BLOB line we do special coloring.
3239 * The current object inverse hilite is only on the
3240 * checkbox part, the exact format comes from the
3241 * new_color_line function. If we change that we'll have
3242 * to change this to get the coloring right.
3243 */
3244 if(p[0] == '(' && p[2] == ')' &&
3245 p[3] == ' ' && p[4] == ' ' &&
3246 (!strncmp(p+5, COLOR_BLOB, COLOR_BLOB_LEN)
3247 || !strncmp(p+5, COLOR_BLOB_TRAN, COLOR_BLOB_LEN)
3248 || !strncmp(p+5, COLOR_BLOB_NORM, COLOR_BLOB_LEN))){
3249 COLOR_PAIR *lastc = NULL, *newc = NULL;
3250
3251 MoveCursor(dline+HEADER_ROWS(ps), ctmp->valoffset);
3252 Write_to_screen_n(p, 3);
3253 if(!(ctmp->flags & CF_VAR2) && ctmp == screen->current)
3254 EndInverse();
3255
3256 Write_to_screen_n(p+3, 3);
3257 newc = new_color_pair(colorx(CFC_ICOLOR(ctmp)),
3258 colorx(CFC_ICOLOR(ctmp)));
3259 if(newc){
3260 lastc = pico_get_cur_color();
3261 (void)pico_set_colorp(newc, PSC_NONE);
3262 free_color_pair(&newc);
3263 }
3264
3265 Write_to_screen_n(p+6, COLOR_BLOB_LEN-2);
3266
3267 if(lastc){
3268 (void)pico_set_colorp(lastc, PSC_NONE);
3269 free_color_pair(&lastc);
3270 }
3271
3272 Write_to_screen(p+6+COLOR_BLOB_LEN-2);
3273 }
3274 else{
3275 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset, p);
3276 if(!(ctmp->flags & CF_VAR2) && ctmp == screen->current)
3277 EndInverse();
3278 }
3279
3280 if(saveptr)
3281 *saveptr = save;
3282
3283 PutLine0(dline+HEADER_ROWS(ps),
3284 ctmp->val2offset - SPACE_BETWEEN_DOUBLEVARS,
3285 repeat_char(SPACE_BETWEEN_DOUBLEVARS, SPACE));
3286
3287 if(l > ctmp->val2offset - ctmp->valoffset && ctmp->val2offset - ctmp->valoffset >= 0)
3288 p = saveptr + SPACE_BETWEEN_DOUBLEVARS;
3289
3290 if(p > tmp_20k_buf){
3291 if(ctmp->flags & CF_VAR2 && ctmp == screen->current)
3292 StartInverse();
3293
3294 if(p[0] == '(' && p[2] == ')' &&
3295 p[3] == ' ' && p[4] == ' ' &&
3296 (!strncmp(p+5, COLOR_BLOB, COLOR_BLOB_LEN)
3297 || !strncmp(p+5, COLOR_BLOB_TRAN, COLOR_BLOB_LEN)
3298 || !strncmp(p+5, COLOR_BLOB_NORM, COLOR_BLOB_LEN))){
3299 COLOR_PAIR *lastc = NULL, *newc = NULL;
3300
3301 MoveCursor(dline+HEADER_ROWS(ps), ctmp->val2offset);
3302 Write_to_screen_n(p, 3);
3303 if(ctmp->flags & CF_VAR2 && ctmp == screen->current)
3304 EndInverse();
3305
3306 Write_to_screen_n(p+3, 3);
3307 newc = new_color_pair(colorx(CFC_ICOLOR(ctmp)),
3308 colorx(CFC_ICOLOR(ctmp)));
3309 if(newc){
3310 lastc = pico_get_cur_color();
3311 (void)pico_set_colorp(newc, PSC_NONE);
3312 free_color_pair(&newc);
3313 }
3314
3315 Write_to_screen_n(p+6, COLOR_BLOB_LEN-2);
3316
3317 if(lastc){
3318 (void)pico_set_colorp(lastc, PSC_NONE);
3319 free_color_pair(&lastc);
3320 }
3321
3322 Write_to_screen(p+6+COLOR_BLOB_LEN-2);
3323 }
3324 else{
3325 PutLine0(dline+HEADER_ROWS(ps),ctmp->val2offset,p);
3326 if(ctmp->flags & CF_VAR2 && ctmp == screen->current)
3327 EndInverse();
3328 }
3329 }
3330 }
3331 else{
3332 char *q, *first_space, *sample, *ptr;
3333 COLOR_PAIR *lastc, *newc;
3334 int invert;
3335
3336
3337 if(ctmp->flags & CF_COLORSAMPLE &&
3338 pico_usingcolor() &&
3339 ((q = strstr(tmp_20k_buf, SAMPLE_LEADER)) ||
3340 (q = strstr(tmp_20k_buf, "Color"))) &&
3341 (first_space = strindex(q, SPACE)) &&
3342 (strstr(value, SAMP1) ||
3343 strstr(value, SAMP2))){
3344
3345 ptr = tmp_20k_buf;
3346
3347 /* write out first part */
3348 *first_space = '\0';
3349 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset,
3350 ptr);
3351 *first_space = SPACE;
3352 ptr = first_space;
3353
3354 if(ctmp == screen->current)
3355 EndInverse();
3356
3357 sample = skip_white_space(ptr);
3358 /* if there's enough room to put some sample up */
3359 save = *sample;
3360 *sample = '\0';
3361 w = utf8_width(tmp_20k_buf);
3362 *sample = save;
3363 if(ctmp->valoffset + w < ps->ttyo->screen_cols){
3364
3365 sample++; /* for `[' at edge of sample */
3366
3367 save = *ptr;
3368 *ptr = '\0';
3369 w = utf8_width(tmp_20k_buf);
3370 *ptr = save;
3371
3372 save = *sample;
3373 *sample = '\0';
3374 /* spaces and bracket before sample1 */
3375 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset+w, ptr);
3376 *sample = save;
3377
3378 ptr = sample;
3379
3380 /* then the color sample */
3381 if(ctmp->var == &ps->vars[V_VIEW_HDR_COLORS]
3382 || ctmp->var == &ps->vars[V_INDEX_TOKEN_COLORS]){
3383 SPEC_COLOR_S *hc, *hcolors;
3384
3385 lastc = newc = NULL;
3386
3387 hcolors =
3388 spec_colors_from_varlist(LVAL(ctmp->var, ew),
3389 0);
3390 for(hc = hcolors, i=0; hc; hc = hc->next, i++)
3391 if(CFC_ICUST(ctmp) == i)
3392 break;
3393
3394 if(hc && hc->fg && hc->fg[0] && hc->bg &&
3395 hc->bg[0])
3396 newc = new_color_pair(hc->fg, hc->bg);
3397
3398 if(newc){
3399 lastc = pico_get_cur_color();
3400 (void)pico_set_colorp(newc, PSC_NONE);
3401 free_color_pair(&newc);
3402 }
3403
3404 if(hcolors)
3405 free_spec_colors(&hcolors);
3406
3407
3408 /* print out sample1 */
3409
3410 save = *ptr;
3411 *ptr = '\0';
3412 w = utf8_width(tmp_20k_buf);
3413 *ptr = save;
3414
3415 want_width = MIN(utf8_width(SAMP1)-2, ps->ttyo->screen_cols - w - ctmp->valoffset);
3416 saveptr = utf8_count_forw_width(ptr, want_width, &got_width);
3417 if(saveptr){
3418 save = *saveptr;
3419 *saveptr = '\0';
3420 }
3421
3422 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset + w, ptr);
3423 if(saveptr)
3424 *saveptr = save;
3425
3426 ptr = strindex(ptr, ']');
3427
3428 if(lastc){
3429 (void)pico_set_colorp(lastc, PSC_NONE);
3430 free_color_pair(&lastc);
3431 }
3432 }
3433 else if(ctmp->var == &ps->vars[V_KW_COLORS]){
3434 KEYWORD_S *kw;
3435 SPEC_COLOR_S *kw_col = NULL;
3436
3437 lastc = newc = NULL;
3438
3439 /* find keyword associated with this line */
3440 for(kw=ps->keywords, i=0; kw; kw=kw->next, i++)
3441 if(CFC_ICUST(ctmp) == i)
3442 break;
3443
3444 if(kw)
3445 kw_col =
3446 spec_colors_from_varlist(LVAL(ctmp->var,ew),
3447 0);
3448
3449 /* color for this keyword */
3450 if(kw && kw_col
3451 && ((kw->nick && kw->nick[0]
3452 && (newc=hdr_color(kw->nick, NULL,
3453 kw_col)))
3454 ||
3455 (kw->kw && kw->kw[0]
3456 && (newc=hdr_color(kw->kw, NULL,
3457 kw_col))))){
3458 lastc = pico_get_cur_color();
3459 (void)pico_set_colorp(newc, PSC_NONE);
3460 free_color_pair(&newc);
3461 }
3462
3463 if(kw_col)
3464 free_spec_colors(&kw_col);
3465
3466 /* print out sample1 */
3467
3468 save = *ptr;
3469 *ptr = '\0';
3470 w = utf8_width(tmp_20k_buf);
3471 *ptr = save;
3472
3473 want_width = MIN(utf8_width(SAMP1)-2, ps->ttyo->screen_cols - w - ctmp->valoffset);
3474 saveptr = utf8_count_forw_width(ptr, want_width, &got_width);
3475 if(saveptr){
3476 save = *saveptr;
3477 *saveptr = '\0';
3478 }
3479
3480 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset + w, ptr);
3481 if(saveptr)
3482 *saveptr = save;
3483
3484 ptr = strindex(ptr, ']');
3485
3486 if(lastc){
3487 (void)pico_set_colorp(lastc, PSC_NONE);
3488 free_color_pair(&lastc);
3489 }
3490 }
3491 else{
3492 lastc = NULL;
3493 invert = 0;
3494 newc = sample_color(ps, ctmp->var);
3495 if(newc){
3496 if((lastc = pico_get_cur_color()) != NULL)
3497 (void)pico_set_colorp(newc, PSC_NONE);
3498
3499 free_color_pair(&newc);
3500 }
3501 else if(var_defaults_to_rev(ctmp->var)){
3502 if((newc = pico_get_rev_color()) != NULL){
3503 /*
3504 * Note, don't have to free newc.
3505 */
3506 if((lastc = pico_get_cur_color()) != NULL)
3507 (void)pico_set_colorp(newc, PSC_NONE);
3508 }
3509 else{
3510 StartInverse();
3511 invert = 1;
3512 }
3513 }
3514
3515 if(ctmp->var==&ps->vars[V_SLCTBL_FORE_COLOR] &&
3516
3517 (F_OFF(F_SLCTBL_ITEM_NOBOLD, ps) ||
3518 !(PVAL(ctmp->var,ew) &&
3519 PVAL(ctmp->var+1,ew))))
3520 StartBold();
3521
3522 /* print out sample1 */
3523
3524 save = *ptr;
3525 *ptr = '\0';
3526 w = utf8_width(tmp_20k_buf);
3527 *ptr = save;
3528
3529 want_width = MIN(utf8_width(SAMP1)-2, ps->ttyo->screen_cols - w - ctmp->valoffset);
3530 saveptr = utf8_count_forw_width(ptr, want_width, &got_width);
3531 if(saveptr){
3532 save = *saveptr;
3533 *saveptr = '\0';
3534 }
3535
3536 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset + w, ptr);
3537 if(saveptr)
3538 *saveptr = save;
3539
3540 ptr = strindex(ptr, ']');
3541
3542 if(ctmp->var==&ps->vars[V_SLCTBL_FORE_COLOR] &&
3543
3544 (F_OFF(F_SLCTBL_ITEM_NOBOLD, ps) ||
3545 !(PVAL(ctmp->var,ew) &&
3546 PVAL(ctmp->var+1,ew))))
3547 EndBold();
3548
3549 if(lastc){
3550 (void)pico_set_colorp(lastc, PSC_NONE);
3551 free_color_pair(&lastc);
3552 }
3553 else if(invert)
3554 EndInverse();
3555 }
3556
3557 /*
3558 * Finish sample1 with the right bracket.
3559 */
3560 save = *ptr;
3561 *ptr = '\0';
3562 w = utf8_width(tmp_20k_buf);
3563 *ptr = save;
3564 if(ctmp->valoffset + w < ps->ttyo->screen_cols){
3565 save = *(ptr+1);
3566 *(ptr+1) = '\0';
3567 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset + w, ptr);
3568 *(ptr+1) = save;
3569 ptr++;
3570 w++;
3571 }
3572
3573 /*
3574 * Now check for an exception sample and paint it.
3575 */
3576 if(ctmp->valoffset + w + SBS + 1 < ps->ttyo->screen_cols && (q = strstr(ptr, SAMPEXC))){
3577 /* spaces + `[' */
3578 save = ptr[SBS+1];
3579 ptr[SBS+1] = '\0';
3580 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset + w, ptr);
3581 ptr[SBS+1] = save;
3582 ptr += (SBS+1);
3583
3584 /*
3585 * Figure out what color to paint it.
3586 * This only happens with normal variables,
3587 * not with V_VIEW_HDR_COLORS.
3588 */
3589 lastc = NULL;
3590 invert = 0;
3591 newc = sampleexc_color(ps, ctmp->var);
3592 if(newc){
3593 if((lastc = pico_get_cur_color()) != NULL)
3594 (void)pico_set_colorp(newc, PSC_NONE);
3595
3596 free_color_pair(&newc);
3597 }
3598 else if(var_defaults_to_rev(ctmp->var)){
3599 if((newc = pico_get_rev_color()) != NULL){
3600 /*
3601 * Note, don't have to free newc.
3602 */
3603 if((lastc = pico_get_cur_color()) != NULL)
3604 (void)pico_set_colorp(newc, PSC_NONE);
3605 }
3606 else{
3607 StartInverse();
3608 invert = 1;
3609 }
3610 }
3611
3612 if(ctmp->var==&ps->vars[V_SLCTBL_FORE_COLOR] &&
3613
3614 (F_OFF(F_SLCTBL_ITEM_NOBOLD, ps) ||
3615 !(PVAL(ctmp->var,Post) &&
3616 PVAL(ctmp->var+1,Post))))
3617 StartBold();
3618
3619 /* sample2 */
3620 save = *ptr;
3621 *ptr = '\0';
3622 w = utf8_width(tmp_20k_buf);
3623 *ptr = save;
3624
3625 want_width = MIN(utf8_width(SAMPEXC)-2, ps->ttyo->screen_cols - w - ctmp->valoffset);
3626 saveptr = utf8_count_forw_width(ptr, want_width, &got_width);
3627 if(saveptr){
3628 save = *saveptr;
3629 *saveptr = '\0';
3630 }
3631
3632 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset + w, ptr);
3633 if(saveptr)
3634 *saveptr = save;
3635
3636 ptr = strindex(ptr, ']');
3637
3638 /* turn off bold and color */
3639 if(ctmp->var==&ps->vars[V_SLCTBL_FORE_COLOR] &&
3640
3641 (F_OFF(F_SLCTBL_ITEM_NOBOLD, ps) ||
3642 !(PVAL(ctmp->var,Post) &&
3643 PVAL(ctmp->var+1,Post))))
3644 EndBold();
3645
3646 if(lastc){
3647 (void)pico_set_colorp(lastc, PSC_NONE);
3648 free_color_pair(&lastc);
3649 }
3650 else if(invert)
3651 EndInverse();
3652
3653 /*
3654 * Finish sample2 with the right bracket.
3655 */
3656 save = *ptr;
3657 *ptr = '\0';
3658 w = utf8_width(tmp_20k_buf);
3659 *ptr = save;
3660 if(ctmp->valoffset + w < ps->ttyo->screen_cols){
3661 save = *(ptr+1);
3662 *(ptr+1) = '\0';
3663 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset + w, ptr);
3664 *(ptr+1) = save;
3665 ptr++;
3666 w++;
3667 }
3668 }
3669
3670 /* paint rest of the line if there is any left */
3671 if(ctmp->valoffset + w < ps->ttyo->screen_cols && *ptr){
3672 want_width = ps->ttyo->screen_cols - w - ctmp->valoffset;
3673 saveptr = utf8_count_forw_width(ptr, want_width, &got_width);
3674 if(saveptr){
3675 save = *saveptr;
3676 *saveptr = '\0';
3677 }
3678
3679 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset + w, ptr);
3680 if(saveptr)
3681 *saveptr = save;
3682 }
3683 }
3684 }
3685 else{
3686 w = utf8_width(tmp_20k_buf);
3687 want_width = ps->ttyo->screen_cols - ctmp->valoffset;
3688 if(w > want_width){
3689 saveptr = utf8_count_forw_width(tmp_20k_buf, want_width, &got_width);
3690 if(saveptr)
3691 *saveptr = '\0';
3692 }
3693
3694 PutLine0(dline+HEADER_ROWS(ps), ctmp->valoffset, tmp_20k_buf);
3695 if(ctmp == screen->current)
3696 EndInverse();
3697 }
3698 }
3699 }
3700 }
3701 }
3702
3703 ps->mangled_body = 0;
3704 screen->top_line = top_line;
3705 screen->prev = screen->current;
3706 #ifdef _WINDOWS
3707 mswin_endupdate();
3708 #endif
3709 }
3710
3711
3712
3713 /*
3714 *
3715 */
3716 void
3717 print_option_screen(OPT_SCREEN_S *screen, char *prompt)
3718 {
3719 CONF_S *ctmp;
3720 int so_far;
3721 char line[500];
3722
3723 if(open_printer(prompt) == 0){
3724 for(ctmp = first_confline(screen->current);
3725 ctmp;
3726 ctmp = next_confline(ctmp)){
3727
3728 so_far = 0;
3729 if(ctmp->varname && !(ctmp->flags & CF_INVISIBLEVAR)){
3730
3731 snprintf(line, sizeof(line), "%*s%s", ctmp->varoffset, "",
3732 ctmp->varname);
3733 line[sizeof(line)-1] = '\0';
3734 print_text(line);
3735 so_far = ctmp->varoffset + utf8_width(ctmp->varname);
3736 }
3737
3738 if(ctmp && ctmp->value){
3739 char *p = tmp_20k_buf;
3740 int i, j, spaces;
3741
3742 /* Copy the value to a temp buffer expanding tabs. */
3743 for(i = 0, j = ctmp->valoffset; ctmp->value[i]; i++){
3744 if(ctmp->value[i] == ctrl('I')){
3745 do
3746 *p++ = ' ';
3747 while((++j) & 0x07);
3748
3749 }
3750 else{
3751 *p++ = ctmp->value[i];
3752 j++;
3753 }
3754 }
3755
3756 *p = '\0';
3757 removing_trailing_white_space(tmp_20k_buf);
3758
3759 spaces = MAX(ctmp->valoffset - so_far, 0);
3760 snprintf(line, sizeof(line), "%*s%s\n", spaces, "", tmp_20k_buf);
3761 line[sizeof(line)-1] = '\0';
3762 print_text(line);
3763 }
3764 }
3765
3766 close_printer();
3767 }
3768 }
3769
3770
3771
3772 /*
3773 *
3774 */
3775 void
3776 option_screen_redrawer(void)
3777 {
3778 ps_global->mangled_body = 1;
3779 update_option_screen(ps_global, opt_screen, (Pos *)NULL);
3780 }
3781
3782
3783
3784 /*
3785 * pretty_value - given the line, return an
3786 * alloc'd string for line's value...
3787 */
3788 char *
3789 pretty_value(struct pine *ps, CONF_S *cl)
3790 {
3791 struct variable *v;
3792
3793 v = cl->var;
3794
3795 if(v == &ps->vars[V_FEATURE_LIST])
3796 return(checkbox_pretty_value(ps, cl));
3797 else if(standard_radio_var(ps, v) || v == startup_ptr)
3798 return(radio_pretty_value(ps, cl));
3799 else if(v == &ps->vars[V_SORT_KEY])
3800 return(sort_pretty_value(ps, cl));
3801 else if(v == &ps->vars[V_SIGNATURE_FILE])
3802 return(sigfile_pretty_value(ps, cl));
3803 else if(v == &ps->vars[V_USE_ONLY_DOMAIN_NAME])
3804 return(yesno_pretty_value(ps, cl));
3805 else if(color_holding_var(ps, v))
3806 return(color_pretty_value(ps, cl));
3807 else
3808 return(text_pretty_value(ps, cl));
3809 }
3810
3811
3812 char *
3813 text_pretty_value(struct pine *ps, CONF_S *cl)
3814 {
3815 char tmp[6*MAX_SCREEN_COLS+20], *pvalnorm, **lvalnorm, *pvalexc, **lvalexc;
3816 char *p, *pval, **lval, lastchar = '\0';
3817 int editing_except, fixed, uvalset, uvalposlen;
3818 unsigned got_width;
3819 int comments, except_set, avail_width;
3820 int norm_with_except = 0, norm_with_except_inherit = 0;
3821 int inherit_line = 0;
3822
3823 editing_except = (ew == ps_global->ew_for_except_vars);
3824 fixed = cl->var->is_fixed;
3825 if((ps_global->ew_for_except_vars != Main) && (ew == Main))
3826 norm_with_except++; /* editing normal and except config exists */
3827
3828 if(cl->var->is_list){
3829 lvalnorm = LVAL(cl->var, Main);
3830 lvalexc = LVAL(cl->var, ps_global->ew_for_except_vars);
3831 if(editing_except){
3832 uvalset = lvalexc != NULL;
3833 uvalposlen = uvalset && lvalexc[0] && lvalexc[0][0];
3834 lval = lvalexc;
3835 }
3836 else{
3837 uvalset = lvalnorm != NULL;
3838 uvalposlen = uvalset && lvalnorm[0] && lvalnorm[0][0];
3839 lval = lvalnorm;
3840 }
3841
3842 except_set = lvalexc != NULL;
3843 comments = cl->var->current_val.l != NULL;
3844 if(norm_with_except && except_set && lvalexc[0] &&
3845 !strcmp(lvalexc[0],INHERIT))
3846 norm_with_except_inherit++;
3847
3848 if(uvalset && !strcmp(lval[0], INHERIT)){
3849 if(cl->varmem == 0){
3850 inherit_line++;
3851 comments = 0;
3852 }
3853 }
3854
3855 /* only add extra comments on last member of list */
3856 if(uvalset && !inherit_line && lval && lval[cl->varmem] &&
3857 lval[cl->varmem + 1])
3858 comments = 0;
3859 }
3860 else{
3861 pvalnorm = PVAL(cl->var, Main);
3862 pvalexc = PVAL(cl->var, ps_global->ew_for_except_vars);
3863 if(editing_except){
3864 uvalset = pvalexc != NULL;
3865 uvalposlen = uvalset && *pvalexc;
3866 pval = pvalexc;
3867 }
3868 else{
3869 uvalset = pvalnorm != NULL;
3870 uvalposlen = uvalset && *pvalnorm;
3871 pval = pvalnorm;
3872 }
3873
3874 except_set = pvalexc != NULL;
3875 comments = cl->var->current_val.p != NULL;
3876 }
3877
3878 memset(tmp, 0, sizeof(tmp));
3879 p = tmp;
3880 *p = '\0';
3881
3882 avail_width = ps->ttyo->screen_cols - cl->valoffset;
3883
3884 if(fixed || !uvalset || !uvalposlen){
3885 p += utf8_to_width(p, "<", sizeof(tmp)-(p-tmp), avail_width, &got_width);
3886 avail_width -= got_width;
3887 }
3888
3889 if(fixed){
3890 p += utf8_to_width(p, _(fixed_val), sizeof(tmp)-(p-tmp), avail_width, &got_width);
3891 avail_width -= got_width;
3892 }
3893 else if(!uvalset){
3894 p += utf8_to_width(p, _(no_val), sizeof(tmp)-(p-tmp), avail_width, &got_width);
3895 avail_width -= got_width;
3896 }
3897 else if(!uvalposlen){
3898 p += utf8_to_width(p, _(empty_val), sizeof(tmp)-(p-tmp), avail_width, &got_width);
3899 avail_width -= got_width;
3900 }
3901 else if(inherit_line){
3902 p += utf8_to_width(p, INHERIT, sizeof(tmp)-(p-tmp), avail_width, &got_width);
3903 avail_width -= got_width;
3904 }
3905 else{
3906 if(cl->var->is_list){
3907 p += utf8_to_width(p, lval[cl->varmem], sizeof(tmp)-(p-tmp), avail_width, &got_width);
3908 avail_width -= got_width;
3909 }
3910 else{
3911 p += utf8_to_width(p, pval, sizeof(tmp)-(p-tmp), avail_width, &got_width);
3912 avail_width -= got_width;
3913 }
3914 }
3915
3916 if(comments && (fixed || !uvalset || (norm_with_except && except_set))){
3917 if(fixed || !uvalset){
3918 p += utf8_to_width(p, ": using ", sizeof(tmp)-(p-tmp), avail_width, &got_width);
3919 avail_width -= got_width;
3920 }
3921
3922 if(norm_with_except && except_set){
3923 if(!uvalset){
3924 p += utf8_to_width(p, "exception ", sizeof(tmp)-(p-tmp), avail_width, &got_width);
3925 avail_width -= got_width;
3926 }
3927 else if(!fixed){
3928 if(!uvalposlen){
3929 p += utf8_to_width(p, ": ", sizeof(tmp)-(p-tmp), avail_width, &got_width);
3930 avail_width -= got_width;
3931 }
3932 else{
3933 p += utf8_to_width(p, " (", sizeof(tmp)-(p-tmp), avail_width, &got_width);
3934 avail_width -= got_width;
3935 }
3936
3937 if(norm_with_except_inherit){
3938 p += utf8_to_width(p, "added to by exception ", sizeof(tmp)-(p-tmp), avail_width, &got_width);
3939 avail_width -= got_width;
3940 }
3941 else{
3942 p += utf8_to_width(p, "overridden by exception ", sizeof(tmp)-(p-tmp), avail_width, &got_width);
3943 avail_width -= got_width;
3944 }
3945 }
3946 }
3947
3948 if(avail_width >= 7){
3949 if(cl->var == &ps_global->vars[V_POST_CHAR_SET]){
3950 p += utf8_to_width(p, "most specific (see help)", sizeof(tmp)-(p-tmp), avail_width, &got_width);
3951 avail_width -= got_width;
3952 }
3953 else{
3954 sstrncpy(&p, "\"", sizeof(tmp)-(p-tmp));
3955 avail_width--;
3956 if(cl->var->is_list){
3957 char **the_list;
3958
3959 the_list = cl->var->current_val.l;
3960
3961 if(norm_with_except && except_set)
3962 the_list = lvalexc;
3963
3964 if(the_list && the_list[0] && !strcmp(the_list[0], INHERIT))
3965 the_list++;
3966
3967 for(lval = the_list; avail_width-(p-tmp) > 0 && *lval; lval++){
3968 if(lval != the_list){
3969 p += utf8_to_width(p, ",", sizeof(tmp)-(p-tmp), avail_width, &got_width);
3970 avail_width -= got_width;
3971 }
3972
3973 p += utf8_to_width(p, *lval, sizeof(tmp)-(p-tmp), avail_width, &got_width);
3974 avail_width -= got_width;
3975 }
3976 }
3977 else{
3978 p += utf8_to_width(p, cl->var->current_val.p, sizeof(tmp)-(p-tmp), avail_width, &got_width);
3979 avail_width -= got_width;
3980 }
3981
3982 if(p-tmp+2 < sizeof(tmp)){
3983 *p++ = '\"';
3984 *p = '\0';
3985 }
3986 }
3987 }
3988 else if(*(p-1) == SPACE)
3989 *--p = '\0';
3990 }
3991
3992 tmp[sizeof(tmp)-1] = '\0';
3993
3994 if(fixed || !uvalset || !uvalposlen)
3995 lastchar = '>';
3996 else if(comments && norm_with_except && except_set)
3997 lastchar = ')';
3998
3999 if(lastchar){
4000 if(p-tmp+2 < sizeof(tmp)){
4001 *p++ = lastchar;
4002 *p = '\0';
4003 }
4004 }
4005
4006 tmp[sizeof(tmp)-1] = '\0';
4007 avail_width = ps->ttyo->screen_cols - cl->valoffset;
4008
4009 if(utf8_width(tmp) < avail_width)
4010 snprintf(tmp+strlen(tmp), sizeof(tmp)-strlen(tmp), "%*s", avail_width-utf8_width(tmp), "");
4011
4012 tmp[sizeof(tmp)-1] = '\0';
4013
4014 return(cpystr(tmp));
4015 }
4016
4017
4018 char *
4019 checkbox_pretty_value(struct pine *ps, CONF_S *cl)
4020 {
4021 char tmp[6*MAXPATH];
4022 char *comment = NULL;
4023 int indent, x, screen_width, need;
4024 int longest_featname, longest_comment;
4025 int nwidcomm; /* name width with comment */
4026 int nwidnocomm; /* and without comment */
4027 FEATURE_S *feature;
4028
4029 screen_width = (ps && ps->ttyo) ? ps->ttyo->screen_cols : 80;
4030 tmp[0] = '\0';
4031
4032 longest_featname = longest_feature_name();
4033 longest_comment = longest_feature_comment(ps, ew);
4034 indent = feature_indent();
4035
4036 nwidcomm = longest_featname;
4037 nwidnocomm = longest_featname + 2 + longest_comment;
4038
4039 if((need = (indent + 5 + longest_featname + 2 + longest_comment) - screen_width) > 0){
4040 if(need < 10){
4041 nwidcomm -= need;
4042 nwidnocomm -= need;
4043 }
4044 else{
4045 longest_comment = 0;
4046 nwidnocomm = longest_featname;
4047 }
4048 }
4049
4050 feature = feature_list(cl->varmem);
4051
4052 x = feature_gets_an_x(ps, cl->var, feature, &comment, ew);
4053
4054 if(longest_comment && comment && *comment){
4055 utf8_snprintf(tmp, sizeof(tmp), "[%c] %-*.*w %-*.*w", x ? 'X' : ' ',
4056 nwidcomm, nwidcomm,
4057 pretty_feature_name(feature->name, nwidcomm),
4058 longest_comment, longest_comment, comment ? comment : "");
4059 }
4060 else{
4061 utf8_snprintf(tmp, sizeof(tmp), "[%c] %-*.*w", x ? 'X' : ' ',
4062 nwidnocomm, nwidnocomm,
4063 pretty_feature_name(feature->name, nwidnocomm));
4064 }
4065
4066 return(cpystr(tmp));
4067 }
4068
4069
4070 int
4071 longest_feature_name(void)
4072 {
4073 static int lv = -1;
4074 int i, j;
4075 FEATURE_S *feature;
4076
4077 if(lv < 0){
4078 for(lv = 0, i = 0; (feature = feature_list(i)); i++)
4079 if(feature_list_section(feature)
4080 && lv < (j = utf8_width(pretty_feature_name(feature->name, -1))))
4081 lv = j;
4082
4083 lv = MIN(lv, 100);
4084 }
4085
4086 return(lv);
4087 }
4088
4089
4090 int
4091 feature_indent(void)
4092 {
4093 return(6);
4094 }
4095
4096
4097 char *
4098 yesno_pretty_value(struct pine *ps, CONF_S *cl)
4099 {
4100 char tmp[6*MAXPATH], *pvalnorm, *pvalexc;
4101 char *p, *pval, lastchar = '\0';
4102 int editing_except, fixed, norm_with_except, uvalset;
4103 int curval, except_set;
4104
4105 editing_except = (ew == ps_global->ew_for_except_vars);
4106 fixed = cl->var->is_fixed;
4107 if((ps_global->ew_for_except_vars == Main) ||
4108 (ew == ps_global->ew_for_except_vars))
4109 norm_with_except = 0;
4110 else
4111 norm_with_except = 1; /* editing normal and except config exists */
4112
4113 pvalnorm = PVAL(cl->var, Main);
4114 pvalexc = PVAL(cl->var, ps_global->ew_for_except_vars);
4115 if(editing_except){
4116 uvalset = (pvalexc != NULL &&
4117 (!strucmp(pvalexc,yesstr) || !strucmp(pvalexc,nostr)));
4118 pval = pvalexc;
4119 }
4120 else{
4121 uvalset = (pvalnorm != NULL &&
4122 (!strucmp(pvalnorm,yesstr) || !strucmp(pvalnorm,nostr)));
4123 pval = pvalnorm;
4124 }
4125
4126 except_set = (pvalexc != NULL &&
4127 (!strucmp(pvalexc,yesstr) || !strucmp(pvalexc,nostr)));
4128 curval = (cl->var->current_val.p != NULL &&
4129 (!strucmp(cl->var->current_val.p,yesstr) ||
4130 !strucmp(cl->var->current_val.p,nostr)));
4131
4132 p = tmp;
4133 *p = '\0';
4134
4135 if(fixed || !uvalset)
4136 sstrncpy(&p, "<", sizeof(tmp)-(p-tmp));
4137
4138 if(fixed)
4139 sstrncpy(&p, _(fixed_val), sizeof(tmp)-(p-tmp));
4140 else if(!uvalset)
4141 sstrncpy(&p, _(no_val), sizeof(tmp)-(p-tmp));
4142 else if(!strucmp(pval, yesstr))
4143 sstrncpy(&p, yesstr, sizeof(tmp)-(p-tmp));
4144 else
4145 sstrncpy(&p, nostr, sizeof(tmp)-(p-tmp));
4146
4147 if(curval && (fixed || !uvalset || (norm_with_except && except_set))){
4148 if(fixed || !uvalset)
4149 sstrncpy(&p, ": using ", sizeof(tmp)-(p-tmp));
4150
4151 if(norm_with_except && except_set){
4152 if(!uvalset)
4153 sstrncpy(&p, "exception ", sizeof(tmp)-(p-tmp));
4154 else if(!fixed){
4155 sstrncpy(&p, " (", sizeof(tmp)-(p-tmp));
4156 sstrncpy(&p, "overridden by exception ", sizeof(tmp)-(p-tmp));
4157 }
4158 }
4159
4160 sstrncpy(&p, "\"", sizeof(tmp)-(p-tmp));
4161 sstrncpy(&p, !strucmp(cl->var->current_val.p,yesstr) ? yesstr : nostr, sizeof(tmp)-(p-tmp));
4162 sstrncpy(&p, "\"", sizeof(tmp)-(p-tmp));
4163 }
4164
4165 if(fixed || !uvalset)
4166 lastchar = '>';
4167 else if(curval && norm_with_except && except_set)
4168 lastchar = ')';
4169
4170 if(lastchar && sizeof(tmp)-(p-tmp) > 1){
4171 *p++ = lastchar;
4172 *p = '\0';
4173 }
4174
4175 tmp[sizeof(tmp)-1] = '\0';
4176
4177 if(utf8_width(tmp) < ps->ttyo->screen_cols - cl->valoffset)
4178 snprintf(tmp+strlen(tmp), sizeof(tmp)-strlen(tmp),
4179 "%*s", ps->ttyo->screen_cols - cl->valoffset - utf8_width(tmp), "");
4180
4181 tmp[sizeof(tmp)-1] = '\0';
4182
4183 return(cpystr(tmp));
4184 }
4185
4186
4187 char *
4188 radio_pretty_value(struct pine *ps, CONF_S *cl)
4189 {
4190 char tmp[6*MAXPATH];
4191 char *pvalnorm, *pvalexc, *pval;
4192 int editing_except_which_isnt_normal, editing_normal_which_isnt_except;
4193 int fixed, is_set_for_this_level = 0, is_the_one, the_exc_one;
4194 int i, j, lv = 0;
4195 NAMEVAL_S *rule = NULL, *f;
4196 PTR_TO_RULEFUNC rulefunc;
4197 struct variable *v;
4198
4199 tmp[0] = '\0';
4200 v = cl->var;
4201
4202 editing_except_which_isnt_normal = (ew == ps_global->ew_for_except_vars &&
4203 ew != Main);
4204 editing_normal_which_isnt_except = (ew == Main &&
4205 ew != ps_global->ew_for_except_vars);
4206 fixed = cl->var->is_fixed;
4207 pvalnorm = PVAL(v, Main);
4208 pvalexc = PVAL(v, ps_global->ew_for_except_vars);
4209
4210 rulefunc = rulefunc_from_var(ps, v);
4211 rule = rulefunc ? (*rulefunc)(cl->varmem) : NULL;
4212
4213 /* find longest name */
4214 if(rulefunc)
4215 for(lv = 0, i = 0; (f = (*rulefunc)(i)); i++)
4216 if(lv < (j = utf8_width(f->name)))
4217 lv = j;
4218
4219 lv = MIN(lv, 100);
4220
4221 if(editing_except_which_isnt_normal)
4222 pval = pvalexc;
4223 else
4224 pval = pvalnorm;
4225
4226 if(pval)
4227 is_set_for_this_level++;
4228
4229 if(fixed){
4230 pval = v->fixed_val.p;
4231 is_the_one = (pval && !strucmp(pval, S_OR_L(rule)));
4232
4233 utf8_snprintf(tmp, sizeof(tmp), "(%c) %-*.*w%s",
4234 is_the_one ? R_SELD : ' ',
4235 lv, lv, rule->name, is_the_one ? " (value is fixed)" : "");
4236 }
4237 else if(is_set_for_this_level){
4238 is_the_one = (pval && !strucmp(pval, S_OR_L(rule)));
4239 the_exc_one = (editing_normal_which_isnt_except && pvalexc &&
4240 !strucmp(pvalexc, S_OR_L(rule)));
4241 utf8_snprintf(tmp, sizeof(tmp), "(%c) %-*.*w%s",
4242 is_the_one ? R_SELD : ' ',
4243 lv, lv, rule->name,
4244 (!is_the_one && the_exc_one) ? " (value set in exceptions)" :
4245 (is_the_one && the_exc_one) ? " (also set in exceptions)" :
4246 (is_the_one &&
4247 editing_normal_which_isnt_except &&
4248 pvalexc &&
4249 !the_exc_one) ? " (overridden by exceptions)" :
4250 "");
4251 }
4252 else{
4253 if(pvalexc){
4254 is_the_one = !strucmp(pvalexc, S_OR_L(rule));
4255 utf8_snprintf(tmp, sizeof(tmp), "(%c) %-*.*w%s",
4256 is_the_one ? R_SELD : ' ',
4257 lv, lv, rule->name,
4258 is_the_one ? " (value set in exceptions)" : "");
4259 }
4260 else{
4261 pval = v->current_val.p;
4262 is_the_one = (pval && !strucmp(pval, S_OR_L(rule)));
4263 utf8_snprintf(tmp, sizeof(tmp), "(%c) %-*.*w%s",
4264 is_the_one ? R_SELD : ' ',
4265 lv, lv, rule->name,
4266 is_the_one ? ((editing_except_which_isnt_normal && pvalnorm) ? " (default from regular config)" : " (default)") : "");
4267 }
4268 }
4269
4270 tmp[sizeof(tmp)-1] = '\0';
4271
4272 return(cpystr(tmp));
4273 }
4274
4275
4276 char *
4277 sigfile_pretty_value(struct pine *ps, CONF_S *cl)
4278 {
4279 if(cl && cl->var == &ps->vars[V_SIGNATURE_FILE] &&
4280 cl->prev && cl->prev->var == &ps->vars[V_LITERAL_SIG]){
4281 if(cl->prev->var->current_val.p){
4282 cl->flags |= CF_NOSELECT; /* side effect */
4283 return(cpystr(_("<Ignored: using Literal-Signature instead>")));
4284 }
4285 else{
4286 cl->flags &= ~CF_NOSELECT;
4287 return(text_pretty_value(ps, cl));
4288 }
4289 }
4290 else
4291 return(cpystr(""));
4292 }
4293
4294
4295 char *
4296 color_pretty_value(struct pine *ps, CONF_S *cl)
4297 {
4298 char tmp[6*MAXPATH];
4299 char *p, *q;
4300 struct variable *v;
4301 int is_index;
4302
4303 tmp[0] = '\0';
4304 v = cl->var;
4305
4306 if(v && color_holding_var(ps, v) &&
4307 (p=srchstr(v->name, "-foreground-color"))){
4308
4309 is_index = !struncmp(v->name, "index-", 6);
4310
4311 q = sampleexc_text(ps, v);
4312 utf8_snprintf(tmp, sizeof(tmp), "%c%.*s %sColor%*.50s %.20w%*s%.20w%.20w",
4313 islower((unsigned char)v->name[0])
4314 ? toupper((unsigned char)v->name[0])
4315 : v->name[0],
4316 MIN(p-v->name-1,30), v->name+1,
4317 is_index ? "Symbol " : "",
4318 MAX(EQ_COL - COLOR_INDENT -1 - MIN(p-v->name-1,30)
4319 - 6 - (is_index ? 7 : 0) - 1,0), "",
4320 sample_text(ps,v), *q ? SBS : 0, "", q,
4321 color_parenthetical(v));
4322 }
4323
4324 tmp[sizeof(tmp)-1] = '\0';
4325
4326 return(cpystr(tmp));
4327 }
4328
4329
4330 char *
4331 sort_pretty_value(struct pine *ps, CONF_S *cl)
4332 {
4333 return(generalized_sort_pretty_value(ps, cl, 1));
4334 }
4335
4336
4337 char *
4338 generalized_sort_pretty_value(struct pine *ps, CONF_S *cl, int default_ok)
4339 {
4340 char tmp[6*MAXPATH];
4341 char *pvalnorm, *pvalexc, *pval;
4342 int editing_except_which_isnt_normal, editing_normal_which_isnt_except;
4343 int fixed, is_set_for_this_level = 0, is_the_one, the_exc_one;
4344 int i, j, lv = 0;
4345 struct variable *v;
4346 SortOrder line_sort, var_sort, exc_sort;
4347 int line_sort_rev, var_sort_rev, exc_sort_rev;
4348
4349 tmp[0] = '\0';
4350 v = cl->var;
4351
4352 editing_except_which_isnt_normal = (ew == ps_global->ew_for_except_vars &&
4353 ew != Main);
4354 editing_normal_which_isnt_except = (ew == Main &&
4355 ew != ps_global->ew_for_except_vars);
4356 fixed = cl->var->is_fixed;
4357 pvalnorm = PVAL(v, Main);
4358 pvalexc = PVAL(v, ps_global->ew_for_except_vars);
4359
4360 /* find longest value's name */
4361 for(lv = 0, i = 0; ps->sort_types[i] != EndofList; i++)
4362 if(lv < (j = utf8_width(sort_name(ps->sort_types[i]))))
4363 lv = j;
4364
4365 lv = MIN(lv, 100);
4366
4367 if(editing_except_which_isnt_normal)
4368 pval = pvalexc;
4369 else
4370 pval = pvalnorm;
4371
4372 if(pval)
4373 is_set_for_this_level++;
4374
4375 /* the config line we're talking about */
4376 if(cl->varmem >= 0){
4377 line_sort_rev = cl->varmem >= (short)EndofList;
4378 line_sort = (SortOrder)(cl->varmem - (line_sort_rev * EndofList));
4379 }
4380
4381 if(cl->varmem < 0){
4382 utf8_snprintf(tmp, sizeof(tmp), "(%c) %-*w",
4383 (pval == NULL) ? R_SELD : ' ',
4384 lv, "Default");
4385 }
4386 else if(fixed){
4387 pval = v->fixed_val.p;
4388 decode_sort(pval, &var_sort, &var_sort_rev);
4389 is_the_one = (var_sort_rev == line_sort_rev && var_sort == line_sort);
4390
4391 utf8_snprintf(tmp, sizeof(tmp), "(%c) %s%-*w%*s%s",
4392 is_the_one ? R_SELD : ' ',
4393 line_sort_rev ? "Reverse " : "",
4394 lv, sort_name(line_sort),
4395 line_sort_rev ? 0 : 8, "",
4396 is_the_one ? " (value is fixed)" : "");
4397 }
4398 else if(is_set_for_this_level){
4399 decode_sort(pval, &var_sort, &var_sort_rev);
4400 is_the_one = (var_sort_rev == line_sort_rev && var_sort == line_sort);
4401 decode_sort(pvalexc, &exc_sort, &exc_sort_rev);
4402 the_exc_one = (editing_normal_which_isnt_except && pvalexc &&
4403 exc_sort_rev == line_sort_rev && exc_sort == line_sort);
4404 utf8_snprintf(tmp, sizeof(tmp), "(%c) %s%-*w%*s%s",
4405 is_the_one ? R_SELD : ' ',
4406 line_sort_rev ? "Reverse " : "",
4407 lv, sort_name(line_sort),
4408 line_sort_rev ? 0 : 8, "",
4409 (!is_the_one && the_exc_one) ? " (value set in exceptions)" :
4410 (is_the_one && the_exc_one) ? " (also set in exceptions)" :
4411 (is_the_one &&
4412 editing_normal_which_isnt_except &&
4413 pvalexc &&
4414 !the_exc_one) ? " (overridden by exceptions)" :
4415 "");
4416 }
4417 else{
4418 if(pvalexc){
4419 decode_sort(pvalexc, &exc_sort, &exc_sort_rev);
4420 is_the_one = (exc_sort_rev == line_sort_rev &&
4421 exc_sort == line_sort);
4422 utf8_snprintf(tmp, sizeof(tmp), "( ) %s%-*w%*s%s",
4423 line_sort_rev ? "Reverse " : "",
4424 lv, sort_name(line_sort),
4425 line_sort_rev ? 0 : 8, "",
4426 is_the_one ? " (value set in exceptions)" : "");
4427 }
4428 else{
4429 pval = v->current_val.p;
4430 decode_sort(pval, &var_sort, &var_sort_rev);
4431 is_the_one = ((pval || default_ok) &&
4432 var_sort_rev == line_sort_rev &&
4433 var_sort == line_sort);
4434 utf8_snprintf(tmp, sizeof(tmp), "(%c) %s%-*w%*s%s",
4435 is_the_one ? R_SELD : ' ',
4436 line_sort_rev ? "Reverse " : "",
4437 lv, sort_name(line_sort),
4438 line_sort_rev ? 0 : 8, "",
4439 is_the_one ? ((editing_except_which_isnt_normal && pvalnorm) ? " (default from regular config)" : " (default)") : "");
4440 }
4441 }
4442
4443 return(cpystr(tmp));
4444 }
4445
4446
4447 COLOR_PAIR *
4448 sample_color(struct pine *ps, struct variable *v)
4449 {
4450 COLOR_PAIR *cp = NULL;
4451 char *pvalefg, *pvalebg;
4452 char *pvalmfg, *pvalmbg;
4453
4454 pvalefg = PVAL(v, ew);
4455 pvalebg = PVAL(v+1, ew);
4456 pvalmfg = PVAL(v, Main);
4457 pvalmbg = PVAL(v+1, Main);
4458 if(v && color_holding_var(ps, v) &&
4459 srchstr(v->name, "-foreground-color")){
4460 if(pvalefg && pvalefg[0] && pvalebg && pvalebg[0])
4461 cp = new_color_pair(pvalefg, pvalebg);
4462 else if(ew == Post && pvalmfg && pvalmfg[0] && pvalmbg && pvalmbg[0])
4463 cp = new_color_pair(pvalmfg, pvalmbg);
4464 else if(v->global_val.p && v->global_val.p[0] &&
4465 (v+1)->global_val.p && (v+1)->global_val.p[0])
4466 cp = new_color_pair(v->global_val.p, (v+1)->global_val.p);
4467 }
4468
4469 return(cp);
4470 }
4471
4472
4473 COLOR_PAIR *
4474 sampleexc_color(struct pine *ps, struct variable *v)
4475 {
4476 COLOR_PAIR *cp = NULL;
4477 char *pvalfg, *pvalbg;
4478
4479 pvalfg = PVAL(v, Post);
4480 pvalbg = PVAL(v+1, Post);
4481 if(v && color_holding_var(ps, v) &&
4482 srchstr(v->name, "-foreground-color") &&
4483 pvalfg && pvalfg[0] && pvalbg && pvalbg[0])
4484 cp = new_color_pair(pvalfg, pvalbg);
4485
4486 return(cp);
4487 }
4488
4489
4490 void
4491 clear_feature(char ***l, char *f)
4492 {
4493 char **list = l ? *l : NULL;
4494 int count = 0;
4495
4496 for(; list && *list; list++, count++){
4497 if(f && !strucmp(((!struncmp(*list,"no-",3)) ? *list + 3 : *list), f)){
4498 fs_give((void **)list);
4499 f = NULL;
4500 }
4501
4502 if(!f) /* shift */
4503 *list = *(list + 1);
4504 }
4505
4506 /*
4507 * this is helpful to keep the array from growing if a feature
4508 * get's set and unset repeatedly
4509 */
4510 if(!f)
4511 fs_resize((void **)l, count * sizeof(char *));
4512 }
4513
4514
4515 /*
4516 *
4517 */
4518 void
4519 toggle_feature_bit(struct pine *ps, int index, struct variable *var, CONF_S *cl, int just_flip_value)
4520 {
4521 FEATURE_S *f;
4522 int og, on_before;
4523 char *p, **vp;
4524
4525 f = feature_list(index);
4526
4527 og = test_old_growth_bits(ps, f->id);
4528
4529 /*
4530 * if this feature is in the fixed set, or old-growth is in the fixed
4531 * set and this feature is in the old-growth set, don't alter it...
4532 */
4533 for(vp = var->fixed_val.l; vp && *vp; vp++){
4534 p = (struncmp(*vp, "no-", 3)) ? *vp : *vp + 3;
4535 if(!strucmp(p, f->name) || (og && !strucmp(p, "old-growth"))){
4536 q_status_message(SM_ORDER, 3, 3,
4537 _("Can't change value fixed by sys-admin."));
4538 return;
4539 }
4540 }
4541
4542 on_before = F_ON(f->id, ps);
4543
4544 toggle_feature(ps, var, f, just_flip_value, ew);
4545
4546 /*
4547 * Handle any alpine-specific features that need attention here. Features
4548 * that aren't alpine-specific should be handled in toggle_feature instead.
4549 */
4550 if(on_before != F_ON(f->id, ps))
4551 switch(f->id){
4552 case F_CMBND_ABOOK_DISP :
4553 addrbook_reset();
4554 break;
4555
4556 case F_PRESERVE_START_STOP :
4557 /* toggle raw mode settings to make tty driver aware of new setting */
4558 PineRaw(0);
4559 PineRaw(1);
4560 break;
4561
4562 case F_USE_FK :
4563 ps->orig_use_fkeys = F_ON(F_USE_FK, ps);
4564 ps->mangled_footer = 1;
4565 mark_keymenu_dirty();
4566 break;
4567
4568 case F_SHOW_SORT :
4569 ps->mangled_header = 1;
4570 break;
4571
4572 case F_BLANK_KEYMENU :
4573 if(F_ON(f->id, ps)){
4574 FOOTER_ROWS(ps) = 1;
4575 ps->mangled_body = 1;
4576 }
4577 else{
4578 FOOTER_ROWS(ps) = 3;
4579 ps->mangled_footer = 1;
4580 }
4581
4582 clearfooter(ps);
4583 break;
4584
4585 case F_ENABLE_INCOMING :
4586 q_status_message(SM_ORDER | SM_DING, 3, 4,
4587 "Folder List changes will take effect your next Alpine session.");
4588 break;
4589
4590 #ifdef _WINDOWS
4591 case F_SHOW_CURSOR :
4592 mswin_showcaret(F_ON(f->id,ps));
4593 break;
4594
4595 case F_ENABLE_TRAYICON :
4596 mswin_trayicon(F_ON(f->id,ps));
4597 break;
4598 #endif
4599
4600 #if !defined(DOS) && !defined(OS2)
4601 case F_ALLOW_TALK :
4602 if(F_ON(f->id, ps))
4603 allow_talk(ps);
4604 else
4605 disallow_talk(ps);
4606
4607 break;
4608 #endif
4609
4610 case F_PASS_CONTROL_CHARS :
4611 ps->pass_ctrl_chars = F_ON(F_PASS_CONTROL_CHARS,ps_global) ? 1 : 0;
4612 break;
4613
4614 case F_PASS_C1_CONTROL_CHARS :
4615 ps->pass_c1_ctrl_chars = F_ON(F_PASS_C1_CONTROL_CHARS,ps_global) ? 1 : 0;
4616 break;
4617
4618 #ifdef MOUSE
4619 case F_ENABLE_MOUSE :
4620 if(F_ON(f->id, ps)){
4621 init_mouse();
4622 if(!mouseexist())
4623 q_status_message(SM_ORDER | SM_DING, 3, 4,
4624 "Mouse tracking still off ($DISPLAY variable set?)");
4625 }
4626 else
4627 end_mouse();
4628
4629 break;
4630 #endif
4631 }
4632
4633 if(just_flip_value){
4634 if(cl->value && cl->value[0])
4635 cl->value[1] = (cl->value[1] == ' ') ? 'X' : ' ';
4636 }
4637 else{
4638 /*
4639 * This fork is only called from the checkbox_tool, which has
4640 * varmem set to index correctly and cl->var set correctly.
4641 */
4642 if(cl->value)
4643 fs_give((void **)&cl->value);
4644
4645 cl->value = pretty_value(ps, cl);
4646 }
4647 }
4648
4649
4650 /*
4651 * new_confline - create new CONF_S zero it out, and insert it after current.
4652 * NOTE current gets set to the new CONF_S too!
4653 */
4654 CONF_S *
4655 new_confline(CONF_S **current)
4656 {
4657 CONF_S *p;
4658
4659 p = (CONF_S *)fs_get(sizeof(CONF_S));
4660 memset((void *)p, 0, sizeof(CONF_S));
4661 if(current){
4662 if(*current){
4663 p->next = (*current)->next;
4664 (*current)->next = p;
4665 p->prev = *current;
4666 if(p->next)
4667 p->next->prev = p;
4668 }
4669
4670 *current = p;
4671 }
4672
4673 return(p);
4674 }
4675
4676
4677 /*
4678 *
4679 */
4680 void
4681 snip_confline(CONF_S **p)
4682 {
4683 CONF_S *q;
4684
4685 /*
4686 * Be careful. We need this line because the
4687 * q->prev->next = ...
4688 * may change q itself if &q == &q->prev->next.
4689 * Then the use of q in the next line is wrong.
4690 * That's what happens if we pass in the address of
4691 * some ->next and use *p directly instead of q.
4692 */
4693 q = *p;
4694
4695 if(q){
4696 /* Yank it from the linked list */
4697 if(q->prev)
4698 q->prev->next = q->next;
4699
4700 if(q->next)
4701 q->next->prev = q->prev;
4702
4703 /* Then free up it's memory */
4704 q->prev = q->next = NULL;
4705 free_conflines(&q);
4706 }
4707 }
4708
4709
4710 /*
4711 *
4712 */
4713 void
4714 free_conflines(CONF_S **p)
4715 {
4716 if(*p){
4717 free_conflines(&(*p)->next);
4718
4719 if((*p)->varname)
4720 fs_give((void **) &(*p)->varname);
4721
4722 if((*p)->value)
4723 fs_give((void **) &(*p)->value);
4724
4725 fs_give((void **) p);
4726 }
4727 }
4728
4729
4730 /*
4731 *
4732 */
4733 CONF_S *
4734 first_confline(CONF_S *p)
4735 {
4736 while(p && p->prev)
4737 p = p->prev;
4738
4739 return(p);
4740 }
4741
4742
4743 /*
4744 * First selectable confline.
4745 */
4746 CONF_S *
4747 first_sel_confline(CONF_S *p)
4748 {
4749 for(p = first_confline(p); p && (p->flags&CF_NOSELECT); p=next_confline(p))
4750 ;/* do nothing */
4751
4752 return(p);
4753 }
4754
4755
4756 /*
4757 *
4758 */
4759 CONF_S *
4760 last_confline(CONF_S *p)
4761 {
4762 while(p && p->next)
4763 p = p->next;
4764
4765 return(p);
4766 }
4767
4768
4769 /*
4770 *
4771 */
4772 int
4773 fixed_var(struct variable *v, char *action, char *name)
4774 {
4775 char **lval;
4776
4777 if(v && v->is_fixed
4778 && (!v->is_list
4779 || ((lval=v->fixed_val.l) && lval[0]
4780 && strcmp(INHERIT, lval[0]) != 0))){
4781 q_status_message2(SM_ORDER, 3, 3,
4782 "Can't %s sys-admin defined %s.",
4783 action ? action : "change", name ? name : "value");
4784 return(1);
4785 }
4786
4787 return(0);
4788 }
4789
4790
4791 void
4792 exception_override_warning(struct variable *v)
4793 {
4794 char **lval;
4795
4796 /* if exceptions config file exists and we're not editing it */
4797 if(v && (ps_global->ew_for_except_vars != Main) && (ew == Main)){
4798 if((!v->is_list && PVAL(v, ps_global->ew_for_except_vars)) ||
4799 (v->is_list && (lval=LVAL(v, ps_global->ew_for_except_vars)) &&
4800 lval[0] && strcmp(INHERIT, lval[0]) != 0))
4801 q_status_message1(SM_ORDER, 3, 3,
4802 _("Warning: \"%s\" is overridden in your exceptions configuration"),
4803 v->name);
4804 }
4805 }
4806
4807
4808 void
4809 offer_to_fix_pinerc(struct pine *ps)
4810 {
4811 struct variable *v;
4812 char prompt[300];
4813 char *p, *q;
4814 char **list;
4815 char **list_fixed;
4816 int rv = 0, write_main = 0, write_post = 0;
4817 int i, k, j, need, exc;
4818 char *clear = ": delete it";
4819 char ***plist;
4820
4821 dprint((4, "offer_to_fix_pinerc()\n"));
4822
4823 ps->fix_fixed_warning = 0; /* so we only ask first time */
4824
4825 if(ps->readonly_pinerc)
4826 return;
4827
4828 set_titlebar(_("FIXING PINERC"), ps->mail_stream,
4829 ps->context_current,
4830 ps->cur_folder, ps->msgmap, 1, FolderName, 0, 0, NULL);
4831
4832 if(want_to(_("Some of your options conflict with site policy. Investigate"),
4833 'y', 'n', NO_HELP, WT_FLUSH_IN) != 'y')
4834 return;
4835
4836 /* space want_to requires in addition to the string you pass in */
4837 #define WANTTO_SPACE 6
4838 need = WANTTO_SPACE + utf8_width(clear);
4839
4840 for(v = ps->vars; v->name; v++){
4841 if(!v->is_fixed ||
4842 !v->is_user ||
4843 v->is_obsolete ||
4844 v == &ps->vars[V_FEATURE_LIST]) /* handle feature-list below */
4845 continue;
4846
4847 prompt[0] = '\0';
4848
4849 if(v->is_list &&
4850 (v->post_user_val.l || v->main_user_val.l)){
4851 char **active_list;
4852
4853 active_list = v->post_user_val.l ? v->post_user_val.l
4854 : v->main_user_val.l;
4855 if(*active_list){
4856 snprintf(prompt, sizeof(prompt), _("Your setting for %s is "), v->name);
4857 prompt[sizeof(prompt)-1] = '\0';
4858 p = prompt + strlen(prompt);
4859 for(i = 0; active_list[i]; i++){
4860 if(utf8_width(prompt) > ps->ttyo->screen_cols - need)
4861 break;
4862 if(i && sizeof(prompt)-(p-prompt) > 0)
4863 *p++ = ',';
4864
4865 sstrncpy(&p, active_list[i], sizeof(prompt)-(p-prompt));
4866 if(sizeof(prompt)-(p-prompt) > 0)
4867 *p = '\0';
4868
4869 prompt[sizeof(prompt)-1] = '\0';
4870 }
4871
4872 if(sizeof(prompt)-(p-prompt) > 0)
4873 *p = '\0';
4874 }
4875 else
4876 snprintf(prompt, sizeof(prompt), _("Your setting for %s is %s"), v->name, _(empty_val2));
4877 }
4878 else{
4879 if(v->post_user_val.p || v->main_user_val.p){
4880 char *active_var;
4881
4882 active_var = v->post_user_val.p ? v->post_user_val.p
4883 : v->main_user_val.p;
4884 if(*active_var){
4885 snprintf(prompt, sizeof(prompt), _("Your setting for %s is %s"),
4886 v->name, active_var);
4887 }
4888 else{
4889 snprintf(prompt, sizeof(prompt), _("Your setting for %s is %s"),
4890 v->name, _(empty_val2));
4891 }
4892 }
4893 }
4894
4895 prompt[sizeof(prompt)-1] = '\0';
4896
4897 if(*prompt){
4898 if(utf8_width(prompt) > ps->ttyo->screen_cols - need)
4899 (void) utf8_truncate(prompt, ps->ttyo->screen_cols - need);
4900
4901 (void) strncat(prompt, clear, sizeof(prompt)-strlen(prompt)-1);
4902 prompt[sizeof(prompt)-1] = '\0';
4903 if(want_to(prompt, 'y', 'n', NO_HELP, WT_NORM) == 'y'){
4904 if(v->is_list){
4905 if(v->main_user_val.l)
4906 write_main++;
4907 if(v->post_user_val.l)
4908 write_post++;
4909 }
4910 else{
4911 if(v->main_user_val.p)
4912 write_main++;
4913 if(v->post_user_val.p)
4914 write_post++;
4915 }
4916
4917 if(delete_user_vals(v))
4918 rv++;
4919 }
4920 }
4921 }
4922
4923
4924 /*
4925 * As always, feature-list has to be handled separately.
4926 */
4927 exc = (ps->ew_for_except_vars != Main);
4928 v = &ps->vars[V_FEATURE_LIST];
4929 list_fixed = v->fixed_val.l;
4930
4931 for(j = 0; j < 2; j++){
4932 plist = (j==0) ? &v->main_user_val.l : &v->post_user_val.l;
4933 list = *plist;
4934 if(list){
4935 for(i = 0; list[i]; i++){
4936 p = list[i];
4937 if(!struncmp(p, "no-", 3))
4938 p += 3;
4939 for(k = 0; list_fixed && list_fixed[k]; k++){
4940 q = list_fixed[k];
4941 if(!struncmp(q, "no-", 3))
4942 q += 3;
4943 if(!strucmp(q, p) && strucmp(list[i], list_fixed[k])){
4944 snprintf(prompt, sizeof(prompt), "Your %s is %s%s, fixed value is %s",
4945 p, p == list[i] ? _("ON") : _("OFF"),
4946 exc ? ((plist == &v->main_user_val.l) ? ""
4947 : " in postload-config")
4948 : "",
4949 q == list_fixed[k] ? _("ON") : _("OFF"));
4950
4951 prompt[sizeof(prompt)-1] = '\0';
4952 if(utf8_width(prompt) > ps->ttyo->screen_cols - need)
4953 (void) utf8_truncate(prompt, ps->ttyo->screen_cols - need);
4954
4955 (void) strncat(prompt, clear, sizeof(prompt)-strlen(prompt)-1);
4956 prompt[sizeof(prompt)-1] = '\0';
4957 if(want_to(prompt, 'y', 'n', NO_HELP, WT_NORM) == 'y'){
4958 rv++;
4959
4960 if(plist == &v->main_user_val.l)
4961 write_main++;
4962 else
4963 write_post++;
4964
4965 /*
4966 * Clear the feature from the user's pinerc
4967 * so that we'll stop bothering them when they
4968 * start up Pine.
4969 */
4970 clear_feature(plist, p);
4971
4972 /*
4973 * clear_feature scoots the list up, so if list[i] was
4974 * the last one going in, now it is the end marker. We
4975 * just decrement i so that it will get incremented and
4976 * then test == 0 in the for loop. We could just goto
4977 * outta_here to accomplish the same thing.
4978 */
4979 if(!list[i])
4980 i--;
4981 }
4982 }
4983 }
4984 }
4985 }
4986 }
4987
4988
4989 if(write_main)
4990 write_pinerc(ps, Main, WRP_NONE);
4991 if(write_post)
4992 write_pinerc(ps, Post, WRP_NONE);
4993
4994 return;
4995 }
4996
4997
4998 /*
4999 * Adjust side effects that happen because variable changes values.
5000 *
5001 * Var->user_val should be set to the new value before calling this.
5002 */
5003 void
5004 fix_side_effects(struct pine *ps, struct variable *var, int revert)
5005 {
5006 int val = 0;
5007 char **v, *q, **apval;
5008 struct variable *vars = ps->vars;
5009
5010 /* move this up here so we get the Using default message */
5011 if(var == &ps->vars[V_PERSONAL_NAME]){
5012 if(!(var->main_user_val.p ||
5013 var->post_user_val.p) && ps->ui.fullname){
5014 if(var->current_val.p)
5015 fs_give((void **)&var->current_val.p);
5016
5017 var->current_val.p = cpystr(ps->ui.fullname);
5018 }
5019 }
5020
5021 if(!revert
5022 && ((!var->is_fixed
5023 && !var->is_list
5024 && !(var->main_user_val.p ||
5025 var->post_user_val.p)
5026 && var->current_val.p)
5027 ||
5028 (!var->is_fixed
5029 && var->is_list
5030 && !(var->main_user_val.l ||
5031 var->post_user_val.l)
5032 && var->current_val.l)))
5033 q_status_message(SM_ORDER,0,3,_("Using default value"));
5034
5035 if(var == &ps->vars[V_USER_DOMAIN]){
5036 char *p, *q;
5037
5038 if(ps->VAR_USER_DOMAIN
5039 && ps->VAR_USER_DOMAIN[0]
5040 && (p = strrindex(ps->VAR_USER_DOMAIN, '@'))){
5041 if(*(++p)){
5042 if(!revert)
5043 q_status_message2(SM_ORDER, 3, 5,
5044 _("User-Domain (%s) cannot contain \"@\"; using %s"),
5045 ps->VAR_USER_DOMAIN, p);
5046 q = ps->VAR_USER_DOMAIN;
5047 while((*q++ = *p++) != '\0')
5048 ;/* do nothing */
5049 }
5050 else{
5051 if(!revert)
5052 q_status_message1(SM_ORDER, 3, 5,
5053 _("User-domain (%s) cannot contain \"@\"; deleting"),
5054 ps->VAR_USER_DOMAIN);
5055
5056 if(ps->vars[V_USER_DOMAIN].post_user_val.p){
5057 fs_give((void **)&ps->vars[V_USER_DOMAIN].post_user_val.p);
5058 set_current_val(&vars[V_USER_DOMAIN], TRUE, TRUE);
5059 }
5060
5061 if(ps->VAR_USER_DOMAIN
5062 && ps->VAR_USER_DOMAIN[0]
5063 && (p = strrindex(ps->VAR_USER_DOMAIN, '@'))){
5064 if(ps->vars[V_USER_DOMAIN].main_user_val.p){
5065 fs_give((void **)&ps->vars[V_USER_DOMAIN].main_user_val.p);
5066 set_current_val(&vars[V_USER_DOMAIN], TRUE, TRUE);
5067 }
5068 }
5069 }
5070 }
5071
5072 /*
5073 * Reset various pointers pertaining to domain name and such...
5074 */
5075 init_hostname(ps);
5076 }
5077 else if(var == &ps->vars[V_INBOX_PATH]){
5078 /*
5079 * fixup the inbox path based on global/default values...
5080 */
5081 init_inbox_mapping(ps->VAR_INBOX_PATH, ps->context_list);
5082
5083 if(!strucmp(ps->cur_folder, ps->inbox_name) && ps->mail_stream
5084 && strcmp(ps->VAR_INBOX_PATH, ps->mail_stream->mailbox)){
5085 /*
5086 * If we currently have "inbox" open and the mailbox name
5087 * doesn't match, reset the current folder's name and
5088 * remove the SP_INBOX flag.
5089 */
5090 strncpy(ps->cur_folder, ps->mail_stream->mailbox,
5091 sizeof(ps->cur_folder)-1);
5092 ps->cur_folder[sizeof(ps->cur_folder)-1] = '\0';
5093 sp_set_fldr(ps->mail_stream, ps->cur_folder);
5094 sp_unflag(ps->mail_stream, SP_INBOX);
5095 ps->mangled_header = 1;
5096 }
5097 else if(sp_inbox_stream()
5098 && strcmp(ps->VAR_INBOX_PATH, sp_inbox_stream()->original_mailbox)){
5099 MAILSTREAM *m = sp_inbox_stream();
5100
5101 /*
5102 * if we don't have inbox directly open, but have it
5103 * open for new mail notification, close the stream like
5104 * any other ordinary folder, and clean up...
5105 */
5106 if(m){
5107 sp_unflag(m, SP_PERMLOCKED | SP_INBOX);
5108 sp_set_fldr(m, m->mailbox);
5109 expunge_and_close(m, NULL, EC_NONE);
5110 }
5111 }
5112 }
5113 else if(var == &ps->vars[V_INCCHECKTIMEO]){
5114 int old_value = ps->inc_check_timeout;
5115
5116 if(SVAR_INC_CHECK_TIMEO(ps, old_value, tmp_20k_buf, SIZEOF_20KBUF)){
5117 if(!revert)
5118 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5119 }
5120 else
5121 ps->inc_check_timeout = old_value;
5122
5123 if(!revert && (F_OFF(F_ENABLE_INCOMING, ps) || F_OFF(F_ENABLE_INCOMING_CHECKING, ps)))
5124 q_status_message(SM_ORDER, 0, 3, _("This option has no effect without Enable-Incoming-Folders-Checking"));
5125 }
5126 else if(var == &ps->vars[V_INCCHECKINTERVAL]){
5127 int old_value = ps->inc_check_interval;
5128
5129 if(SVAR_INC_CHECK_INTERV(ps, old_value, tmp_20k_buf, SIZEOF_20KBUF)){
5130 if(!revert)
5131 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5132 }
5133 else
5134 ps->inc_check_interval = old_value;
5135
5136 if(!revert && (F_OFF(F_ENABLE_INCOMING, ps) || F_OFF(F_ENABLE_INCOMING_CHECKING, ps)))
5137 q_status_message(SM_ORDER, 0, 3, _("This option has no effect without Enable-Incoming-Folders-Checking"));
5138 }
5139 else if(var == &ps->vars[V_INC2NDCHECKINTERVAL]){
5140 int old_value = ps->inc_second_check_interval;
5141
5142 if(SVAR_INC_2NDCHECK_INTERV(ps, old_value, tmp_20k_buf, SIZEOF_20KBUF)){
5143 if(!revert)
5144 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5145 }
5146 else
5147 ps->inc_second_check_interval = old_value;
5148
5149 if(!revert && (F_OFF(F_ENABLE_INCOMING, ps) || F_OFF(F_ENABLE_INCOMING_CHECKING, ps)))
5150 q_status_message(SM_ORDER, 0, 3, _("This option has no effect without Enable-Incoming-Folders-Checking"));
5151 }
5152 else if(var == &ps->vars[V_INCCHECKLIST]){
5153 if(ps->context_list && ps->context_list->use & CNTXT_INCMNG)
5154 reinit_incoming_folder_list(ps, ps->context_list);
5155
5156 if(!revert && (F_OFF(F_ENABLE_INCOMING, ps) || F_OFF(F_ENABLE_INCOMING_CHECKING, ps)))
5157 q_status_message(SM_ORDER, 0, 3, _("This option has no effect without Enable-Incoming-Folders-Checking"));
5158 }
5159 else if(var == &ps->vars[V_ADDRESSBOOK] ||
5160 var == &ps->vars[V_GLOB_ADDRBOOK] ||
5161 #ifdef ENABLE_LDAP
5162 var == &ps->vars[V_LDAP_SERVERS] ||
5163 #endif
5164 var == &ps->vars[V_ABOOK_FORMATS]){
5165 addrbook_reset();
5166 }
5167 else if(var == &ps->vars[V_INDEX_FORMAT]){
5168 reset_index_format();
5169 clear_index_cache(ps->mail_stream, 0);
5170 }
5171 else if(var == &ps->vars[V_DEFAULT_FCC] ||
5172 var == &ps->vars[V_DEFAULT_SAVE_FOLDER]){
5173 init_save_defaults();
5174 }
5175 else if(var == &ps->vars[V_KW_BRACES] ||
5176 var == &ps->vars[V_OPENING_SEP] ||
5177 var == &ps->vars[V_ALT_ADDRS]){
5178 clear_index_cache(ps->mail_stream, 0);
5179 }
5180 else if(var == &ps->vars[V_KEYWORDS]){
5181 if(ps_global->keywords)
5182 free_keyword_list(&ps_global->keywords);
5183
5184 if(var->current_val.l && var->current_val.l[0])
5185 ps_global->keywords = init_keyword_list(var->current_val.l);
5186
5187 clear_index_cache(ps->mail_stream, 0);
5188 }
5189 else if(var == &ps->vars[V_INIT_CMD_LIST]){
5190 if(!revert)
5191 q_status_message(SM_ASYNC, 0, 3,
5192 _("Initial command changes will affect your next Alpine session."));
5193 }
5194 else if(var == &ps->vars[V_VIEW_HEADERS]){
5195 ps->view_all_except = 0;
5196 if(ps->VAR_VIEW_HEADERS)
5197 for(v = ps->VAR_VIEW_HEADERS; (q = *v) != NULL; v++)
5198 if(q[0]){
5199 char *p;
5200
5201 removing_leading_white_space(q);
5202 /* look for colon or space or end */
5203 for(p = q; *p && !isspace((unsigned char)*p) && *p != ':'; p++)
5204 ;/* do nothing */
5205
5206 *p = '\0';
5207 if(strucmp(q, ALL_EXCEPT) == 0)
5208 ps->view_all_except = 1;
5209 }
5210 }
5211 else if(var == &ps->vars[V_OVERLAP]){
5212 int old_value = ps->viewer_overlap;
5213
5214 if(SVAR_OVERLAP(ps, old_value, tmp_20k_buf, SIZEOF_20KBUF)){
5215 if(!revert)
5216 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5217 }
5218 else
5219 ps->viewer_overlap = old_value;
5220 }
5221 else if(var == &ps->vars[V_SLEEP]){
5222 int old_value = ps->sleep;
5223
5224 if(SVAR_SLEEP(ps, old_value, tmp_20k_buf, SIZEOF_20KBUF)){
5225 if(!revert)
5226 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5227 }
5228 else
5229 ps->sleep = old_value;
5230 }
5231 #ifdef SMIME
5232 else if(smime_related_var(ps, var)){
5233 smime_deinit();
5234 }
5235 #endif /* SMIME */
5236 else if(var == &ps->vars[V_MAXREMSTREAM]){
5237 int old_value = ps->s_pool.max_remstream;
5238
5239 if(SVAR_MAXREMSTREAM(ps, old_value, tmp_20k_buf, SIZEOF_20KBUF)){
5240 if(!revert )
5241 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5242 }
5243 else
5244 ps->s_pool.max_remstream = old_value;
5245
5246 dprint((9, "max_remstream goes to %d\n",
5247 ps->s_pool.max_remstream));
5248 }
5249 #ifndef _WINDOWS
5250 else if(var == &ps->vars[V_CHAR_SET]){
5251 char *err = NULL;
5252
5253 if(F_ON(F_USE_SYSTEM_TRANS, ps)){
5254 if(!revert)
5255 q_status_message(SM_ORDER, 5, 5, _("This change has no effect because feature Use-System-Translation is on"));
5256 }
5257 else{
5258 if(reset_character_set_stuff(&err) == -1)
5259 panic(err ? err : "trouble with Character-Set");
5260 else if(err){
5261 q_status_message(SM_ORDER | SM_DING, 3, 5, err);
5262 fs_give((void **) &err);
5263 }
5264 }
5265 }
5266 else if(var == &ps->vars[V_KEY_CHAR_SET]){
5267 char *err = NULL;
5268
5269 if(F_ON(F_USE_SYSTEM_TRANS, ps)){
5270 if(!revert)
5271 q_status_message(SM_ORDER, 5, 5, _("This change has no effect because feature Use-System-Translation is on"));
5272 }
5273 else{
5274 if(reset_character_set_stuff(&err) == -1)
5275 panic(err ? err : "trouble with Character-Set");
5276 else if(err){
5277 q_status_message(SM_ORDER | SM_DING, 3, 5, err);
5278 fs_give((void **) &err);
5279 }
5280 }
5281 }
5282 #endif /* ! _WINDOWS */
5283 else if(var == &ps->vars[V_POST_CHAR_SET]){
5284 update_posting_charset(ps, revert);
5285 }
5286 else if(var == &ps->vars[V_MARGIN]){
5287 int old_value = ps->scroll_margin;
5288
5289 if(SVAR_MARGIN(ps, old_value, tmp_20k_buf, SIZEOF_20KBUF)){
5290 if(!revert)
5291 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5292 }
5293 else
5294 ps->scroll_margin = old_value;
5295 }
5296 else if(var == &ps->vars[V_DEADLETS]){
5297 int old_value = ps->deadlets;
5298
5299 if(SVAR_DEADLETS(ps, old_value, tmp_20k_buf, SIZEOF_20KBUF)){
5300 if(!revert)
5301 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5302 }
5303 else
5304 ps->deadlets = old_value;
5305 }
5306 else if(var == &ps->vars[V_FILLCOL]){
5307 if(SVAR_FILLCOL(ps, ps->composer_fillcol, tmp_20k_buf, SIZEOF_20KBUF)){
5308 if(!revert)
5309 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5310 }
5311 }
5312 else if(var == &ps->vars[V_QUOTE_SUPPRESSION]){
5313 val = ps->quote_suppression_threshold;
5314 if(val < Q_SUPP_LIMIT && val > 0)
5315 val = -val;
5316
5317 if(ps->VAR_QUOTE_SUPPRESSION
5318 && SVAR_QUOTE_SUPPRESSION(ps, val, tmp_20k_buf, SIZEOF_20KBUF)){
5319 if(!revert)
5320 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5321 }
5322 else{
5323 if(val > 0 && val < Q_SUPP_LIMIT){
5324 if(!revert){
5325 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _("Ignoring Quote-Suppression-Threshold value of %s, see help"), ps->VAR_QUOTE_SUPPRESSION);
5326 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
5327 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5328 }
5329 }
5330 else{
5331 if(val < 0 && val != Q_DEL_ALL)
5332 ps->quote_suppression_threshold = -val;
5333 else
5334 ps->quote_suppression_threshold = val;
5335 }
5336 }
5337 }
5338 else if(var == &ps->vars[V_STATUS_MSG_DELAY]){
5339 if(SVAR_MSGDLAY(ps, ps->status_msg_delay, tmp_20k_buf, SIZEOF_20KBUF)){
5340 if(!revert)
5341 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5342 }
5343 }
5344 else if(var == &ps->vars[V_ACTIVE_MSG_INTERVAL]){
5345 if(SVAR_ACTIVEINTERVAL(ps, ps->active_status_interval, tmp_20k_buf, SIZEOF_20KBUF)){
5346 if(!revert)
5347 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5348 }
5349 else{
5350 busy_cue(_("Active Example"), NULL, 0);
5351 sleep(5);
5352 cancel_busy_cue(-1);
5353 }
5354 }
5355 #if !defined(DOS) && !defined(OS2) && !defined(LEAVEOUTFIFO)
5356 else if(var == &ps->vars[V_FIFOPATH]){
5357 init_newmailfifo(ps->VAR_FIFOPATH);
5358 }
5359 #endif
5360 else if(var == &ps->vars[V_NMW_WIDTH]){
5361 int old_value = ps->nmw_width;
5362
5363 if(SVAR_NMW_WIDTH(ps, old_value, tmp_20k_buf, SIZEOF_20KBUF)){
5364 if(!revert )
5365 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5366 }
5367 else{
5368 #ifdef _WINDOWS
5369 if(old_value != ps->nmw_width)
5370 mswin_setnewmailwidth(old_value); /* actually the new value */
5371 #endif
5372 ps->nmw_width = old_value;
5373 }
5374 }
5375 else if(var == &ps->vars[V_TCPOPENTIMEO]){
5376 val = 30;
5377 if(!revert)
5378 if(ps->VAR_TCPOPENTIMEO && SVAR_TCP_OPEN(ps, val, tmp_20k_buf, SIZEOF_20KBUF))
5379 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5380 }
5381 else if(var == &ps->vars[V_TCPREADWARNTIMEO]){
5382 val = 15;
5383 if(!revert)
5384 if(ps->VAR_TCPREADWARNTIMEO && SVAR_TCP_READWARN(ps,val,tmp_20k_buf, SIZEOF_20KBUF))
5385 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5386 }
5387 else if(var == &ps->vars[V_TCPWRITEWARNTIMEO]){
5388 val = 0;
5389 if(!revert)
5390 if(ps->VAR_TCPWRITEWARNTIMEO && SVAR_TCP_WRITEWARN(ps,val,tmp_20k_buf, SIZEOF_20KBUF))
5391 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5392 }
5393 else if(var == &ps->vars[V_TCPQUERYTIMEO]){
5394 val = 60;
5395 if(!revert)
5396 if(ps->VAR_TCPQUERYTIMEO && SVAR_TCP_QUERY(ps, val, tmp_20k_buf, SIZEOF_20KBUF))
5397 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5398 }
5399 else if(var == &ps->vars[V_RSHOPENTIMEO]){
5400 val = 15;
5401 if(!revert)
5402 if(ps->VAR_RSHOPENTIMEO && SVAR_RSH_OPEN(ps, val, tmp_20k_buf, SIZEOF_20KBUF))
5403 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5404 }
5405 else if(var == &ps->vars[V_SSHOPENTIMEO]){
5406 val = 15;
5407 if(!revert)
5408 if(ps->VAR_SSHOPENTIMEO && SVAR_SSH_OPEN(ps, val, tmp_20k_buf, SIZEOF_20KBUF))
5409 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5410 }
5411 else if(var == &ps->vars[V_SIGNATURE_FILE]){
5412 if(ps->VAR_OPER_DIR && ps->VAR_SIGNATURE_FILE &&
5413 is_absolute_path(ps->VAR_SIGNATURE_FILE) &&
5414 !in_dir(ps->VAR_OPER_DIR, ps->VAR_SIGNATURE_FILE)){
5415 char *e;
5416 size_t l;
5417
5418 l = strlen(ps->VAR_OPER_DIR) + 100;
5419 e = (char *) fs_get((l+1) * sizeof(char));
5420 snprintf(e, l+1, _("Warning: Sig file can't be outside of %s"),
5421 ps->VAR_OPER_DIR);
5422 e[l] = '\0';
5423 q_status_message(SM_ORDER, 3, 6, e);
5424 fs_give((void **)&e);
5425 }
5426 }
5427 else if(var == &ps->vars[V_OPER_DIR]){
5428 if(ps->VAR_OPER_DIR && !ps->VAR_OPER_DIR[0]){
5429 q_status_message(SM_ORDER, 3, 5, "Operating-dir is turned off.");
5430 fs_give((void **)&ps->vars[V_OPER_DIR].current_val.p);
5431 if(ps->vars[V_OPER_DIR].fixed_val.p)
5432 fs_give((void **)&ps->vars[V_OPER_DIR].fixed_val.p);
5433 if(ps->vars[V_OPER_DIR].global_val.p)
5434 fs_give((void **)&ps->vars[V_OPER_DIR].global_val.p);
5435 if(ps->vars[V_OPER_DIR].cmdline_val.p)
5436 fs_give((void **)&ps->vars[V_OPER_DIR].cmdline_val.p);
5437 if(ps->vars[V_OPER_DIR].post_user_val.p)
5438 fs_give((void **)&ps->vars[V_OPER_DIR].post_user_val.p);
5439 if(ps->vars[V_OPER_DIR].main_user_val.p)
5440 fs_give((void **)&ps->vars[V_OPER_DIR].main_user_val.p);
5441 }
5442 }
5443 else if(var == &ps->vars[V_MAILCHECK]){
5444 int timeo = 15;
5445 if(SVAR_MAILCHK(ps, timeo, tmp_20k_buf, SIZEOF_20KBUF)){
5446 set_input_timeout(15);
5447 if(!revert)
5448 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5449 }
5450 else{
5451 set_input_timeout(timeo);
5452 if(get_input_timeout() == 0 && !revert){
5453 q_status_message(SM_ORDER, 4, 6,
5454 _("Warning: automatic new mail checking and mailbox checkpointing is disabled"));
5455 if(ps->VAR_INBOX_PATH && ps->VAR_INBOX_PATH[0] == '{')
5456 q_status_message(SM_ASYNC, 3, 6,
5457 _("Warning: Mail-Check-Interval=0 may cause IMAP server connection to time out"));
5458 }
5459 }
5460 }
5461 else if(var == &ps->vars[V_MAILCHECKNONCURR]){
5462 val = (int) ps->check_interval_for_noncurr;
5463 if(ps->VAR_MAILCHECKNONCURR
5464 && SVAR_MAILCHKNONCURR(ps, val, tmp_20k_buf, SIZEOF_20KBUF)){
5465 if(!revert)
5466 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5467 }
5468 else
5469 ps->check_interval_for_noncurr = (time_t) val;
5470 }
5471 else if(var == &ps->vars[V_MAILDROPCHECK]){
5472 long rvl;
5473
5474 rvl = 60L;
5475 if(ps->VAR_MAILDROPCHECK && SVAR_MAILDCHK(ps, rvl, tmp_20k_buf, SIZEOF_20KBUF))
5476 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5477 else{
5478 if(rvl == 0L)
5479 rvl = (60L * 60L * 24L * 100L); /* 100 days */
5480
5481 if(rvl >= 60L)
5482 mail_parameters(NULL, SET_SNARFINTERVAL, (void *) rvl);
5483 }
5484 }
5485 else if(var == &ps->vars[V_NNTPRANGE]){
5486 long rvl;
5487
5488 rvl = 0L;
5489 if(ps->VAR_NNTPRANGE && SVAR_NNTPRANGE(ps, rvl, tmp_20k_buf, SIZEOF_20KBUF))
5490 q_status_message(SM_ORDER, 3, 5, tmp_20k_buf);
5491 else{
5492 if(rvl >= 0L)
5493 mail_parameters(NULL, SET_NNTPRANGE, (void *) rvl);
5494 }
5495 }
5496 else if(var == &ps->vars[V_CUSTOM_HDRS] || var == &ps->vars[V_COMP_HDRS]){
5497 /* this will give warnings about headers that can't be changed */
5498 if(!revert && var->current_val.l && var->current_val.l[0])
5499 customized_hdr_setup(NULL, var->current_val.l, UseAsDef);
5500 }
5501 #if defined(DOS) || defined(OS2)
5502 else if(var == &ps->vars[V_FOLDER_EXTENSION]){
5503 mail_parameters(NULL, SET_EXTENSION,
5504 (void *)var->current_val.p);
5505 }
5506 else if(var == &ps->vars[V_NEWSRC_PATH]){
5507 if(var->current_val.p && var->current_val.p[0])
5508 mail_parameters(NULL, SET_NEWSRC,
5509 (void *)var->current_val.p);
5510 }
5511 #endif
5512 else if(revert && standard_radio_var(ps, var)){
5513
5514 cur_rule_value(var, TRUE, FALSE);
5515 if(var == &ps_global->vars[V_AB_SORT_RULE])
5516 addrbook_redo_sorts();
5517 else if(var == &ps_global->vars[V_THREAD_INDEX_STYLE]){
5518 clear_index_cache(ps_global->mail_stream, 0);
5519 set_lflags(ps_global->mail_stream, ps_global->msgmap,
5520 MN_COLL | MN_CHID, 0);
5521 if(SORT_IS_THREADED(ps_global->msgmap)
5522 && (SEP_THRDINDX() || COLL_THRDS()))
5523 collapse_threads(ps_global->mail_stream, ps_global->msgmap, NULL);
5524
5525 adjust_cur_to_visible(ps_global->mail_stream, ps_global->msgmap);
5526 }
5527 #ifndef _WINDOWS
5528 else if(var == &ps->vars[V_COLOR_STYLE]){
5529 pico_toggle_color(0);
5530 switch(ps->color_style){
5531 case COL_NONE:
5532 case COL_TERMDEF:
5533 pico_set_color_options(pico_trans_color() ? COLOR_TRANS_OPT : 0);
5534 break;
5535 case COL_ANSI8:
5536 pico_set_color_options(COLOR_ANSI8_OPT|COLOR_TRANS_OPT);
5537 break;
5538 case COL_ANSI16:
5539 pico_set_color_options(COLOR_ANSI16_OPT|COLOR_TRANS_OPT);
5540 break;
5541 case COL_ANSI256:
5542 pico_set_color_options(COLOR_ANSI256_OPT|COLOR_TRANS_OPT);
5543 break;
5544 }
5545
5546 if(ps->color_style != COL_NONE)
5547 pico_toggle_color(1);
5548
5549 if(pico_usingcolor())
5550 pico_set_normal_color();
5551
5552 clear_index_cache(ps_global->mail_stream, 0);
5553 ClearScreen();
5554 ps->mangled_screen = 1;
5555 }
5556 #endif
5557 }
5558 else if(revert && var == &ps->vars[V_SORT_KEY]){
5559 int def_sort_rev;
5560
5561 decode_sort(VAR_SORT_KEY, &ps->def_sort, &def_sort_rev);
5562 ps->def_sort_rev = def_sort_rev;
5563 }
5564 else if(var == &ps->vars[V_THREAD_MORE_CHAR] ||
5565 var == &ps->vars[V_THREAD_EXP_CHAR] ||
5566 var == &ps->vars[V_THREAD_LASTREPLY_CHAR]){
5567
5568 if(var == &ps->vars[V_THREAD_LASTREPLY_CHAR] &&
5569 !(var->current_val.p && var->current_val.p[0])){
5570 if(var->current_val.p)
5571 fs_give((void **) &var->current_val.p);
5572
5573 q_status_message1(SM_ORDER, 3, 5,
5574 _("\"%s\" can't be Empty, using default"), var->name);
5575
5576 apval = APVAL(var, ew);
5577 if(*apval)
5578 fs_give((void **)apval);
5579
5580 set_current_val(var, FALSE, FALSE);
5581
5582 if(!(var->current_val.p && var->current_val.p[0]
5583 && !var->current_val.p[1])){
5584 if(var->current_val.p)
5585 fs_give((void **) &var->current_val.p);
5586
5587 var->current_val.p = cpystr(DF_THREAD_LASTREPLY_CHAR);
5588 }
5589 }
5590
5591 if(var == &ps->vars[V_THREAD_MORE_CHAR] ||
5592 var == &ps->vars[V_THREAD_EXP_CHAR] ||
5593 var == &ps->vars[V_THREAD_LASTREPLY_CHAR]){
5594 if(var->current_val.p && var->current_val.p[0] &&
5595 var->current_val.p[1]){
5596 q_status_message1(SM_ORDER, 3, 5,
5597 "Only first character of \"%s\" is used",
5598 var->name);
5599 var->current_val.p[1] = '\0';
5600 }
5601
5602 if(var->main_user_val.p && var->main_user_val.p[0] &&
5603 var->main_user_val.p[1])
5604 var->main_user_val.p[1] = '\0';
5605
5606 if(var->post_user_val.p && var->post_user_val.p[0] &&
5607 var->post_user_val.p[1])
5608 var->post_user_val.p[1] = '\0';
5609 }
5610
5611 clear_index_cache(ps_global->mail_stream, 0);
5612 set_need_format_setup(ps_global->mail_stream);
5613 }
5614 else if(var == &ps->vars[V_NNTP_SERVER]){
5615 free_contexts(&ps_global->context_list);
5616 init_folders(ps_global);
5617 }
5618 else if(var == &ps->vars[V_USE_ONLY_DOMAIN_NAME]){
5619 init_hostname(ps);
5620 }
5621 else if(var == &ps->vars[V_PRINTER]){
5622 if(!revert && ps->vars[V_PERSONAL_PRINT_COMMAND].is_fixed){
5623 if(printer_value_check_and_adjust())
5624 q_status_message1(SM_ORDER, 3, 5,
5625 _("Can't set \"%s\" to that value, see Setup/Printer"),
5626 pretty_var_name(var->name));
5627 }
5628 }
5629 else if(var == &ps->vars[V_KW_COLORS] ||
5630 var == &ps->vars[V_INDEX_TOKEN_COLORS] ||
5631 var == &ps->vars[V_IND_PLUS_FORE_COLOR] ||
5632 var == &ps->vars[V_IND_IMP_FORE_COLOR] ||
5633 var == &ps->vars[V_IND_DEL_FORE_COLOR] ||
5634 var == &ps->vars[V_IND_ANS_FORE_COLOR] ||
5635 var == &ps->vars[V_IND_NEW_FORE_COLOR] ||
5636 var == &ps->vars[V_IND_UNS_FORE_COLOR] ||
5637 var == &ps->vars[V_IND_HIPRI_FORE_COLOR]||
5638 var == &ps->vars[V_IND_LOPRI_FORE_COLOR]||
5639 var == &ps->vars[V_IND_ARR_FORE_COLOR] ||
5640 var == &ps->vars[V_IND_REC_FORE_COLOR] ||
5641 var == &ps->vars[V_IND_FWD_FORE_COLOR] ||
5642 var == &ps->vars[V_IND_OP_FORE_COLOR] ||
5643 var == &ps->vars[V_IND_FROM_FORE_COLOR] ||
5644 var == &ps->vars[V_IND_SUBJ_FORE_COLOR] ||
5645 var == &ps->vars[V_IND_PLUS_BACK_COLOR] ||
5646 var == &ps->vars[V_IND_IMP_BACK_COLOR] ||
5647 var == &ps->vars[V_IND_DEL_BACK_COLOR] ||
5648 var == &ps->vars[V_IND_ANS_BACK_COLOR] ||
5649 var == &ps->vars[V_IND_NEW_BACK_COLOR] ||
5650 var == &ps->vars[V_IND_UNS_BACK_COLOR] ||
5651 var == &ps->vars[V_IND_ARR_BACK_COLOR] ||
5652 var == &ps->vars[V_IND_REC_BACK_COLOR] ||
5653 var == &ps->vars[V_IND_FWD_BACK_COLOR] ||
5654 var == &ps->vars[V_IND_OP_BACK_COLOR] ||
5655 var == &ps->vars[V_IND_FROM_BACK_COLOR] ||
5656 var == &ps->vars[V_IND_SUBJ_BACK_COLOR]){
5657 clear_index_cache(ps_global->mail_stream, 0);
5658 }
5659 else if(var == score_act_global_ptr){
5660 int score;
5661
5662 score = atoi(var->current_val.p);
5663 if(score < SCORE_MIN || score > SCORE_MAX){
5664 q_status_message2(SM_ORDER, 3, 5,
5665 _("Score Value must be in range %s to %s"),
5666 comatose(SCORE_MIN), comatose(SCORE_MAX));
5667 apval = APVAL(var, ew);
5668 if(*apval)
5669 fs_give((void **)apval);
5670
5671 set_current_val(var, FALSE, FALSE);
5672 }
5673 }
5674 else if(var == scorei_pat_global_ptr || var == age_pat_global_ptr
5675 || var == size_pat_global_ptr || var == cati_global_ptr){
5676 apval = APVAL(var, ew);
5677 if(*apval){
5678 INTVL_S *iv;
5679 iv = parse_intvl(*apval);
5680 if(iv){
5681 fs_give((void **) apval);
5682 *apval = stringform_of_intvl(iv);
5683 free_intvl(&iv);
5684 }
5685 else
5686 fs_give((void **) apval);
5687 }
5688
5689 set_current_val(var, FALSE, FALSE);
5690 }
5691 else if(var == &ps->vars[V_FEATURE_LIST]){
5692 process_feature_list(ps, var->current_val.l, 0, 0, 0);
5693 }
5694 else if(!revert && (var == &ps->vars[V_LAST_TIME_PRUNE_QUESTION] ||
5695 var == &ps->vars[V_REMOTE_ABOOK_HISTORY] ||
5696 var == &ps->vars[V_REMOTE_ABOOK_VALIDITY] ||
5697 var == &ps->vars[V_USERINPUTTIMEO] ||
5698 var == &ps->vars[V_NEWS_ACTIVE_PATH] ||
5699 var == &ps->vars[V_NEWS_SPOOL_DIR] ||
5700 var == &ps->vars[V_INCOMING_FOLDERS] ||
5701 var == &ps->vars[V_FOLDER_SPEC] ||
5702 var == &ps->vars[V_NEWS_SPEC] ||
5703 var == &ps->vars[V_DISABLE_DRIVERS] ||
5704 var == &ps->vars[V_DISABLE_AUTHS] ||
5705 var == &ps->vars[V_RSHPATH] ||
5706 var == &ps->vars[V_RSHCMD] ||
5707 var == &ps->vars[V_SSHCMD] ||
5708 var == &ps->vars[V_SSHPATH])){
5709 q_status_message2(SM_ASYNC, 0, 3,
5710 _("Changes%s%s will affect your next Alpine session."),
5711 var->name ? " to " : "", var->name ? var->name : "");
5712 }
5713
5714 if(!revert && (var == &ps->vars[V_TCPOPENTIMEO] ||
5715 var == &ps->vars[V_TCPREADWARNTIMEO] ||
5716 var == &ps->vars[V_TCPWRITEWARNTIMEO] ||
5717 var == &ps->vars[V_TCPQUERYTIMEO] ||
5718 var == &ps->vars[V_RSHOPENTIMEO] ||
5719 var == &ps->vars[V_SSHOPENTIMEO]))
5720 q_status_message(SM_ASYNC, 0, 3,
5721 _("Timeout changes will affect your next Alpine session."));
5722 }
5723
5724
5725 /*
5726 * Compare saved user_val with current user_val to see if it changed.
5727 * If any have changed, change it back and take the appropriate action.
5728 */
5729 void
5730 revert_to_saved_config(struct pine *ps, SAVED_CONFIG_S *vsave, int allow_hard_to_config_remotely)
5731 {
5732 struct variable *vreal;
5733 SAVED_CONFIG_S *v;
5734 int i, n;
5735 int changed = 0;
5736 char *pval, **apval, **lval, ***alval;
5737
5738 v = vsave;
5739 for(vreal = ps->vars; vreal->name; vreal++,v++){
5740 if(!save_include(ps, vreal, allow_hard_to_config_remotely))
5741 continue;
5742
5743 changed = 0;
5744 if(vreal->is_list){
5745 lval = LVAL(vreal, ew);
5746 alval = ALVAL(vreal, ew);
5747
5748 if((v->saved_user_val.l && !lval)
5749 || (!v->saved_user_val.l && lval))
5750 changed++;
5751 else if(!v->saved_user_val.l && !lval)
5752 ;/* no change, nothing to do */
5753 else
5754 for(i = 0; v->saved_user_val.l[i] || lval[i]; i++)
5755 if((v->saved_user_val.l[i]
5756 && (!lval[i]
5757 || strcmp(v->saved_user_val.l[i], lval[i])))
5758 ||
5759 (!v->saved_user_val.l[i] && lval[i])){
5760 changed++;
5761 break;
5762 }
5763
5764 if(changed){
5765 char **list;
5766
5767 if(alval){
5768 if(*alval)
5769 free_list_array(alval);
5770
5771 /* copy back the original one */
5772 if(v->saved_user_val.l){
5773 list = v->saved_user_val.l;
5774 n = 0;
5775 /* count how many */
5776 while(list[n])
5777 n++;
5778
5779 *alval = (char **)fs_get((n+1) * sizeof(char *));
5780
5781 for(i = 0; i < n; i++)
5782 (*alval)[i] = cpystr(v->saved_user_val.l[i]);
5783
5784 (*alval)[n] = NULL;
5785 }
5786 }
5787 }
5788 }
5789 else{
5790 pval = PVAL(vreal, ew);
5791 apval = APVAL(vreal, ew);
5792
5793 if((v->saved_user_val.p &&
5794 (!pval || strcmp(v->saved_user_val.p, pval))) ||
5795 (!v->saved_user_val.p && pval)){
5796 /* It changed, fix it */
5797 changed++;
5798 if(apval){
5799 /* free the changed value */
5800 if(*apval)
5801 fs_give((void **)apval);
5802
5803 if(v->saved_user_val.p)
5804 *apval = cpystr(v->saved_user_val.p);
5805 }
5806 }
5807 }
5808
5809 if(changed){
5810 if(vreal == &ps->vars[V_FEATURE_LIST])
5811 set_feature_list_current_val(vreal);
5812 else
5813 set_current_val(vreal, TRUE, FALSE);
5814
5815 fix_side_effects(ps, vreal, 1);
5816 }
5817 }
5818 }
5819
5820
5821 SAVED_CONFIG_S *
5822 save_config_vars(struct pine *ps, int allow_hard_to_config_remotely)
5823 {
5824 struct variable *vreal;
5825 SAVED_CONFIG_S *vsave, *v;
5826
5827 vsave = (SAVED_CONFIG_S *)fs_get((V_LAST_VAR+1)*sizeof(SAVED_CONFIG_S));
5828 memset((void *)vsave, 0, (V_LAST_VAR+1)*sizeof(SAVED_CONFIG_S));
5829 v = vsave;
5830 for(vreal = ps->vars; vreal->name; vreal++,v++){
5831 if(!save_include(ps, vreal, allow_hard_to_config_remotely))
5832 continue;
5833
5834 if(vreal->is_list){
5835 int n, i;
5836 char **list;
5837
5838 if(LVAL(vreal, ew)){
5839 /* count how many */
5840 n = 0;
5841 list = LVAL(vreal, ew);
5842 while(list[n])
5843 n++;
5844
5845 v->saved_user_val.l = (char **)fs_get((n+1) * sizeof(char *));
5846 memset((void *)v->saved_user_val.l, 0, (n+1)*sizeof(char *));
5847 for(i = 0; i < n; i++)
5848 v->saved_user_val.l[i] = cpystr(list[i]);
5849
5850 v->saved_user_val.l[n] = NULL;
5851 }
5852 }
5853 else{
5854 if(PVAL(vreal, ew))
5855 v->saved_user_val.p = cpystr(PVAL(vreal, ew));
5856 }
5857 }
5858
5859 return(vsave);
5860 }
5861
5862
5863 void
5864 free_saved_config(struct pine *ps, SAVED_CONFIG_S **vsavep, int allow_hard_to_config_remotely)
5865 {
5866 struct variable *vreal;
5867 SAVED_CONFIG_S *v;
5868
5869 if(vsavep && *vsavep){
5870 for(v = *vsavep, vreal = ps->vars; vreal->name; vreal++,v++){
5871 if(!save_include(ps, vreal, allow_hard_to_config_remotely))
5872 continue;
5873
5874 if(vreal->is_list){ /* free saved_user_val.l */
5875 if(v && v->saved_user_val.l)
5876 free_list_array(&v->saved_user_val.l);
5877 }
5878 else if(v && v->saved_user_val.p)
5879 fs_give((void **)&v->saved_user_val.p);
5880 }
5881
5882 fs_give((void **)vsavep);
5883 }
5884 }
5885
5886
5887 /*
5888 * Returns positive if any thing was actually deleted.
5889 */
5890 int
5891 delete_user_vals(struct variable *v)
5892 {
5893 int rv = 0;
5894
5895 if(v){
5896 if(v->is_list){
5897 if(v->post_user_val.l){
5898 rv++;
5899 free_list_array(&v->post_user_val.l);
5900 }
5901 if(v->main_user_val.l){
5902 rv++;
5903 free_list_array(&v->main_user_val.l);
5904 }
5905 }
5906 else{
5907 if(v->post_user_val.p){
5908 rv++;
5909 fs_give((void **)&v->post_user_val.p);
5910 }
5911 if(v->main_user_val.p){
5912 rv++;
5913 fs_give((void **)&v->main_user_val.p);
5914 }
5915 }
5916 }
5917
5918 return(rv);
5919 }
5920
5921
5922 /*
5923 * ../pith/conf.c required function
5924 */
5925 int
5926 unexpected_pinerc_change(void)
5927 {
5928 Writechar(BELL, 0);
5929 if(want_to("Unexpected pinerc change! Overwrite with current config",
5930 'n', 0, NO_HELP, WT_FLUSH_IN) == 'n'){
5931 return(-1); /* abort pinerc write */
5932 }
5933
5934 return(0); /* overwrite */
5935 }
5936
5937
5938 #ifdef _WINDOWS
5939
5940 /*----------------------------------------------------------------------
5941 MSWin scroll callback. Called during scroll message processing.
5942
5943
5944
5945 Args: cmd - what type of scroll operation.
5946 scroll_pos - paramter for operation.
5947 used as position for SCROLL_TO operation.
5948
5949 Returns: TRUE - did the scroll operation.
5950 FALSE - was not able to do the scroll operation.
5951 ----*/
5952 int
5953 config_scroll_callback (cmd, scroll_pos)
5954 int cmd;
5955 long scroll_pos;
5956 {
5957 switch (cmd) {
5958 case MSWIN_KEY_SCROLLUPLINE:
5959 config_scroll_down (scroll_pos);
5960 break;
5961
5962 case MSWIN_KEY_SCROLLDOWNLINE:
5963 config_scroll_up (scroll_pos);
5964 break;
5965
5966 case MSWIN_KEY_SCROLLUPPAGE:
5967 config_scroll_down (BODY_LINES(ps_global));
5968 break;
5969
5970 case MSWIN_KEY_SCROLLDOWNPAGE:
5971 config_scroll_up (BODY_LINES(ps_global));
5972 break;
5973
5974 case MSWIN_KEY_SCROLLTO:
5975 config_scroll_to_pos (scroll_pos);
5976 break;
5977 }
5978
5979 option_screen_redrawer();
5980 fflush(stdout);
5981
5982 return(TRUE);
5983 }
5984
5985 #endif /* _WINDOWS */
Alpine is a program to manage e-mail