* guile support cleanup (WIP)

2011-12-30 12:36:59 +02:00
parent b01b70db05
commit b5e2f1c14a
16 changed files with 514 additions and 700 deletions
--- a/guile/mu-guile-msg.c
+++ b/guile/mu-guile-msg.c
@ -262,10 +262,12 @@ contacts_to_list (MuMsgContact *contact, EachContactData *ecdata)
 		addr = mu_msg_contact_address (contact);
 		name = mu_msg_contact_name (contact);

+
 		item = scm_list_1
-			(scm_list_2 (
+			(scm_cons (
 				scm_from_string_or_null(name),
 				scm_from_string_or_null(addr)));
+
 		ecdata->lst = scm_append_x (scm_list_2(ecdata->lst, item));
 	}
 }