new Swedish translation thanks to Andreas Rönnquist
[clawsker.git] / clawsker
index ae9913e32010cbb0245752dd20092abc5991a2a8..0cf6f95380866f43513bb9623749c8eb8e29954a 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -1,7 +1,6 @@
 #!/usr/bin/perl -w
 #
 # Clawsker :: A Claws Mail Tweaker
-# $Id$
 #
 use strict;
 use encoding 'utf8';
@@ -55,7 +54,7 @@ sub _ {
 
     ab_frame => _('Addressbook'),
     mem_frame => _('Memory'),
-    msgview_frame => _('Message view'),
+    msgview_frame => _('Message View'),
     log_frame => _('Log window'),
     dnd_frame => _('Drag \'n\' drop'),
     ssl_frame => _('Secure Sockets Layer'),
@@ -63,6 +62,8 @@ sub _ {
     stripes_frame => _('Coloured stripes'),
     sbar_frame => _('Scroll bars'),
     mlist_frame => _('Message List'),
+    mview_frame => _('Message View'),
+    compo_frame => _('Compose window'),
     netm_frame => _('NetworkManager'),
 
     l_oth_use_dlg => _('Use detached address book edit dialogue'),
@@ -89,18 +90,27 @@ sub _ {
     l_gui_v_scroll_show => _('Show always'),
     l_gui_v_scroll_auto => _('Automatic'),
     l_gui_v_scroll_hide => _('Hide always'),
+    l_gui_from_show => _('From column displays'),
+    h_gui_from_show => _('Selects the data displayed in the From column of the Message List: name, address or both'),
+    l_gui_from_show_name => _('Name only'),
+    l_gui_from_show_addr => _('Address only'),
+    l_gui_from_show_both => _('Both name and address'),
     l_gui_strip_off => _('Coloured lines contrast'),
     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.'),
-    l_gui_cursor_v => _('Show Cursor in message view'),
-    h_gui_cursor_v => _('Display the cursor in the message view.'),
+    l_gui_cursor_v => _('Show cursor'),
+    h_gui_cursor_v => _('Display the cursor in the Message View.'),
     l_gui_toolbar_d => _('Detachable toolbars'),
     h_gui_toolbar_d => _('Show handles in the toolbars.'),
     l_gui_strip_all => _('Use stripes in all tree view components'),
     h_gui_strip_all => _('Enable alternately coloured lines in all tree view components.'),
     l_gui_strip_sum => _('Use stripes in Folder List and Message List'),
-    h_gui_strip_sum => _('Enable alternately coloured lines in Message list and Folder list.'),
+    h_gui_strip_sum => _('Enable alternately coloured lines in Message List and Folder List.'),
     l_gui_two_line_v => _('2 lines per Message List item in 3-column layout'),
     h_gui_two_line_v => _('Spread Message List information over two lines when using the three column mode.'),
+    l_gui_margin_co => _('Show compose margin'),
+    h_gui_margin_co => _('Shows a small margin in the Compose View.'),
+    l_gui_mview_date => _('Don\'t display localized date'),
+    h_gui_mview_date => _('Toggles localization of date format in Message View'),
 
     l_beh_hover_t => _('Drag \'n\' drop hover timeout (ms)'),
     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.'),
@@ -122,10 +132,12 @@ sub _ {
     h_beh_use_utf8 => _('Use UTF-8 encoding for broken mails instead of current locale.'),
     l_beh_warn_dnd => _('Warn on drag \'n\' drop'),
     h_beh_warn_dnd => _('Display a confirmation dialogue on drag \'n\' drop of folders.'),
-    l_beh_out_ascii => _('Ougoing messages fallback to ASCII'),
+    l_beh_out_ascii => _('Outgoing messages fallback to ASCII'),
     h_beh_out_ascii => _('If content allows, ASCII will be used to encode outgoing messages, otherwise the user-defined encoding is enforced always.'),
     l_beh_pp_unsel => _('Primary paste unselects selection'),
     h_beh_pp_unsel => _('Controls how pasting using middle-click changes the selected text and insertion point.'),
+    l_beh_inline_at => _('Show inline attachments'),
+    h_beh_inline_at => _('Allows hiding inline attachments already shown in mail structure view'),
 
     l_col_emphasis => _('X-Mailer header'),
     h_col_emphasis => _('The colour used for the X-Mailer line when its value is Claws Mail.'),
@@ -394,6 +406,7 @@ sub new_text_box_for_int {
     my $pagei = int (($type[2] - $type[1]) / 10);
     my $gentry = Gtk2::SpinButton->new_with_range ($type[1], $type[2], $pagei);
     $gentry->set_numeric (TRUE);
+    $gentry->set_value ($HPVALUE{$name});
     $$hash{$key}[GUI] = $gentry;
     $gentry->signal_connect('value-changed' => sub {
             my ($w, $e) = @_;
@@ -612,11 +625,20 @@ sub new_other_page() {
         '0',
         undef,
     ],
+    from_show => [
+        'summary_from_show',
+        $xl::s{l_gui_from_show},
+        $xl::s{h_gui_from_show},
+        '0=l_gui_from_show_name;1=l_gui_from_show_addr;2=l_gui_from_show_both',
+        '3.7.10',
+        '0',
+        undef,
+    ],
     strip_off => [
         'stripes_color_offset',
         $xl::s{l_gui_strip_off},
         $xl::s{h_gui_strip_off},
-        'int,0,10000', # no idea what this number means
+        'int,0,40000', # no idea what this number means
         '0.0.0',
         '4000',
         undef,
@@ -666,17 +688,32 @@ sub new_other_page() {
         '0',
         undef,
     ],
+    margin_co => [
+        'show_compose_margin',
+        $xl::s{l_gui_margin_co},
+        $xl::s{h_gui_margin_co},
+        'bool',
+        '3.7.6.7',
+        '0',
+        undef,
+    ],
+    mview_date => [
+        'msgview_date_format',
+        $xl::s{l_gui_mview_date},
+        $xl::s{h_gui_mview_date},
+        'bool',
+        '3.7.8.42',
+        '0',
+        undef,
+    ],
 );
 
 sub new_gui_page() {
     my $gf = Gtk2::VBox->new (FALSE, 5);
     $gf->set_border_width (PAGE_SPC);
 
-    my $cb_no_markup = &new_check_button_for (\%pr::gui, 'no_markup'); 
     my $cb_dot_lines = &new_check_button_for (\%pr::gui, 'dot_lines'); 
-    my $cb_cursor_v = &new_check_button_for (\%pr::gui, 'cursor_v');
     my $cb_toolbar_d = &new_check_button_for (\%pr::gui, 'toolbar_d');
-    my $cb_two_linev = &new_check_button_for (\%pr::gui, 'two_linev');
 
     $gf->pack_start (&new_subpage_frame (
                          &new_vbox_pack (
@@ -688,14 +725,25 @@ sub new_gui_page() {
     $gf->pack_start (&new_subpage_frame (
                          &new_vbox_pack (
                              &new_check_button_for (\%pr::gui, 'b_unread'),
-                             &new_check_button_for (\%pr::gui, 'swp_from')),
+                             &new_check_button_for (\%pr::gui, 'swp_from'),
+                             &new_check_button_for (\%pr::gui, 'two_linev'),
+                             &new_selection_box_for (\%pr::gui, 'from_show')),
                          $xl::s{mlist_frame}, 'not-packed'), 
                      FALSE, FALSE, FRAME_SPC);
-    $gf->pack_start ($cb_no_markup, FALSE, FALSE, 0);
+    $gf->pack_start (&new_subpage_frame (
+                         &new_hbox_pack (
+                             &new_check_button_for (\%pr::gui, 'cursor_v'),
+                             &new_check_button_for (\%pr::gui, 'mview_date')),
+                         $xl::s{mview_frame}, 'not-packed'), 
+                     FALSE, FALSE, FRAME_SPC);
+    $gf->pack_start (&new_subpage_frame (
+                         &new_hbox_pack (
+                             &new_check_button_for (\%pr::gui, 'no_markup'),
+                             &new_check_button_for (\%pr::gui, 'margin_co')),
+                         $xl::s{compo_frame}, 'not-packed'), 
+                     FALSE, FALSE, FRAME_SPC);
     $gf->pack_start ($cb_dot_lines, FALSE, FALSE, 0);
-    $gf->pack_start ($cb_cursor_v, FALSE, FALSE, 0);
     $gf->pack_start ($cb_toolbar_d, FALSE, FALSE, 0);
-    $gf->pack_start ($cb_two_linev, FALSE, FALSE, 0);
     $gf->pack_start (&new_subpage_frame (
                          &new_vbox_pack (
                              &new_check_button_for (\%pr::gui, 'h_scroll'),
@@ -815,6 +863,15 @@ sub new_gui_page() {
         '0',
         undef,
     ],
+    inline_at => [
+        'show_inline_attachments',
+        $xl::s{l_beh_inline_at},
+        $xl::s{h_beh_inline_at},
+        'bool',
+        '3.7.8.48',
+        '1',
+        undef,
+    ],
 );
 
 sub new_behaviour_page() {
@@ -845,7 +902,8 @@ sub new_behaviour_page() {
                              &new_check_button_for (\%pr::beh, 'use_utf8'),
                              &new_check_button_for (\%pr::beh, 'dangerous'),
                              &new_check_button_for (\%pr::beh, 'out_ascii'),
-                             &new_check_button_for (\%pr::beh, 'pp_unsel')),
+                             &new_check_button_for (\%pr::beh, 'pp_unsel'),
+                             &new_check_button_for (\%pr::beh, 'inline_at')),
                          $xl::s{msgs_frame}, 'not-packed'),
                      FALSE, FALSE, FRAME_SPC);
 
@@ -1843,7 +1901,7 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program.  If not, see <http://www.gnu.org/licenses/>.";
-    my $year = "2007-2010";
+    my $year = "2007-2011";
     my $holder = "Ricardo Mones <ricardo\@mones.org>";
     my $url = "http://www.claws-mail.org/clawsker";