aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPeter Williams <peterw@ximian.com>2001-08-14 02:46:00 +0800
committerPeter Williams <peterw@src.gnome.org>2001-08-14 02:46:00 +0800
commitd1b8ed3f75ddbf73aabd2184c7f24c4d16977af5 (patch)
tree660f226ed8a049463446c133e997c66506264c4a
parentda4e562c5eaaac889101e781954ca42212c87b42 (diff)
downloadgsoc2013-evolution-d1b8ed3f75ddbf73aabd2184c7f24c4d16977af5.tar.gz
gsoc2013-evolution-d1b8ed3f75ddbf73aabd2184c7f24c4d16977af5.tar.zst
gsoc2013-evolution-d1b8ed3f75ddbf73aabd2184c7f24c4d16977af5.zip
Remove the shortcuts corresponding to an account (they all point to
2001-08-13 Peter Williams <peterw@ximian.com> * mail-config.c (remove_account_shortcuts): Remove the shortcuts corresponding to an account (they all point to evolution:/accountname/..) (mail_config_remove_account): When deleting the account, remove its shortcuts. svn path=/trunk/; revision=11948
-rw-r--r--mail/ChangeLog8
-rw-r--r--mail/mail-config.c56
2 files changed, 64 insertions, 0 deletions
diff --git a/mail/ChangeLog b/mail/ChangeLog
index b45ee4efbe..09d6813499 100644
--- a/mail/ChangeLog
+++ b/mail/ChangeLog
@@ -1,3 +1,11 @@
+2001-08-13 Peter Williams <peterw@ximian.com>
+
+ * mail-config.c (remove_account_shortcuts): Remove the shortcuts
+ corresponding to an account (they all point to
+ evolution:/accountname/..)
+ (mail_config_remove_account): When deleting the account, remove
+ its shortcuts.
+
2001-08-10 Peter Williams <peterw@ximian.com>
* mail-config-druid.c (druid_finish): Whoa, fatal typo. Sorry.
diff --git a/mail/mail-config.c b/mail/mail-config.c
index e65317edca..5f2d7f1ab1 100644
--- a/mail/mail-config.c
+++ b/mail/mail-config.c
@@ -42,6 +42,8 @@
#include <bonobo/bonobo-exception.h>
#include <bonobo-conf/bonobo-config-database.h>
+#include <shell/evolution-shell-client.h>
+
#include <gal/util/e-util.h>
#include <gal/unicode/gunicode.h>
#include <e-util/e-html-utils.h>
@@ -1407,6 +1409,59 @@ mail_config_add_account (MailConfigAccount *account)
config->accounts = g_slist_append (config->accounts, account);
}
+static void
+remove_account_shortcuts (MailConfigAccount *account)
+{
+ extern EvolutionShellClient *global_shell_client;
+ CORBA_Environment ev;
+ GNOME_Evolution_Shortcuts shortcuts_interface;
+ GNOME_Evolution_Shortcuts_GroupList *groups;
+ int i, j, len;;
+
+ CORBA_exception_init (&ev);
+
+ shortcuts_interface = evolution_shell_client_get_shortcuts_interface (global_shell_client);
+ if (CORBA_Object_is_nil (shortcuts_interface, &ev)) {
+ g_warning ("No ::Shortcut interface on the shell");
+ CORBA_exception_free (&ev);
+ return;
+ }
+
+ groups = GNOME_Evolution_Shortcuts__get_groups (shortcuts_interface, &ev);
+ if (ev._major != CORBA_NO_EXCEPTION) {
+ g_warning ("Exception getting the groups: %s", ev._repo_id);
+ CORBA_exception_free (&ev);
+ return;
+ }
+
+ len = strlen (account->name);
+
+ for (i = 0; i < groups->_length; i++) {
+ GNOME_Evolution_Shortcuts_Group *iter;
+
+ iter = groups->_buffer + i;
+
+ for (j = 0; j < iter->shortcuts._length; j++) {
+ GNOME_Evolution_Shortcuts_Shortcut *sc;
+
+ sc = iter->shortcuts._buffer + j;
+
+ /* "evolution:/" = 11 */
+ if (!strncmp (sc->uri + 11, account->name, len)) {
+ GNOME_Evolution_Shortcuts_remove (shortcuts_interface, i, j, &ev);
+
+ if (ev._major != CORBA_NO_EXCEPTION) {
+ g_warning ("Exception removing shortcut \"%s\": %s", sc->name, ev._repo_id);
+ break;
+ }
+ }
+ }
+ }
+
+ CORBA_exception_free (&ev);
+ CORBA_free (groups);
+}
+
const GSList *
mail_config_remove_account (MailConfigAccount *account)
{
@@ -1416,6 +1471,7 @@ mail_config_remove_account (MailConfigAccount *account)
config->default_account = 0;
config->accounts = g_slist_remove (config->accounts, account);
+ remove_account_shortcuts (account);
account_destroy (account);
return config->accounts;