From 391b62599222f023593b51c10fc0aec26a535f57 Mon Sep 17 00:00:00 2001 From: Jeffrey Stedfast Date: Sat, 13 Jan 2001 07:27:01 +0000 Subject: Fixed mail_load_storages to make a mini GSList of the account, not the 2001-01-13 Jeffrey Stedfast * mail-config-druid.c (druid_finish): Fixed mail_load_storages to make a mini GSList of the account, not the account->source. Oops. * mail-accounts.c (news_delete): Updated to use the remove_news() function. * mail-config.c (mail_config_remove_news): New convenience function for removing news accounts. (mail_config_remove_account): Pretty much the same thing. * mail-ops.c (do_send_queue): Get the X-Evolution-Transport URL and use that if it exists, else fall back on the default transport. * mail-callbacks.c (composer_postpone_cb): Set an X-Evolution-Transport header. svn path=/trunk/; revision=7477 --- mail/mail-config.c | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'mail/mail-config.c') diff --git a/mail/mail-config.c b/mail/mail-config.c index 55862acc09..04d59f7f17 100644 --- a/mail/mail-config.c +++ b/mail/mail-config.c @@ -576,6 +576,15 @@ mail_config_add_account (MailConfigAccount *account) config->accounts = g_slist_append (config->accounts, account); } +const GSList * +mail_config_remove_account (MailConfigAccount *account) +{ + config->accounts = g_slist_remove (config->accounts, account); + account_destroy (account); + + return config->accounts; +} + void mail_config_set_default_account (const MailConfigAccount *account) { @@ -637,6 +646,15 @@ mail_config_add_news (MailConfigService *news) config->news = g_slist_append (config->news, news); } +const GSList * +mail_config_remove_news (MailConfigService *news) +{ + config->news = g_slist_remove (config->news, news); + service_destroy (news); + + return config->news; +} + GSList * mail_config_get_sources (void) { -- cgit v1.2.3