/*
- * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
- * Copyright (C) 1999-2006 Hiroyuki Yamamoto and the Claws Mail team
- * This file (C) 2004 Colin Leroy
+ * Claws Mail -- a GTK+ based, lightweight, and fast e-mail client
+ * Copyright (C) 1999-2007 Colin Leroy <colin@colino.net>
+ * and the Claws Mail team
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
GtkWidget *recv_password_label;
GtkWidget *recv_imap_label;
GtkWidget *recv_imap_subdir;
+ GtkWidget *subsonly_checkbtn;
GtkWidget *no_imap_warning;
#ifdef USE_OPENSSL
GtkWidget *smtp_use_ssl;
gchar *recvuser;
gchar *recvpass;
gchar *imapdir;
+ gboolean subsonly;
gchar *mboxfile;
gchar *mailbox;
gboolean smtpssl;
&tmpl.recvpass, P_STRING, NULL, NULL, NULL},
{"imapdir", "",
&tmpl.imapdir, P_STRING, NULL, NULL, NULL},
+ {"subsonly", "TRUE",
+ &tmpl.subsonly, P_BOOL, NULL, NULL, NULL},
{"mboxfile", "/var/mail/$LOGIN",
&tmpl.mboxfile, P_STRING, NULL, NULL, NULL},
{"mailbox", "Mail",
"#default is empty\n"
"#recvpass=\n"
"\n"
- "#imap dir if imap (relative to the home on the server\n"
+ "#imap dir if imap (relative to the home on the server)\n"
"#default is empty\n"
"#imapdir=\n"
"\n"
+ "#show subscribed folders only, if imap\n"
+ "#default is TRUE\n"
+ "#subsonly=\n"
+ "\n"
"#mbox file if local\n"
"#you can use $LOGIN here\n"
"#default is /var/mail/$LOGIN\n"
gtk_entry_get_text(GTK_ENTRY(wizard->organization)));
prefs_account->smtp_server = g_strdup(smtp_server);
+ prefs_account->inbox = g_strdup_printf("#mh/%s/inbox",
+ g_path_get_basename(gtk_entry_get_text(GTK_ENTRY(wizard->mailbox_name))));
+ prefs_account->local_inbox = g_strdup(prefs_account->inbox);
+
if (prefs_account->protocol != A_LOCAL)
prefs_account->recv_server = g_strdup(recv_server);
else
if (directory && strlen(directory)) {
prefs_account->imap_dir = g_strdup(directory);
}
+ prefs_account->imap_subsonly =
+ gtk_toggle_button_get_active(
+ GTK_TOGGLE_BUTTON(wizard->subsonly_checkbtn));
g_free(directory);
}
{
GtkWidget *table = gtk_table_new(1,2, FALSE);
gint i = 0;
-
+ GtkTooltips *tips = gtk_tooltips_new();
+
gtk_table_set_row_spacings(GTK_TABLE(table), 4);
gtk_table_set_col_spacings(GTK_TABLE(table), 8);
wizard->mailbox_name = gtk_entry_new();
gtk_entry_set_text(GTK_ENTRY(wizard->mailbox_name), tmpl.mailbox?tmpl.mailbox:"");
+
+ gtk_tooltips_set_tip(GTK_TOOLTIPS(tips), wizard->mailbox_name,
+ _("You can also specify an absolute path, for example: "
+ "\"/home/john/Documents/Mail\""),
+ NULL);
+
GTK_TABLE_ADD_ROW_AT(table, _("<span weight=\"bold\">Mailbox name:</span>"),
wizard->mailbox_name, i); i++;
gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
gtk_widget_hide(wizard->recv_imap_label);
gtk_widget_hide(wizard->recv_imap_subdir);
+ gtk_widget_hide(wizard->subsonly_checkbtn);
gtk_widget_show(wizard->recv_username);
gtk_widget_show(wizard->recv_password);
gtk_widget_show(wizard->recv_username_label);
gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
gtk_widget_show(wizard->recv_imap_label);
gtk_widget_show(wizard->recv_imap_subdir);
+ gtk_widget_show(wizard->subsonly_checkbtn);
gtk_widget_show(wizard->recv_username);
gtk_widget_show(wizard->recv_password);
gtk_widget_show(wizard->recv_username_label);
#else
gtk_widget_hide(wizard->recv_imap_label);
gtk_widget_hide(wizard->recv_imap_subdir);
+ gtk_widget_hide(wizard->subsonly_checkbtn);
gtk_widget_hide(wizard->recv_username);
gtk_widget_hide(wizard->recv_password);
gtk_widget_hide(wizard->recv_username_label);
gtk_widget_hide(wizard->no_imap_warning);
gtk_widget_hide(wizard->recv_imap_label);
gtk_widget_hide(wizard->recv_imap_subdir);
+ gtk_widget_hide(wizard->subsonly_checkbtn);
gtk_widget_hide(wizard->recv_username);
gtk_widget_hide(wizard->recv_password);
gtk_widget_hide(wizard->recv_username_label);
static GtkWidget* recv_page (WizardWindow * wizard)
{
#ifdef USE_OPENSSL
- GtkWidget *table = gtk_table_new(7,2, FALSE);
+ GtkWidget *table = gtk_table_new(8,2, FALSE);
#else
- GtkWidget *table = gtk_table_new(5,2, FALSE);
+ GtkWidget *table = gtk_table_new(6,2, FALSE);
#endif
GtkWidget *menu = gtk_menu_new();
GtkWidget *menuitem;
i++;
+ wizard->subsonly_checkbtn = gtk_check_button_new_with_label(
+ _("Show only subscribed folders"));
+ gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(wizard->subsonly_checkbtn),
+ tmpl.subsonly);
+ gtk_table_attach(GTK_TABLE(table), wizard->subsonly_checkbtn,
+ 0,1,i,i+1, GTK_EXPAND|GTK_FILL, 0, 0, 0);
+
+ i++;
+
+
wizard->no_imap_warning = gtk_label_new(_(
"<span weight=\"bold\">Warning: this version of Claws Mail\n"
"has been built without IMAP support.</span>"));
gtk_widget_hide(wizard->recv_imap_label);
gtk_widget_hide(wizard->recv_imap_subdir);
+ gtk_widget_hide(wizard->subsonly_checkbtn);
wizard_protocol_change(wizard, tmpl.recvtype);