bump year
[clawsker.git] / clawsker
1 #!/usr/bin/perl -w
2 #
3 # Clawsker :: A Claws Mail Tweaker
4 # $Id$
5 #
6 use strict;
7 use encoding 'utf8';
8 use Glib qw(TRUE FALSE);
9 use Gtk2 -init;
10 use POSIX qw(setlocale);
11 use Locale::gettext;
12
13 my $NAME = 'clawsker';
14 my $PREFIX = '@PREFIX@';
15 my $LIBDIR = '@LIBDIR@';
16 my $VERSION = '@VERSION@';
17 my $VERBOSE = FALSE;
18 my $CLAWSV = undef;
19 my $main_window = undef;
20
21 my $locale = (defined($ENV{LC_MESSAGES}) ? $ENV{LC_MESSAGES} : $ENV{LANG});
22 $locale = "C" unless defined($locale);
23 setlocale (LC_ALL, $locale);
24 bindtextdomain ($NAME, sprintf ('%s/share/locale', $PREFIX));
25 textdomain ($NAME);
26
27 my $SHOWHINTS = FALSE;
28 $SHOWHINTS = TRUE if ($Gtk2::VERSION >= 1.040 and Gtk2->CHECK_VERSION (2, 12, 0));
29
30 sub _ {
31     my $str = shift;
32     my %par = @_;
33     my $xla = gettext ($str);
34     if (scalar(keys(%par)) > 0) {
35         foreach my $key (keys %par) {
36             $xla =~ s/\{$key\}/$par{$key}/g;
37         }
38     }
39     return $xla;
40 }
41
42 # default messages
43 %xl::s = (
44     win_title => _('Claws Mail Hidden Preferences'),
45     about => _('About...'),
46     about_title => _('Clawsker :: A Claws Mail Tweaker'),
47     about_license => _('License:'),
48     about_version => _('Version:'),
49
50     tab_colours => _('Colours'),
51     tab_behaviour => _('Behaviour'),
52     tab_gui => _('GUI'),
53     tab_other => _('Other'),
54     tab_winpos => _('Windows'),
55
56     ab_frame => _('Addressbook'),
57     mem_frame => _('Memory'),
58     msgview_frame => _('Message view'),
59     log_frame => _('Log window'),
60     dnd_frame => _('Drag \'n\' drop'),
61     ssl_frame => _('Secure Sockets Layer'),
62     msgs_frame => _('Messages'),
63     stripes_frame => _('Coloured stripes'),
64     sbar_frame => _('Scroll bars'),
65     mlist_frame => _('Message List'),
66     netm_frame => _('NetworkManager'),
67
68     l_oth_use_dlg => _('Use detached address book edit dialogue'),
69     h_oth_use_dlg => _('If true use a separate dialogue to edit a person\'s details. Otherwise will use a form embedded in the address book\'s main window.'),
70     l_oth_max_use => _('Maximum memory for message cache (kB)'),
71     h_oth_max_use => _('The maximum amount of memory to use to cache messages, in kilobytes.'),
72     l_oth_min_time => _('Minimun time for cache elements (minutes)'),
73     h_oth_min_time => _('The minimum time in minutes to keep a cache in memory. Caches more recent than this time will not be freed, even if the memory usage is too high.'),
74     l_oth_use_netm => _('Use NetworkManager'),
75     h_oth_use_netm => _('Use NetworkManager to switch offline automatically.'),
76     
77     l_gui_b_unread => _('Show unread messages with bold font'),
78     h_gui_b_unread => _('Show unread messages in the Message List using a bold font.'),
79     l_gui_no_markup => _('Don\'t use markup in compose window'),
80     h_gui_no_markup => _('Don\'t use bold and italic text in Compose dialogue\'s account selector.'),
81     l_gui_dot_lines => _('Use dotted lines in tree view components'),
82     h_gui_dot_lines => _('Use the old dotted line look in the main window tree views (Folder, Message and other lists) instead of the modern lineless look.'),
83     l_gui_h_scroll => _('Enable horizontal scrollbar'),
84     h_gui_h_scroll => _('Enable the horizontal scrollbar in the Message List.'),
85     l_gui_swp_from => _('Display To column instead From column in Sent folder'),
86     h_gui_swp_from => _('Display the recipient\'s email address in a To column of the Sent folder instead of the originator\'s one in a From column.'),
87     l_gui_v_scroll => _('Folder List scrollbar behaviour'),
88     h_gui_v_scroll => _('Specify the policy of vertical scrollbar of Folder List: show always, automatic or hide always.'),
89     l_gui_v_scroll_show => _('Show always'),
90     l_gui_v_scroll_auto => _('Automatic'),
91     l_gui_v_scroll_hide => _('Hide always'),
92     l_gui_strip_off => _('Coloured lines contrast'),
93     h_gui_strip_off => _('Specify the value to use when creating alternately coloured lines in tree view components. The smaller the value, the less visible the difference in the alternating colours of the lines.'),
94     l_gui_cursor_v => _('Show Cursor in message view'),
95     h_gui_cursor_v => _('Display the cursor in the message view.'),
96     l_gui_toolbar_d => _('Detachable toolbars'),
97     h_gui_toolbar_d => _('Show handles in the toolbars.'),
98     l_gui_strip_all => _('Use stripes in all tree view components'),
99     h_gui_strip_all => _('Enable alternately coloured lines in all tree view components.'),
100     l_gui_strip_sum => _('Use stripes in Folder List and Message List'),
101     h_gui_strip_sum => _('Enable alternately coloured lines in Message list and Folder list.'),
102     l_gui_two_line_v => _('2 lines per Message List item in 3-column layout'),
103     h_gui_two_line_v => _('Spread Message List information over two lines when using the three column mode.'),
104
105     l_beh_hover_t => _('Drag \'n\' drop hover timeout (ms)'),
106     h_beh_hover_t => _('Time in milliseconds that will cause a folder tree to expand when the mouse cursor is held over it during drag and drop.'),
107     l_beh_dangerous => _('Don\'t confirm deletions (dangerous!)'),
108     h_beh_dangerous => _('Don\'t ask for confirmation before definitive deletion of emails.'),
109     l_beh_flowed => _('Respect format=flowed in messages'),
110     h_beh_flowed => _('Respect format=flowed on text/plain message parts. This will cause some mails to have long lines, but will fix some URLs that would otherwise be wrapped.'),
111     l_beh_parts_rw => _('Allow writable temporary files'),
112     h_beh_parts_rw => _('Saves temporary files when opening attachment with write bit set.'),
113     l_beh_skip_ssl => _('Don\'t check SSL certificates'),
114     h_beh_skip_ssl => _('Disables the verification of SSL certificates.'),
115     l_beh_up_step => _('Progress bar update step (items)'),
116     h_beh_up_step => _('Update stepping in progress bars.'),
117     l_beh_thread_a => _('Maximum age when threading by subject (days)'),
118     h_beh_thread_a => _('Number of days to include a message in a thread when using "Thread using subject in addition to standard headers".'),
119     l_beh_unsafe_ssl => _('Allow unsafe SSL certificates'),
120     h_beh_unsafe_ssl => _('Allows Claws Mail to remember multiple SSL certificates for a given server/port.'),
121     l_beh_use_utf8 => _('Force UTF-8 for broken mails'),
122     h_beh_use_utf8 => _('Use UTF-8 encoding for broken mails instead of current locale.'),
123     l_beh_warn_dnd => _('Warn on drag \'n\' drop'),
124     h_beh_warn_dnd => _('Display a confirmation dialogue on drag \'n\' drop of folders.'),
125     l_beh_out_ascii => _('Ougoing messages fallback to ASCII'),
126     h_beh_out_ascii => _('If content allows, ASCII will be used to encode outgoing messages, otherwise the user-defined encoding is enforced always.'),
127     l_beh_pp_unsel => _('Primary paste unselects selection'),
128     h_beh_pp_unsel => _('Controls how pasting using middle-click changes the selected text and insertion point.'),
129
130     l_col_emphasis => _('X-Mailer header'),
131     h_col_emphasis => _('The colour used for the X-Mailer line when its value is Claws Mail.'),
132     l_col_log_err => _('Error messages'),
133     h_col_log_err => _('Colour for error messages in log window.'),
134     l_col_log_in => _('Server messages'),
135     h_col_log_in => _('Colour for messages received from servers in log window.'),
136     l_col_log_msg => _('Standard messages'),
137     h_col_log_msg => _('Colour for messages in log window.'),
138     l_col_log_out => _('Client messages'),
139     h_col_log_out => _('Colour for messages sent to servers in log window.'),
140     l_col_log_warn => _('Warnings'),
141     h_col_log_warn => _('Colour for warning messages in log window.'),
142
143     l_win_x => _('X position'),
144     h_win_x => _('X coordinate for window\'s top-left corner.'),
145     l_win_y => _('Y position'),
146     h_win_y => _('Y coordinate for window\'s top-left corner.'),
147     l_win_w => _('Width'),
148     h_win_w => _('Window\'s width in pixels.'),
149     l_win_h => _('Height'),
150     h_win_h => _('Window\'s height in pixels.'),
151
152     l_win_main_mx => _('Maximized'),
153     h_win_main_mx => _('Changes window maximized status.'),
154     l_win_main_fs => _('Full-screen'),
155     h_win_main_fs => _('Changes full screen status.'),
156
157     e_error => _('Error: '),
158     e_noclawsrc => _('resource file for Claws Mail was not found.'),
159     e_running => _('seems Claws Mail is currently running, close it first.'),
160     e_requireddir => _('option requires a directory name.'),
161     e_requiredfile => _('option requires a file name.'),
162     e_notadir => _('specified name is not a directory or does not exist.'),
163     e_notafile => _('specified name is not a file or does not exist.'),
164 );
165
166 # all preferences read by load_preferences
167 my %PREFS = ();
168 # values of all preferences handled by clawsker
169 my %HPVALUE = ();
170 # default config dir and file name
171 my $ALTCONFIGDIR = FALSE;
172 my $CONFIGDIR = $ENV{HOME} . '/.claws-mail/';
173 my $CONFIGRC = 'clawsrc';
174
175 # index constants for preference arrays
176 use constant NAME  => 0; # the name on the rc file
177 use constant LABEL => 1; # the label on the GUI
178 use constant DESC  => 2; # the description for the hint/help
179 use constant TYPE  => 3; # data type: bool, int, float, string, color
180 use constant CMVER => 4; # lowest Claws Mail version the feature exists
181 use constant CMDEF => 5; # default value for the preference in Claws Mail
182 use constant GUI   => 6; # GUI element
183
184 # constants for GUI spacing
185 use constant HBOX_SPC => 5;
186 use constant FRAME_SPC => 2;
187 use constant PAGE_SPC => 5;
188
189 # version functions
190
191 sub version_greater_or_equal() {
192   my ($version, $refvers) = @_;
193   my @version = split (/\./, $version);
194   my @refvers = split (/\./, $refvers);
195   while ($#version < $#refvers) {
196     push (@version, '0');
197   }
198   my $idx = 0;
199   while (($idx <= $#refvers) 
200          and (int ($version[$idx]) == int ($refvers[$idx]))) {
201     ++$idx;
202   }
203   return TRUE if (($idx > $#refvers) 
204                or (int ($version[$idx]) >= int ($refvers[$idx])));
205   return FALSE;
206 }
207
208 sub get_claws_version() {
209     my @cmbin = (
210         'claws-mail',
211     );
212     my $res = "";
213     foreach my $bin (@cmbin) {
214         $_ = qx/which $bin/;
215         chomp;
216         last if ($_ ne "");
217     }
218     return "" unless ($_); # not installed
219     $_ = qx/$_ -v/;
220     chomp;
221     my @fver = split (/ /);
222     die "Invalid version string" unless ($fver[2] eq "version");
223     my @ver = split (/\./, $fver[3]);
224     $res .= "$ver[0].";
225     $res .= "$ver[1].";
226     if ($ver[2] =~ /(\d+)cvs(\d+)/) {
227         $res .= "$1.$2";
228     }
229     else {
230         $res .= "$ver[2].0";
231     }
232     return $res;
233 }
234
235 # data handlers and auxiliar functions
236
237 sub handle_bool_value {
238     my ($widget, $event, $dataref) = @_;
239     $$dataref = ($widget->get_active ())? '1': '0';
240 }
241
242 sub handle_int_value {
243     my ($widget, $event, $dataref) = @_;
244     $_ = $widget->get_text ();
245     s/^\s+//;
246     s/\s+$//;
247     if (/^[0-9]+$/) {
248         $$dataref = $_;
249         $widget->set_text ($_);
250     }
251     else {
252         $widget->set_text ($$dataref);
253     }
254 }
255
256 sub handle_string_value {
257     my ($widget, $event, $dataref) = @_;
258     $$dataref = $widget->get_text ();
259 }
260
261 sub gdk_color_from_str {
262     my ($str) = @_;
263     my ($rr, $gg, $bb) = (0, 0 ,0);
264     $_ = uc ($str);
265     if (/\#([A-F0-9][A-F0-9])([A-F0-9][A-F0-9])([A-F0-9][A-F0-9])/) {
266         $rr = hex($1) * 256;
267         $gg = hex($2) * 256; 
268         $bb = hex($3) * 256;
269     }
270     my $color = Gtk2::Gdk::Color->new ($rr, $gg, $bb);
271     return $color;
272 }
273
274 sub str_from_gdk_color {
275     my ($color) = @_;
276     my $rr = $color->red / 256;
277     my $gg = $color->green / 256;
278     my $bb = $color->blue / 256;
279     my $str = sprintf ("#%.2x%.2x%.2x", $rr, $gg, $bb);
280     return $str;
281 }
282
283 sub handle_color_value {
284     my ($widget, $event, $dataref) = @_;
285     my $newcol = $widget->get_color;
286     $$dataref = &str_from_gdk_color ($newcol);
287 }
288
289 sub handle_selection_value {
290     my ($widget, $event, $dataref) = @_;
291     $$dataref = $widget->get_active;
292 }
293
294 sub get_rc_filename {
295     return $CONFIGDIR . $CONFIGRC;
296 }
297
298 sub set_rc_filename {
299     my ($fullname) = @_;
300     my @parts = split ('/', $fullname);
301     $CONFIGRC = $parts[$#parts];
302     $parts[$#parts] = '';
303     $CONFIGDIR = join ('/', @parts);
304 }
305
306 sub log_message {
307     my ($mesg, $fatal) = @_;
308     if (defined($fatal) && $fatal eq 'die') {
309         die "$NAME: $mesg\n";
310     }
311     if ($VERBOSE) {
312         print "$NAME: $mesg\n";
313     }
314 }
315
316 sub error_dialog {
317     my ($emsg) = @_;
318     my $markup = "<span weight=\"bold\" size=\"large\">" . $emsg . "</span>";
319     my $errordlg = Gtk2::MessageDialog->new_with_markup ($main_window, 'modal', 'error', 'cancel', $markup);
320     $errordlg->set_title (_('Error message'));
321     $errordlg->run;
322     $errordlg->destroy;
323 }
324
325 sub check_claws_not_running() {
326     my $socket = (not $ALTCONFIGDIR)? "/tmp/": $CONFIGDIR;
327     $socket .= "claws-mail-$<";
328     -S $socket and do {
329         my $emsg = "$xl::s{e_error}$xl::s{e_running}";
330         log_message ($emsg);
331         error_dialog ($emsg);
332         return FALSE;
333      };
334
335      return TRUE;
336 }
337
338 sub check_rc_file() {
339     my ($rcfile) = @_;
340     (defined($rcfile) && -f $rcfile) or do {
341        my $emsg = "$xl::s{e_error}$xl::s{e_noclawsrc}\n";
342         log_message ($emsg);
343         error_dialog ($emsg);
344         return FALSE;
345     };
346
347     return TRUE;
348 }
349
350 sub set_widget_hint() {
351     if ($SHOWHINTS) {
352         my ($wdgt, $hint) = @_;    
353         $wdgt->set_tooltip_text ($hint);
354         $wdgt->set_has_tooltip (TRUE);
355     }
356 }
357
358 sub set_widget_sens() {
359     my ($wdgt, $minver) = @_;
360     $wdgt->set_sensitive (&version_greater_or_equal ($CLAWSV, $minver));
361 }
362
363 # graphic element creation 
364
365 sub new_check_button_for {
366     my ($hash, $key) = @_;
367     my $name = $$hash{$key}[NAME];
368     my $label = $$hash{$key}[LABEL];
369     #
370     my $hbox = Gtk2::HBox->new (FALSE, 5);
371     my $cb = Gtk2::CheckButton->new ($label);
372     $$hash{$key}[GUI] = $cb;
373     if (defined ($HPVALUE{$name})) {
374         $cb->set_active ($HPVALUE{$name} eq '1');
375     }
376     $cb->signal_connect (clicked => sub {
377             my ($w, $e) = @_;
378             &handle_bool_value($w, $e, \$HPVALUE{$name});
379         });
380     &set_widget_hint ($cb, $$hash{$key}[DESC]);
381     &set_widget_sens ($cb, $$hash{$key}[CMVER]);
382     $hbox->pack_start ($cb, FALSE, FALSE, HBOX_SPC);
383     #
384     return $hbox;
385 }
386
387 sub new_text_box_for_int {
388     my ($hash, $key) = @_;
389     my $name = $$hash{$key}[NAME];
390     my $label = $$hash{$key}[LABEL];
391     my @type = split (/,/, $$hash{$key}[TYPE]);
392     push (@type, 0), push (@type, 10000) unless ($#type > 0); 
393     #
394     my $hbox = Gtk2::HBox->new (FALSE, 5);
395     my $glabel = Gtk2::Label->new ($label);
396     my $pagei = int (($type[2] - $type[1]) / 10);
397     my $gentry = Gtk2::SpinButton->new_with_range ($type[1], $type[2], $pagei);
398     $gentry->set_numeric (TRUE);
399     $$hash{$key}[GUI] = $gentry;
400     $gentry->signal_connect('value-changed' => sub {
401             my ($w, $e) = @_;
402             &handle_int_value($w, $e, \$HPVALUE{$name});
403         });
404     &set_widget_hint ($gentry, $$hash{$key}[DESC]);
405     &set_widget_sens ($gentry, $$hash{$key}[CMVER]);
406     $glabel->set_sensitive ($gentry->sensitive);
407     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
408     $hbox->pack_start ($gentry, FALSE, FALSE, HBOX_SPC);
409     #
410     return $hbox;
411 }
412
413 sub new_color_button_for {
414     my ($hash, $key) = @_;
415     my $name = $$hash{$key}[NAME];
416     my $label = $$hash{$key}[LABEL];
417     #
418     my $col = &gdk_color_from_str ($HPVALUE{$name});
419     my $hbox = Gtk2::HBox->new (FALSE, 5);
420     my $glabel = Gtk2::Label->new ($label);
421     my $button = Gtk2::ColorButton->new_with_color ($col);
422     $$hash{$key}[GUI] = $button;
423     $button->set_title ($label);
424     $button->set_relief ('none');
425     $button->signal_connect ('color-set' => sub {
426             my ($w, $e) = @_;
427             &handle_color_value($w, $e, \$HPVALUE{$name}); 
428         });
429     &set_widget_hint ($button, $$hash{$key}[DESC]);
430     &set_widget_sens ($button, $$hash{$key}[CMVER]);
431     $glabel->set_sensitive ($button->sensitive);
432     $hbox->pack_start ($button, FALSE, FALSE, HBOX_SPC);
433     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
434     #
435     return $hbox;
436 }
437
438 sub new_selection_box_for {
439     my ($hash, $key) = @_;
440     my $name = $$hash{$key}[NAME];
441     my $label = $$hash{$key}[LABEL];
442     #
443     my $hbox = Gtk2::HBox->new (FALSE, 5);
444     my $glabel = Gtk2::Label->new ($label);
445     my $combo = Gtk2::ComboBox->new_text;
446     $$hash{$key}[GUI] = $combo;
447     my @options = split (';', $$hash{$key}[TYPE]);
448     foreach my $opt (@options) {
449         my ($index, $textkey) = split ('=', $opt);
450         $combo->insert_text ($index, $xl::s{$textkey});
451     }
452     $combo->signal_connect ('changed' => sub {
453             my ($w, $e) = @_;
454             &handle_selection_value($w, $e, \$HPVALUE{$name});
455         });
456     $combo->set_active ($HPVALUE{$name});
457     &set_widget_hint ($combo, $$hash{$key}[DESC]);
458     &set_widget_sens ($combo, $$hash{$key}[CMVER]);
459     $glabel->set_sensitive ($combo->sensitive);
460     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
461     $hbox->pack_start ($combo, FALSE, FALSE, HBOX_SPC);
462     #
463     return $hbox;
464 }
465
466 # more graphic helpers
467
468 sub new_hbox_pack() {
469     my $hbox = Gtk2::HBox->new (FALSE, 5);
470     $hbox->set_border_width (PAGE_SPC);
471     foreach my $item (@_) {
472         $hbox->pack_start ($item, FALSE, FALSE, 0);
473     }
474     return $hbox;
475 }    
476
477 sub new_vbox_pack() {
478     my $vbox = Gtk2::VBox->new (FALSE, 5);
479     $vbox->set_border_width (PAGE_SPC);
480     foreach my $item (@_) {
481         $vbox->pack_start ($item, FALSE, FALSE, 0);
482     }
483     return $vbox;
484 }    
485
486 sub new_vbox_pack_compact() {
487     my $vbox = Gtk2::VBox->new (FALSE, 0);
488     $vbox->set_border_width (0);
489     foreach my $item (@_) {
490         $vbox->pack_start ($item, FALSE, FALSE, 0);
491     }
492     return $vbox;
493 }    
494
495 sub new_subpage_frame () {
496     my ($box, $title, $notpacked) = @_;
497     my $frame = Gtk2::Frame->new ($title);
498     $frame->add ($box);    
499     return &new_vbox_pack ($frame) unless defined ($notpacked);
500     return $frame;
501 }
502
503 # preference maps and corresponding page creation subs
504
505 %pr::oth = ( # other preferences
506     use_dlg => [ 
507         'addressbook_use_editaddress_dialog',
508         $xl::s{l_oth_use_dlg},
509         $xl::s{h_oth_use_dlg},
510         'bool',
511         '2.7.0',
512         '0',
513         undef,
514     ],
515     max_use => [
516         'cache_max_mem_usage',
517         $xl::s{l_oth_max_use},
518         $xl::s{h_oth_max_use},
519         'int,0,262144', # 0 Kb - 256 Mb
520         '0.0.0',
521         '4096',
522         undef,
523     ],
524     min_time => [
525         'cache_min_keep_time',
526         $xl::s{l_oth_min_time},
527         $xl::s{h_oth_min_time},
528         'int,0,120', # 0 minutes - 2 hours
529         '0.0.0',
530         '15',
531         undef,
532     ],
533     use_netm => [
534         'use_networkmanager',
535         $xl::s{l_oth_use_netm},
536         $xl::s{h_oth_use_netm},
537         'bool',
538         '3.3.1',
539         '1',
540         undef,
541     ],
542 );
543
544 sub new_other_page() {
545     return &new_vbox_pack (
546                &new_subpage_frame (
547                    &new_vbox_pack (
548                        &new_check_button_for(\%pr::oth, 'use_dlg')),
549                    $xl::s{ab_frame}, 'not-packed'),
550                &new_subpage_frame (
551                    &new_vbox_pack (
552                        &new_text_box_for_int(\%pr::oth, 'max_use'),
553                        &new_text_box_for_int(\%pr::oth, 'min_time')),
554                    $xl::s{mem_frame}, 'not-packed'),
555                &new_subpage_frame (
556                    &new_vbox_pack (
557                        &new_check_button_for(\%pr::oth, 'use_netm')),
558                    $xl::s{netm_frame}, 'not-packed')
559            );
560 }
561
562 %pr::gui = ( # gui bells and whistles
563     b_unread => [ 
564         'bold_unread',
565         $xl::s{l_gui_b_unread},
566         $xl::s{h_gui_b_unread},
567         'bool',
568         '0.0.0',
569         '1',
570         undef,
571     ],
572     no_markup => [
573         'compose_no_markup',
574         $xl::s{l_gui_no_markup},
575         $xl::s{h_gui_no_markup},
576         'bool',
577         '0.0.0',
578         '0',
579         undef,
580     ],
581     dot_lines => [
582         'enable_dotted_lines',
583         $xl::s{l_gui_dot_lines},
584         $xl::s{h_gui_dot_lines},
585         'bool',
586         '0.0.0',
587         '0',
588         undef,
589     ],
590     h_scroll => [
591         'enable_hscrollbar',
592         $xl::s{l_gui_h_scroll},
593         $xl::s{h_gui_h_scroll},
594         'bool',
595         '0.0.0',
596         '1',
597         undef,
598     ],
599     swp_from => [
600         'enable_swap_from',
601         $xl::s{l_gui_swp_from},
602         $xl::s{h_gui_swp_from},
603         'bool',
604         '0.0.0',
605         '0',
606         undef,
607     ],
608     v_scroll => [
609         'folderview_vscrollbar_policy',
610         $xl::s{l_gui_v_scroll},
611         $xl::s{h_gui_v_scroll},
612         '0=l_gui_v_scroll_show;1=l_gui_v_scroll_auto;2=l_gui_v_scroll_hide',
613         '0.0.0',
614         '0',
615         undef,
616     ],
617     strip_off => [
618         'stripes_color_offset',
619         $xl::s{l_gui_strip_off},
620         $xl::s{h_gui_strip_off},
621         'int,0,10000', # no idea what this number means
622         '0.0.0',
623         '4000',
624         undef,
625     ],
626     cursor_v => [
627         'textview_cursor_visible',
628         $xl::s{l_gui_cursor_v},
629         $xl::s{h_gui_cursor_v},
630         'bool',
631         '0.0.0',
632         '0',
633         undef,
634     ],
635     toolbar_d => [
636         'toolbar_detachable',
637         $xl::s{l_gui_toolbar_d},
638         $xl::s{h_gui_toolbar_d},
639         'bool',
640         '0.0.0',
641         '0',
642         undef,
643     ],
644     strip_all => [
645         'use_stripes_everywhere',
646         $xl::s{l_gui_strip_all},
647         $xl::s{h_gui_strip_all},
648         'bool',
649         '0.0.0',
650         '1',
651         undef,
652     ],
653     strip_sum => [
654         'use_stripes_in_summaries',
655         $xl::s{l_gui_strip_sum},
656         $xl::s{h_gui_strip_sum},
657         'bool',
658         '0.0.0',
659         '1',
660         undef,
661     ],
662     two_linev => [
663         'two_line_vertical',
664         $xl::s{l_gui_two_line_v},
665         $xl::s{h_gui_two_line_v},
666         'bool',
667         '3.4.0.7',
668         '0',
669         undef,
670     ],
671 );
672
673 sub new_gui_page() {
674     my $gf = Gtk2::VBox->new (FALSE, 5);
675     $gf->set_border_width (PAGE_SPC);
676
677     my $cb_no_markup = &new_check_button_for (\%pr::gui, 'no_markup'); 
678     my $cb_dot_lines = &new_check_button_for (\%pr::gui, 'dot_lines'); 
679     my $cb_cursor_v = &new_check_button_for (\%pr::gui, 'cursor_v');
680     my $cb_toolbar_d = &new_check_button_for (\%pr::gui, 'toolbar_d');
681     my $cb_two_linev = &new_check_button_for (\%pr::gui, 'two_linev');
682
683     $gf->pack_start (&new_subpage_frame (
684                          &new_vbox_pack (
685                              &new_check_button_for (\%pr::gui, 'strip_all'),
686                              &new_check_button_for (\%pr::gui, 'strip_sum'),
687                              &new_text_box_for_int (\%pr::gui, 'strip_off')),
688                          $xl::s{stripes_frame}, 'not-packed'),
689                      FALSE, FALSE, FRAME_SPC);
690     $gf->pack_start (&new_subpage_frame (
691                          &new_vbox_pack (
692                              &new_check_button_for (\%pr::gui, 'b_unread'),
693                              &new_check_button_for (\%pr::gui, 'swp_from')),
694                          $xl::s{mlist_frame}, 'not-packed'), 
695                      FALSE, FALSE, FRAME_SPC);
696     $gf->pack_start ($cb_no_markup, FALSE, FALSE, 0);
697     $gf->pack_start ($cb_dot_lines, FALSE, FALSE, 0);
698     $gf->pack_start ($cb_cursor_v, FALSE, FALSE, 0);
699     $gf->pack_start ($cb_toolbar_d, FALSE, FALSE, 0);
700     $gf->pack_start ($cb_two_linev, FALSE, FALSE, 0);
701     $gf->pack_start (&new_subpage_frame (
702                          &new_vbox_pack (
703                              &new_check_button_for (\%pr::gui, 'h_scroll'),
704                              &new_selection_box_for (\%pr::gui, 'v_scroll')),
705                          $xl::s{sbar_frame}, 'not-packed'),
706                      FALSE, FALSE, FRAME_SPC);
707
708     return $gf;
709 }
710
711 %pr::beh = ( # tweak some behaviour
712     hover_t => [
713         'hover_timeout',
714         $xl::s{l_beh_hover_t},
715         $xl::s{h_beh_hover_t},
716         'int,100,3000', # 0.1 seconds - 3 seconds
717         '0.0.0',
718         '500',
719         undef,
720     ],
721     dangerous => [
722         'live_dangerously',
723         $xl::s{l_beh_dangerous},
724         $xl::s{h_beh_dangerous},
725         'bool',
726         '0.0.0',
727         '0',
728         undef,
729     ],
730     flowed => [
731         'respect_flowed_format',
732         $xl::s{l_beh_flowed},
733         $xl::s{h_beh_flowed},
734         'bool',
735         '0.0.0',
736         '0',
737         undef,
738     ],
739     parts_rw => [
740         'save_parts_readwrite',
741         $xl::s{l_beh_parts_rw},
742         $xl::s{h_beh_parts_rw},
743         'bool',
744         '0.0.0',
745         '0',
746         undef,
747     ],
748     skip_ssl => [
749         'skip_ssl_cert_check',
750         $xl::s{l_beh_skip_ssl},
751         $xl::s{h_beh_skip_ssl},
752         'bool',
753         '0.0.0',
754         '0',
755         undef,
756     ],
757     up_step => [
758         'statusbar_update_step',
759         $xl::s{l_beh_up_step},
760         $xl::s{h_beh_up_step},
761         'int,1,200', # 1 item - 200 items
762         '0.0.0',
763         '10',
764         undef,
765     ],
766     thread_a => [
767         'thread_by_subject_max_age',
768         $xl::s{l_beh_thread_a},
769         $xl::s{h_beh_thread_a},
770         'int,1,30', # 1 day - 30 days
771         '0.0.0',
772         '10',
773         undef,
774     ],
775     unsafe_ssl => [
776         'unsafe_ssl_certs',
777         $xl::s{l_beh_unsafe_ssl},
778         $xl::s{h_beh_unsafe_ssl},
779         'bool',
780         '0.0.0',
781         '0',
782         undef,
783     ],
784     use_utf8 => [
785         'utf8_instead_of_locale_for_broken_mail',
786         $xl::s{l_beh_use_utf8},
787         $xl::s{h_beh_use_utf8},
788         'bool',
789         '0.0.0',
790         '0',
791         undef,
792     ],
793     warn_dnd => [
794         'warn_dnd',
795         $xl::s{l_beh_warn_dnd},
796         $xl::s{h_beh_warn_dnd},
797         'bool',
798         '0.0.0',
799         '1',
800         undef,
801     ],
802     out_ascii => [
803         'outgoing_fallback_to_ascii',
804         $xl::s{l_beh_out_ascii},
805         $xl::s{h_beh_out_ascii},
806         'bool',
807         '3.4.0.37',
808         '1',
809         undef,
810     ],
811     pp_unsel => [
812         'primary_paste_unselects',
813         $xl::s{l_beh_pp_unsel},
814         $xl::s{h_beh_pp_unsel},
815         'bool',
816         '3.6.1.35',
817         '0',
818         undef,
819     ],
820 );
821
822 sub new_behaviour_page() {
823     my $bf = Gtk2::VBox->new (FALSE, 5);
824     $bf->set_border_width (PAGE_SPC);
825
826     my $tb_up_step = &new_text_box_for_int (\%pr::beh, 'up_step');
827     my $tb_thread_a = &new_text_box_for_int (\%pr::beh, 'thread_a');
828
829     $bf->pack_start (&new_subpage_frame (
830                          &new_vbox_pack (
831                              &new_text_box_for_int (\%pr::beh, 'hover_t'),
832                              &new_check_button_for (\%pr::beh, 'warn_dnd')),
833                          $xl::s{dnd_frame}, 'not-packed'), 
834                      FALSE, FALSE, FRAME_SPC);
835     $bf->pack_start (&new_subpage_frame (
836                          &new_hbox_pack (
837                              &new_check_button_for (\%pr::beh, 'skip_ssl'),
838                              &new_check_button_for (\%pr::beh, 'unsafe_ssl')),
839                          $xl::s{ssl_frame}, 'not-packed'),
840                      FALSE, FALSE, FRAME_SPC);
841     $bf->pack_start ($tb_up_step, FALSE, FALSE, 0);
842     $bf->pack_start ($tb_thread_a, FALSE, FALSE, 0);
843     $bf->pack_start (&new_subpage_frame (
844                          &new_vbox_pack (
845                              &new_check_button_for (\%pr::beh, 'flowed'),
846                              &new_check_button_for (\%pr::beh, 'parts_rw'),
847                              &new_check_button_for (\%pr::beh, 'use_utf8'),
848                              &new_check_button_for (\%pr::beh, 'dangerous'),
849                              &new_check_button_for (\%pr::beh, 'out_ascii'),
850                              &new_check_button_for (\%pr::beh, 'pp_unsel')),
851                          $xl::s{msgs_frame}, 'not-packed'),
852                      FALSE, FALSE, FRAME_SPC);
853
854     return $bf;
855 }
856
857 %pr::col = ( # a variety of colours
858     emphasis => [
859         'emphasis_color',
860         $xl::s{l_col_emphasis},
861         $xl::s{h_col_emphasis},
862         'color',
863         '0.0.0',
864         '#0000cf',
865         undef,
866     ],
867     log_err => [
868         'log_error_color',
869         $xl::s{l_col_log_err},
870         $xl::s{h_col_log_err},
871         'color',
872         '0.0.0',
873         '#af0000',
874         undef,
875     ],
876     log_in => [
877         'log_in_color',
878         $xl::s{l_col_log_in},
879         $xl::s{h_col_log_in},
880         'color',
881         '0.0.0',
882         '#000000',
883         undef,
884     ],
885     log_msg => [
886         'log_msg_color',
887         $xl::s{l_col_log_msg},
888         $xl::s{h_col_log_msg},
889         'color',
890         '0.0.0',
891         '#00af00',
892         undef,
893     ],
894     log_out => [
895         'log_out_color',
896         $xl::s{l_col_log_out},
897         $xl::s{h_col_log_out},
898         'color',
899         '0.0.0',
900         '#0000ef',
901         undef,
902     ],
903     log_warn => [
904         'log_warn_color',
905         $xl::s{l_col_log_warn},
906         $xl::s{h_col_log_warn},
907         'color',
908         '0.0.0',
909         '#af0000',
910         undef,
911     ],
912 );
913
914 sub new_colours_page() {
915     return &new_vbox_pack (
916                &new_subpage_frame (
917                    &new_vbox_pack (
918                        &new_color_button_for (\%pr::col, 'emphasis')),
919                    $xl::s{msgview_frame}, 'not-packed'),
920                &new_subpage_frame (
921                    &new_vbox_pack (
922                        &new_color_button_for (\%pr::col, 'log_err'),
923                        &new_color_button_for (\%pr::col, 'log_in'),
924                        &new_color_button_for (\%pr::col, 'log_msg'),
925                        &new_color_button_for (\%pr::col, 'log_out'),
926                        &new_color_button_for (\%pr::col, 'log_warn')),
927                    $xl::s{log_frame}, 'not-packed')
928            );
929 }
930
931 %pr::win = ( # tweak window positions and/or sizes
932     main_x => [
933         'mainwin_x',
934         $xl::s{l_win_x},
935         $xl::s{h_win_x},
936         'int,0,3000', # 0 pixels - 3000 pixels
937         '0.0.0',
938         '16',
939         undef,
940     ],
941     main_y => [
942         'mainwin_y',
943         $xl::s{l_win_y},
944         $xl::s{h_win_y},
945         'int,0,3000', # 0 pixels - 3000 pixels
946         '0.0.0',
947         '16',
948         undef,
949     ],
950     main_w => [
951         'mainwin_width',
952         $xl::s{l_win_w},
953         $xl::s{h_win_w},
954         'int,0,3000', # 0 pixels - 3000 pixels
955         '0.0.0',
956         '779',
957         undef,
958     ],
959     main_h => [
960         'mainwin_height',
961         $xl::s{l_win_h},
962         $xl::s{h_win_h},
963         'int,0,3000', # 0 pixels - 3000 pixels
964         '0.0.0',
965         '568',
966         undef,
967     ],
968     main_mx => [
969         'mainwin_maximised',
970         $xl::s{l_win_main_mx},
971         $xl::s{h_win_main_mx},
972         'bool',
973         '0.0.0',
974         '0',
975         undef,
976     ],
977     main_fs => [
978         'mainwin_fullscreen',
979         $xl::s{l_win_main_fs},
980         $xl::s{h_win_main_fs},
981         'bool',
982         '0.0.0',
983         '0',
984         undef,
985     ],
986     msgs_x => [
987         'main_messagewin_x',
988         $xl::s{l_win_x},
989         $xl::s{h_win_x},
990         'int,0,3000', # 0 pixels - 3000 pixels
991         '0.0.0',
992         '256',
993         undef,
994     ],
995     msgs_y => [
996         'main_messagewin_y',
997         $xl::s{l_win_y},
998         $xl::s{h_win_y},
999         'int,0,3000', # 0 pixels - 3000 pixels
1000         '0.0.0',
1001         '210',
1002         undef,
1003     ],
1004     msgs_w => [
1005         'messagewin_width',
1006         $xl::s{l_win_w},
1007         $xl::s{h_win_w},
1008         'int,0,3000', # 0 pixels - 3000 pixels
1009         '0.0.0',
1010         '600',
1011         undef,
1012     ],
1013     msgs_h => [
1014         'messagewin_height',
1015         $xl::s{l_win_h},
1016         $xl::s{h_win_h},
1017         'int,0,3000', # 0 pixels - 3000 pixels
1018         '0.0.0',
1019         '540',
1020         undef,
1021     ],
1022     send_w => [
1023         'sendwin_width',
1024         $xl::s{l_win_w},
1025         $xl::s{h_win_w},
1026         'int,0,3000', # 0 pixels - 3000 pixels
1027         '0.0.0',
1028         '460',
1029         undef,
1030     ],
1031     send_h => [
1032         'sendwin_height',
1033         $xl::s{l_win_h},
1034         $xl::s{h_win_h},
1035         'int,0,3000', # 0 pixels - 3000 pixels
1036         '0.0.0',
1037         '-1',
1038         undef,
1039     ],
1040     recv_w => [
1041         'receivewin_width',
1042         $xl::s{l_win_w},
1043         $xl::s{h_win_w},
1044         'int,0,3000', # 0 pixels - 3000 pixels
1045         '0.0.0',
1046         '460',
1047         undef,
1048     ],
1049     recv_h => [
1050         'receivewin_height',
1051         $xl::s{l_win_h},
1052         $xl::s{h_win_h},
1053         'int,0,3000', # 0 pixels - 3000 pixels
1054         '0.0.0',
1055         '-1',
1056         undef,
1057     ],
1058     fold_x => [
1059         'folderwin_x',
1060         $xl::s{l_win_x},
1061         $xl::s{h_win_x},
1062         'int,0,3000', # 0 pixels - 3000 pixels
1063         '0.0.0',
1064         '16',
1065         undef,
1066     ],
1067     fold_y => [
1068         'folderwin_y',
1069         $xl::s{l_win_y},
1070         $xl::s{h_win_y},
1071         'int,0,3000', # 0 pixels - 3000 pixels
1072         '0.0.0',
1073         '16',
1074         undef,
1075     ],
1076     fold_w => [
1077         'folderitemwin_width',
1078         $xl::s{l_win_w},
1079         $xl::s{h_win_w},
1080         'int,0,3000', # 0 pixels - 3000 pixels
1081         '0.0.0',
1082         '500',
1083         undef,
1084     ],
1085     fold_h => [
1086         'folderitemwin_height',
1087         $xl::s{l_win_h},
1088         $xl::s{h_win_h},
1089         'int,0,3000', # 0 pixels - 3000 pixels
1090         '0.0.0',
1091         '-1',
1092         undef,
1093     ],
1094     fsel_w => [
1095         'folderselwin_width',
1096         $xl::s{l_win_w},
1097         $xl::s{h_win_w},
1098         'int,0,3000', # 0 pixels - 3000 pixels
1099         '0.0.0',
1100         '300',
1101         undef,
1102     ],
1103     fsel_h => [
1104         'folderselwin_height',
1105         $xl::s{l_win_h},
1106         $xl::s{h_win_h},
1107         'int,0,3000', # 0 pixels - 3000 pixels
1108         '0.0.0',
1109         '-1',
1110         undef,
1111     ],
1112     sour_w => [
1113         'sourcewin_width',
1114         $xl::s{l_win_w},
1115         $xl::s{h_win_w},
1116         'int,0,3000', # 0 pixels - 3000 pixels
1117         '0.0.0',
1118         '600',
1119         undef,
1120     ],
1121     sour_h => [
1122         'sourcewin_height',
1123         $xl::s{l_win_h},
1124         $xl::s{h_win_h},
1125         'int,0,3000', # 0 pixels - 3000 pixels
1126         '0.0.0',
1127         '500',
1128         undef,
1129     ],
1130     addr_w => [
1131         'addressbookwin_width',
1132         $xl::s{l_win_w},
1133         $xl::s{h_win_w},
1134         'int,0,3000', # 0 pixels - 3000 pixels
1135         '0.0.0',
1136         '520',
1137         undef,
1138     ],
1139     addr_h => [
1140         'addressbookwin_height',
1141         $xl::s{l_win_h},
1142         $xl::s{h_win_h},
1143         'int,0,3000', # 0 pixels - 3000 pixels
1144         '0.0.0',
1145         '-1',
1146         undef,
1147     ],
1148     adep_w => [
1149         'addressbookeditpersonwin_width',
1150         $xl::s{l_win_w},
1151         $xl::s{h_win_w},
1152         'int,0,3000', # 0 pixels - 3000 pixels
1153         '0.0.0',
1154         '640',
1155         undef,
1156     ],
1157     adep_h => [
1158         'addressbookeditpersonwin_height',
1159         $xl::s{l_win_h},
1160         $xl::s{h_win_h},
1161         'int,0,3000', # 0 pixels - 3000 pixels
1162         '0.0.0',
1163         '320',
1164         undef,
1165     ],
1166     adeg_w => [
1167         'addressbookeditgroupwin_width',
1168         $xl::s{l_win_w},
1169         $xl::s{h_win_w},
1170         'int,0,3000', # 0 pixels - 3000 pixels
1171         '0.0.0',
1172         '580',
1173         undef,
1174     ],
1175     adeg_h => [
1176         'addressbookeditgroupwin_height',
1177         $xl::s{l_win_h},
1178         $xl::s{h_win_h},
1179         'int,0,3000', # 0 pixels - 3000 pixels
1180         '0.0.0',
1181         '340',
1182         undef,
1183     ],
1184     adda_w => [
1185         'addressaddwin_width',
1186         $xl::s{l_win_w},
1187         $xl::s{h_win_w},
1188         'int,0,3000', # 0 pixels - 3000 pixels
1189         '0.0.0',
1190         '300',
1191         undef,
1192     ],
1193     adda_h => [
1194         'addressaddwin_height',
1195         $xl::s{l_win_h},
1196         $xl::s{h_win_h},
1197         'int,0,3000', # 0 pixels - 3000 pixels
1198         '0.0.0',
1199         '-1',
1200         undef,
1201     ],
1202     addf_w => [
1203         'addressbook_folderselwin_width',
1204         $xl::s{l_win_w},
1205         $xl::s{h_win_w},
1206         'int,0,3000', # 0 pixels - 3000 pixels
1207         '0.0.0',
1208         '300',
1209         undef,
1210     ],
1211     addf_h => [
1212         'addressbook_folderselwin_height',
1213         $xl::s{l_win_h},
1214         $xl::s{h_win_h},
1215         'int,0,3000', # 0 pixels - 3000 pixels
1216         '0.0.0',
1217         '-1',
1218         undef,
1219     ],
1220     acce_w => [
1221         'editaccountwin_width',
1222         $xl::s{l_win_w},
1223         $xl::s{h_win_w},
1224         'int,0,3000', # 0 pixels - 3000 pixels
1225         '0.0.0',
1226         '500',
1227         undef,
1228     ],
1229     acce_h => [
1230         'editaccountwin_height',
1231         $xl::s{l_win_h},
1232         $xl::s{h_win_h},
1233         'int,0,3000', # 0 pixels - 3000 pixels
1234         '0.0.0',
1235         '-1',
1236         undef,
1237     ],
1238     acco_w => [
1239         'accountswin_width',
1240         $xl::s{l_win_w},
1241         $xl::s{h_win_w},
1242         'int,0,3000', # 0 pixels - 3000 pixels
1243         '0.0.0',
1244         '500',
1245         undef,
1246     ],
1247     acco_h => [
1248         'accountswin_height',
1249         $xl::s{l_win_h},
1250         $xl::s{h_win_h},
1251         'int,0,3000', # 0 pixels - 3000 pixels
1252         '0.0.0',
1253         '-1',
1254         undef,
1255     ],
1256     filt_w => [
1257         'filteringwin_width',
1258         $xl::s{l_win_w},
1259         $xl::s{h_win_w},
1260         'int,0,3000', # 0 pixels - 3000 pixels
1261         '0.0.0',
1262         '500',
1263         undef,
1264     ],
1265     filt_h => [
1266         'filteringwin_height',
1267         $xl::s{l_win_h},
1268         $xl::s{h_win_h},
1269         'int,0,3000', # 0 pixels - 3000 pixels
1270         '0.0.0',
1271         '-1',
1272         undef,
1273     ],
1274     fila_w => [
1275         'filteringactionwin_width',
1276         $xl::s{l_win_w},
1277         $xl::s{h_win_w},
1278         'int,0,3000', # 0 pixels - 3000 pixels
1279         '0.0.0',
1280         '490',
1281         undef,
1282     ],
1283     fila_h => [
1284         'filteringactionwin_height',
1285         $xl::s{l_win_h},
1286         $xl::s{h_win_h},
1287         'int,0,3000', # 0 pixels - 3000 pixels
1288         '0.0.0',
1289         '-1',
1290         undef,
1291     ],
1292     fild_w => [
1293         'filtering_debugwin_width',
1294         $xl::s{l_win_w},
1295         $xl::s{h_win_w},
1296         'int,0,3000', # 0 pixels - 3000 pixels
1297         '0.0.0',
1298         '600',
1299         undef,
1300     ],
1301     fild_h => [
1302         'filtering_debugwin_height',
1303         $xl::s{l_win_h},
1304         $xl::s{h_win_h},
1305         'int,0,3000', # 0 pixels - 3000 pixels
1306         '0.0.0',
1307         '-1',
1308         undef,
1309     ],
1310     matc_w => [
1311         'matcherwin_width',
1312         $xl::s{l_win_w},
1313         $xl::s{h_win_w},
1314         'int,0,3000', # 0 pixels - 3000 pixels
1315         '0.0.0',
1316         '520',
1317         undef,
1318     ],
1319     matc_h => [
1320         'matcherwin_height',
1321         $xl::s{l_win_h},
1322         $xl::s{h_win_h},
1323         'int,0,3000', # 0 pixels - 3000 pixels
1324         '0.0.0',
1325         '-1',
1326         undef,
1327     ],
1328     pref_w => [
1329         'prefswin_width',
1330         $xl::s{l_win_w},
1331         $xl::s{h_win_w},
1332         'int,0,3000', # 0 pixels - 3000 pixels
1333         '0.0.0',
1334         '600',
1335         undef,
1336     ],
1337     pref_h => [
1338         'prefswin_height',
1339         $xl::s{l_win_h},
1340         $xl::s{h_win_h},
1341         'int,0,3000', # 0 pixels - 3000 pixels
1342         '0.0.0',
1343         '-1',
1344         undef,
1345     ],
1346     temp_w => [
1347         'templateswin_width',
1348         $xl::s{l_win_w},
1349         $xl::s{h_win_w},
1350         'int,0,3000', # 0 pixels - 3000 pixels
1351         '0.0.0',
1352         '480',
1353         undef,
1354     ],
1355     temp_h => [
1356         'templateswin_height',
1357         $xl::s{l_win_h},
1358         $xl::s{h_win_h},
1359         'int,0,3000', # 0 pixels - 3000 pixels
1360         '0.0.0',
1361         '-1',
1362         undef,
1363     ],
1364     acti_w => [
1365         'actionswin_width',
1366         $xl::s{l_win_w},
1367         $xl::s{h_win_w},
1368         'int,0,3000', # 0 pixels - 3000 pixels
1369         '0.0.0',
1370         '486',
1371         undef,
1372     ],
1373     acti_h => [
1374         'actionswin_height',
1375         $xl::s{l_win_h},
1376         $xl::s{h_win_h},
1377         'int,0,3000', # 0 pixels - 3000 pixels
1378         '0.0.0',
1379         '-1',
1380         undef,
1381     ],
1382     tags_w => [
1383         'tagswin_width',
1384         $xl::s{l_win_w},
1385         $xl::s{h_win_w},
1386         'int,0,3000', # 0 pixels - 3000 pixels
1387         '0.0.0',
1388         '486',
1389         undef,
1390     ],
1391     tags_h => [
1392         'tagswin_height',
1393         $xl::s{l_win_h},
1394         $xl::s{h_win_h},
1395         'int,0,3000', # 0 pixels - 3000 pixels
1396         '0.0.0',
1397         '-1',
1398         undef,
1399     ],
1400     plug_w => [
1401         'pluginswin_width',
1402         $xl::s{l_win_w},
1403         $xl::s{h_win_w},
1404         'int,0,3000', # 0 pixels - 3000 pixels
1405         '0.0.0',
1406         '-1',
1407         undef,
1408     ],
1409     plug_h => [
1410         'pluginswin_height',
1411         $xl::s{l_win_h},
1412         $xl::s{h_win_h},
1413         'int,0,3000', # 0 pixels - 3000 pixels
1414         '0.0.0',
1415         '-1',
1416         undef,
1417     ],
1418     logw_w => [
1419         'logwin_width',
1420         $xl::s{l_win_w},
1421         $xl::s{h_win_w},
1422         'int,0,3000', # 0 pixels - 3000 pixels
1423         '0.0.0',
1424         '520',
1425         undef,
1426     ],
1427     logw_h => [
1428         'logwin_height',
1429         $xl::s{l_win_h},
1430         $xl::s{h_win_h},
1431         'int,0,3000', # 0 pixels - 3000 pixels
1432         '0.0.0',
1433         '-1',
1434         undef,
1435     ],
1436     prin_w => [
1437         'print_previewwin_width',
1438         $xl::s{l_win_w},
1439         $xl::s{h_win_w},
1440         'int,0,3000', # 0 pixels - 3000 pixels
1441         '0.0.0',
1442         '600',
1443         undef,
1444     ],
1445     prin_h => [
1446         'print_previewwin_height',
1447         $xl::s{l_win_h},
1448         $xl::s{h_win_h},
1449         'int,0,3000', # 0 pixels - 3000 pixels
1450         '0.0.0',
1451         '-1',
1452         undef,
1453     ],
1454 );
1455
1456 sub new_winpos_subpage_main() {
1457     return &new_subpage_frame (
1458                &new_vbox_pack_compact (
1459                    &new_vbox_pack (
1460                        &new_text_box_for_int (\%pr::win, 'main_x'), 
1461                        &new_text_box_for_int (\%pr::win, 'main_y')), 
1462                    &new_hbox_pack (
1463                        &new_text_box_for_int (\%pr::win, 'main_w'), 
1464                        &new_text_box_for_int (\%pr::win, 'main_h')), 
1465                    &new_vbox_pack (
1466                        &new_check_button_for (\%pr::win, 'main_fs'), 
1467                        &new_check_button_for (\%pr::win, 'main_mx'))),
1468                _('Main window')
1469            );
1470 }
1471
1472 sub new_winpos_subpage_msgs() {
1473     return &new_subpage_frame (
1474                &new_vbox_pack_compact (
1475                    &new_vbox_pack (
1476                        &new_text_box_for_int (\%pr::win, 'msgs_x'),
1477                        &new_text_box_for_int (\%pr::win, 'msgs_y')),
1478                    &new_hbox_pack (
1479                        &new_text_box_for_int (\%pr::win, 'msgs_w'),
1480                        &new_text_box_for_int (\%pr::win, 'msgs_h'))),
1481                _('Message window')
1482            );
1483 }
1484
1485 sub new_winpos_subpage_sendrecv() {
1486     return &new_vbox_pack (
1487                &new_subpage_frame (
1488                    &new_hbox_pack (
1489                        &new_text_box_for_int (\%pr::win, 'send_w'),
1490                        &new_text_box_for_int (\%pr::win, 'send_h')),
1491                    _('Send window'), 'not-packed'),
1492                &new_subpage_frame (
1493                    &new_hbox_pack (
1494                        &new_text_box_for_int (\%pr::win, 'recv_w'),
1495                        &new_text_box_for_int (\%pr::win, 'recv_h')),
1496                    _('Receive window'), 'not-packed')
1497            );
1498 }
1499
1500 sub new_winpos_subpage_fold() {
1501     return &new_vbox_pack (
1502                &new_subpage_frame (
1503                    &new_vbox_pack_compact (
1504                        &new_vbox_pack (
1505                             &new_text_box_for_int (\%pr::win, 'fold_x'), 
1506                             &new_text_box_for_int (\%pr::win, 'fold_y')), 
1507                        &new_hbox_pack (
1508                            &new_text_box_for_int (\%pr::win, 'fold_w'), 
1509                            &new_text_box_for_int (\%pr::win, 'fold_h'))),
1510                    _('Folder window'), 'not-packed'),
1511                &new_subpage_frame (
1512                    &new_hbox_pack (
1513                        &new_text_box_for_int (\%pr::win, 'fsel_w'),
1514                        &new_text_box_for_int (\%pr::win, 'fsel_h')),
1515                    _('Folder selection window'), 'not-packed')
1516            );
1517 }
1518
1519 sub new_winpos_subpage_addrbook() {
1520     return &new_vbox_pack (
1521                 &new_subpage_frame (
1522                      &new_hbox_pack (
1523                           &new_text_box_for_int (\%pr::win, 'addr_w'),
1524                           &new_text_box_for_int (\%pr::win, 'addr_h')),
1525                      _('Addressbook main window'), 'not-packed'),
1526                 &new_subpage_frame (
1527                      &new_hbox_pack (
1528                           &new_text_box_for_int (\%pr::win, 'adep_w'),
1529                           &new_text_box_for_int (\%pr::win, 'adep_h')),
1530                      _('Edit person window'), 'not-packed'),
1531                 &new_subpage_frame (
1532                      &new_hbox_pack (
1533                           &new_text_box_for_int (\%pr::win, 'adeg_w'),
1534                           &new_text_box_for_int (\%pr::win, 'adeg_h')),
1535                      _('Edit group window'), 'not-packed'),
1536                 &new_subpage_frame (
1537                      &new_hbox_pack (
1538                           &new_text_box_for_int (\%pr::win, 'adda_w'),
1539                           &new_text_box_for_int (\%pr::win, 'adda_h')),
1540                      _('Add address window'), 'not-packed'),
1541                 &new_subpage_frame (
1542                      &new_hbox_pack (
1543                           &new_text_box_for_int (\%pr::win, 'addf_w'),
1544                           &new_text_box_for_int (\%pr::win, 'addf_h')),
1545                      _('Folder select window'), 'not-packed')
1546            );
1547 }
1548
1549 sub new_winpos_subpage_accounts() {
1550     return &new_vbox_pack (
1551                 &new_subpage_frame (
1552                      &new_hbox_pack (
1553                           &new_text_box_for_int (\%pr::win, 'acco_w'),
1554                           &new_text_box_for_int (\%pr::win, 'acco_h')),
1555                      _('Accounts window'), 'not-packed'),
1556                 &new_subpage_frame (
1557                      &new_hbox_pack (
1558                           &new_text_box_for_int (\%pr::win, 'acce_w'),
1559                           &new_text_box_for_int (\%pr::win, 'acce_h')),
1560                      _('Edit account window'), 'not-packed')
1561            );
1562 }
1563
1564 sub new_winpos_subpage_filtering() {
1565     return &new_vbox_pack (
1566                 &new_subpage_frame (
1567                      &new_hbox_pack (
1568                           &new_text_box_for_int (\%pr::win, 'filt_w'),
1569                           &new_text_box_for_int (\%pr::win, 'filt_h')),
1570                      _('Filtering window'), 'not-packed'),
1571                 &new_subpage_frame (
1572                      &new_hbox_pack (
1573                           &new_text_box_for_int (\%pr::win, 'fila_w'),
1574                           &new_text_box_for_int (\%pr::win, 'fila_h')),
1575                      _('Filtering actions window'), 'not-packed'),
1576                 &new_subpage_frame (
1577                      &new_hbox_pack (
1578                           &new_text_box_for_int (\%pr::win, 'fild_w'),
1579                           &new_text_box_for_int (\%pr::win, 'fild_h')),
1580                      _('Filtering debug window'), 'not-packed'),
1581                 &new_subpage_frame (
1582                      &new_hbox_pack (
1583                           &new_text_box_for_int (\%pr::win, 'matc_w'),
1584                           &new_text_box_for_int (\%pr::win, 'matc_h')),
1585                      _('Matcher window'), 'not-packed')
1586            );
1587 }
1588
1589 sub new_winpos_subpage_prefs() {
1590     return &new_vbox_pack (
1591                 &new_subpage_frame (
1592                      &new_hbox_pack (
1593                           &new_text_box_for_int (\%pr::win, 'pref_w'),
1594                           &new_text_box_for_int (\%pr::win, 'pref_h')),
1595                      _('Preferences window'), 'not-packed'),
1596                 &new_subpage_frame (
1597                      &new_hbox_pack (
1598                           &new_text_box_for_int (\%pr::win, 'temp_w'),
1599                           &new_text_box_for_int (\%pr::win, 'temp_h')),
1600                      _('Templates window'), 'not-packed'),
1601                 &new_subpage_frame (
1602                      &new_hbox_pack (
1603                           &new_text_box_for_int (\%pr::win, 'acti_w'),
1604                           &new_text_box_for_int (\%pr::win, 'acti_h')),
1605                      _('Actions window'), 'not-packed'),
1606                 &new_subpage_frame (
1607                      &new_hbox_pack (
1608                           &new_text_box_for_int (\%pr::win, 'tags_w'),
1609                           &new_text_box_for_int (\%pr::win, 'tags_h')),
1610                      _('Tags window'), 'not-packed'),
1611                 &new_subpage_frame (
1612                      &new_hbox_pack (
1613                           &new_text_box_for_int (\%pr::win, 'plug_w'),
1614                           &new_text_box_for_int (\%pr::win, 'plug_h')),
1615                      _('Plugins window'), 'not-packed')
1616            );
1617 }
1618
1619 sub new_winpos_subpage_misc() {
1620     return &new_vbox_pack (
1621                 &new_subpage_frame (
1622                      &new_hbox_pack (
1623                           &new_text_box_for_int (\%pr::win, 'logw_w'),
1624                           &new_text_box_for_int (\%pr::win, 'logw_h')),
1625                      _('Log window'), 'not-packed'),
1626                 &new_subpage_frame (
1627                      &new_hbox_pack (
1628                           &new_text_box_for_int (\%pr::win, 'prin_w'),
1629                           &new_text_box_for_int (\%pr::win, 'prin_h')),
1630                      _('Print preview window'), 'not-packed'),
1631                 &new_subpage_frame (
1632                      &new_hbox_pack (
1633                           &new_text_box_for_int (\%pr::win, 'sour_w'),
1634                           &new_text_box_for_int (\%pr::win, 'sour_h')),
1635                      _('View source window'), 'not-packed')
1636            );
1637 }
1638
1639 sub new_winpos_page() {
1640     my $winbook = Gtk2::Notebook->new;
1641     $winbook->set_tab_pos ('right');
1642     $winbook->append_page (&new_winpos_subpage_main, _('Main'));
1643     $winbook->append_page (&new_winpos_subpage_msgs, _('Message'));
1644     $winbook->append_page (&new_winpos_subpage_sendrecv, _('Send/Receive'));
1645     $winbook->append_page (&new_winpos_subpage_fold, _('Folder'));
1646     $winbook->append_page (&new_winpos_subpage_addrbook, _('Addressbook'));
1647     $winbook->append_page (&new_winpos_subpage_accounts, _('Accounts'));
1648     $winbook->append_page (&new_winpos_subpage_filtering, _('Filtering'));
1649     $winbook->append_page (&new_winpos_subpage_prefs, _('Preferences'));
1650     $winbook->append_page (&new_winpos_subpage_misc, _('Other'));
1651     return $winbook;
1652 }
1653
1654 # version info
1655 sub print_version() {
1656     print $xl::s{about_title} . "\n";
1657     print $xl::s{about_version} . " $VERSION\n";
1658     print "Perl-GLib " . $Glib::VERSION;
1659     # version info stuff appeared in 1.040
1660     if ($Glib::VERSION >= 1.040) {
1661         print _(", built for ") . join(".", Glib->GET_VERSION_INFO) 
1662               . _(", running with ") . join(".", &Glib::major_version, 
1663                   &Glib::minor_version, &Glib::micro_version);
1664     }
1665     print "\n";
1666     print "Perl-GTK2 " . $Gtk2::VERSION;
1667     if ($Gtk2::VERSION >= 1.040) {
1668         print _(", built for ") . join(".", Gtk2->GET_VERSION_INFO)
1669               . _(", running with ") . join(".", &Gtk2::major_version, 
1670                   &Gtk2::minor_version, &Gtk2::micro_version);
1671     }
1672     print "\n";
1673     my $clawsver = ($CLAWSV eq "") ? 
1674                 _("was not found!") : 
1675                 (_("returned version ") . $CLAWSV);
1676     print "Claws Mail " . $clawsver . "\n";
1677 }
1678
1679 # the command line help
1680 sub print_help() {
1681     my $line = '-' x length ($xl::s{about_title}) . "\n";
1682     print $line;
1683     print $xl::s{about_title} . "\n";
1684     print $line;
1685     print _("Syntax:\n");
1686     print _("    clawsker [options]\n");
1687     print _("Options:\n");
1688     print _("    --help                         Prints this help screen.\n");
1689     print _("    --version                      Prints version infos.\n");
1690     print _("    --verbose                      More messages on standard output.\n");
1691     print _("    --alternate-config-dir <dir>   Uses <dir> as Claws Mail config dir.\n");
1692     print _("    --clawsrc <file>               Uses <file> as full resource name.\n");
1693 }
1694
1695 # handle errors which don't allow to run
1696 sub command_line_fatal() {
1697     my $reason = shift;
1698     my $emsg = $xl::s{e_error} . $reason;
1699     error_dialog ($emsg);
1700     log_message ("$emsg", 'die');
1701 }
1702
1703 # parse the command line
1704 sub parse_command_line() {
1705     $CLAWSV = &get_claws_version;
1706     my $arg = 0;
1707     while (defined($ARGV[$arg])) {
1708         for ($ARGV[$arg]) {
1709             /--help/ && do { 
1710                 &print_help; 
1711                 return FALSE;
1712             };
1713             /--version/ && do { 
1714                 &print_version; 
1715                 return FALSE;
1716             };
1717             /--verbose/ && do {
1718                 $VERBOSE = TRUE;
1719                 last;
1720             };
1721             /--use-claws-version/ && do {
1722                 ++$arg;
1723                 &command_line_fatal ("required version")
1724                     unless defined($ARGV[$arg]);
1725                 &command_line_fatal ("required a dotted numeric value")
1726                     unless ($ARGV[$arg] =~ /[\d\.]+/);
1727                 $CLAWSV = $ARGV[$arg];
1728                 last;
1729             };
1730             /--alternate-config-dir/ && do {
1731                 ++$arg;
1732                 &command_line_fatal ($xl::s{e_requireddir})
1733                     unless defined($ARGV[$arg]);
1734                 &command_line_fatal ($xl::s{e_notadir})
1735                     unless -d $ARGV[$arg];
1736                 $CONFIGDIR = $ARGV[$arg];
1737                 $CONFIGDIR .= "/" 
1738                     unless ($CONFIGDIR =~ /.*\/$/);
1739                 $ALTCONFIGDIR = TRUE;
1740                 last;
1741             };
1742             /--clawsrc/ && do {
1743                 ++$arg;
1744                 &command_line_fatal($xl::s{e_requiredfile}) 
1745                     unless defined($ARGV[$arg]);
1746                 &command_line_fatal($xl::s{e_notafile}) 
1747                     unless -f $ARGV[$arg];
1748                 &set_rc_filename ($ARGV[$arg]);
1749                 last;
1750             };
1751             /.*/ && &command_line_fatal (
1752                         _("unknown option '{opt}'.\n", opt => $ARGV[$arg]));
1753         }
1754         ++$arg;
1755     }
1756     # eveything continues...
1757     return TRUE;
1758 }
1759
1760 # update the hidden preferences status from loaded values
1761 sub init_hidden_preferences() {
1762     foreach my $hash (\%pr::beh, \%pr::col, \%pr::gui, \%pr::oth, \%pr::win) {
1763         foreach my $key (keys %$hash) { 
1764             $HPVALUE{${$hash}{$key}[NAME]} = $PREFS{${$hash}{$key}[NAME]};
1765         }
1766     }
1767     return TRUE;
1768 }
1769
1770 # load current status from disc
1771 sub load_preferences() {
1772     my $rc = &get_rc_filename;
1773     &log_message ("Loading preferences from $rc\n");
1774     return FALSE unless &check_rc_file ($rc);
1775     return FALSE unless &check_claws_not_running;
1776     open (RCF, "<$rc");
1777     while (<RCF>) {
1778         chomp;
1779         if (/^([8a-z_]+)=(.*)$/) {
1780             $PREFS{$1} = "$2";
1781         }
1782     }
1783     close (RCF);
1784     return TRUE;
1785 }
1786
1787 # save current preferences to disc
1788 sub save_preferences() {
1789     my $rc = &get_rc_filename;
1790     &log_message ("Saving preferences to $rc\n");
1791     return FALSE unless &check_rc_file ($rc);
1792     return FALSE unless &check_claws_not_running;
1793     my $rcbak = "$rc.backup";
1794     rename ($rc, $rcbak);
1795     open (RCF, ">$rc");
1796     open (RCB, "<$rcbak");
1797     while (<RCB>) {
1798         chomp;
1799         if (/^([8a-z_]+)=(.*)$/) {
1800             if (defined($HPVALUE{$1})) {
1801                 print RCF $1 . "=" . $HPVALUE{$1} . "\n";
1802             }
1803             else {
1804                 print RCF $_ . "\n";
1805             }
1806         }
1807         else {
1808             print RCF $_ . "\n";
1809         }
1810     }
1811     close (RCB);
1812     close (RCF);
1813     return TRUE;
1814 }
1815
1816 # create notebook
1817 sub new_notebook() {
1818     my $nb = Gtk2::Notebook->new;
1819     # 
1820     $nb->append_page (&new_behaviour_page, $xl::s{tab_behaviour});
1821     $nb->append_page (&new_colours_page, $xl::s{tab_colours});
1822     $nb->append_page (&new_gui_page, $xl::s{tab_gui});
1823     $nb->append_page (&new_other_page, $xl::s{tab_other});
1824     $nb->append_page (&new_winpos_page, $xl::s{tab_winpos});
1825
1826     return $nb;
1827 }
1828
1829 # create an about dialog
1830 sub new_about_dialog() {
1831     my ($parent) = @_;
1832     my $title = $xl::s{about_title};
1833     my $lic = $xl::s{about_license};
1834     my $vers = $xl::s{about_version} . " $VERSION";
1835     my $license = 
1836 "This program is free software: you can redistribute it and/or modify
1837 it under the terms of the GNU General Public License as published by
1838 the Free Software Foundation, either version 3 of the License, or
1839 (at your option) any later version.
1840
1841 This program is distributed in the hope that it will be useful,
1842 but WITHOUT ANY WARRANTY; without even the implied warranty of
1843 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
1844 GNU General Public License for more details.
1845
1846 You should have received a copy of the GNU General Public License
1847 along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.";
1848     my $year = "2007-2010";
1849     my $holder = "Ricardo Mones &lt;ricardo\@mones.org&gt;";
1850     my $url = "http://www.claws-mail.org/clawsker";
1851
1852     my $dialog = Gtk2::MessageDialog->new_with_markup ($parent, 
1853                     [qw/modal destroy-with-parent/], 
1854                     'info', 'close', 
1855                     "<span size=\"x-large\" weight=\"bold\">$title</span>\n"
1856                     . "<span size=\"large\">$vers</span>\n\n"
1857                     . "<span color=\"blue\" size=\"large\">$url</span>\n\n"
1858                     . "<span>Copyright $year by $holder</span>\n\n"
1859                     . "<span size=\"large\">$lic</span>\n\n"
1860                     . "<span size=\"small\">$license</span>");
1861     $dialog->set_title ($xl::s{about});
1862     #
1863     return $dialog;
1864 }
1865
1866 # create buttons box
1867 sub new_button_box() {
1868     my ($parent, $adlg) = @_;
1869     my $b_about = Gtk2::Button->new_from_stock ('gtk-about');
1870     my $b_exit = Gtk2::Button->new_from_stock ('gtk-quit');
1871     my $b_apply = Gtk2::Button->new_from_stock ('gtk-apply');
1872     # disable button until is really implemented
1873     # my $b_undo = Gtk2::Button->new_from_stock ('gtk-undo');
1874     my $hbox = Gtk2::HBox->new (FALSE, 5);
1875     # signal handlers 
1876     $b_exit->signal_connect (clicked => sub { Gtk2->main_quit });
1877     $b_apply->signal_connect (clicked => sub { &save_preferences ($parent) });
1878     # $b_undo->signal_connect (clicked => sub { &undo_current_changes });
1879     $b_about->signal_connect (clicked => sub { $adlg->run; $adlg->hide });
1880     # package them
1881     $hbox->pack_end ($b_apply, FALSE, FALSE, 0);
1882     $hbox->pack_end ($b_exit, FALSE, FALSE, 0);
1883     # $hbox->pack_end ($b_undo, FALSE, FALSE, 0);
1884     $hbox->pack_start ($b_about, FALSE, FALSE, 0);
1885     #
1886     return $hbox;
1887 }
1888
1889 # initialise
1890 $main_window = Gtk2::Window->new ('toplevel');
1891 exit unless &parse_command_line;
1892 exit unless &load_preferences;
1893 exit unless &init_hidden_preferences;
1894 # create main GUI
1895 my $box = Gtk2::VBox->new (FALSE, 5);
1896 $box->set_border_width(3);
1897 my $about = &new_about_dialog;
1898 $box->pack_start (&new_notebook, FALSE, FALSE, 0);
1899 $box->pack_end (&new_button_box ($main_window, $about), FALSE, FALSE, 0);
1900 $main_window->signal_connect (delete_event => sub { Gtk2->main_quit });
1901 $main_window->set_title ($xl::s{win_title});
1902 $main_window->add ($box);
1903 $main_window->show_all;
1904 Gtk2->main;
1905