+/** uri_unescape:
+ * @uri An escaped URI. URIs should always be escaped.
+ * @len The length of the @uri string, or -1 if the string is null terminated.
+ *
+ * Decode a URI, or URI fragment, as per RFC 1738.
+ * http://www.ietf.org/rfc/rfc1738.txt
+ *
+ * Return value: An unescaped string. This should be freed with g_free().
+ */
+static gchar* uri_unescape(const gchar* uri, size_t len)
+{
+ if (!uri)
+ return NULL;
+
+ if (len == -1)
+ len = strlen (uri);
+
+ /* Allocate an extra string so we can be sure that it is null-terminated,
+ * so we can use gnome_vfs_unescape_string().
+ * This is not efficient. */
+ gchar * escaped_nullterminated = g_strndup (uri, len);
+ gchar *result = gnome_vfs_unescape_string (escaped_nullterminated, NULL);
+ g_free (escaped_nullterminated);
+
+ return result;
+}
+
+/** uri_parse_mailto:
+ * @mailto A mailto URI, with the mailto: prefix.
+ * @list_items_and_values: A pointer to a list that should be filled with item namesand value strings,
+ * with each name item being followed by a value item. This list should be freed with g_slist_free) after
+ * all the string items have been freed. This parameter may be NULL.
+ * Parse a mailto URI as per RFC2368.
+ * http://www.ietf.org/rfc/rfc2368.txt
+ *
+ * Return value: The to address, unescaped. This should be freed with g_free().
+ */
+static gchar* uri_parse_mailto (const gchar* mailto, GSList** list_items_and_values)
+{
+ const gchar* start_to = NULL;
+ /* Remove the mailto: prefix:
+ * 7 is the length of "mailto:": */
+ if (strncmp (mailto, "mailto:", 7) == 0) {
+ start_to = mailto + 7;
+ }
+
+ if (!start_to)
+ return NULL;
+
+ /* Look for ?, or the end of the string, marking the end of the to address: */
+ const size_t len_to = strcspn (start_to, "?");
+ gchar* result_to = uri_unescape (start_to, len_to);
+ printf("debug: result_to=%s\n", result_to);
+
+ /* Get any other items: */
+ const size_t len_mailto = strlen (start_to);
+ const gchar* p = start_to + len_to + 1; /* parsed so far. */
+ const gchar* end = start_to + len_mailto;
+ /* GSList *items = NULL; */
+ const gchar* start_item_name = p;
+ size_t len_item_name = 0;
+ const gchar* start_item_value = NULL;
+ while (p < end) {
+
+ /* Looking for the end of a name; */
+ if (start_item_name) {
+ const size_t len = strcspn (p, "="); /* Returns whole string if none found. */
+ if (len) {
+ /* This marks the end of a name and the start of the value: */
+ len_item_name = len;
+
+ /* Skip over the name and mark the start of the value: */
+ p += (len + 1); /* Skip over the = */
+ start_item_value = p;
+ }
+ }
+
+ /* Looking for the end of a value: */
+ if (start_item_value) {
+ const size_t len = strcspn (p, "?"); /* Returns whole string if none found. */
+ /* ? marks the start of a new item: */
+ if (len) {
+ if (start_item_name && len_item_name) {
+ /* Finish the previously-started item: */
+ gchar *item_value = uri_unescape (start_item_value, len);
+ gchar *item_name = g_strndup (start_item_name, len_item_name);
+ /* printf ("debug: item name=%s, value=%s\n", item_name, item_value); */
+
+ /* Append the items to the list */
+ if(list_items_and_values) {
+ *list_items_and_values = g_slist_append (*list_items_and_values, item_name);
+ *list_items_and_values = g_slist_append (*list_items_and_values, item_value);
+ }
+ }
+
+ /* Skip over the value and mark the start of a possible new name/value pair: */
+ p += (len + 1); /* Skip over the ? */
+ start_item_name = p;
+ len_item_name = 0;
+ start_item_value = NULL;
+ }
+ }
+
+ }
+
+ return result_to;
+}
+