pidgin: d0c5d8d6: Fix my Tcl fix.

[rlaager at pidgin.im]

-----------------------------------------------------------------
Revision: d0c5d8d6f282465330cc495d1d7893c4adf1e608
Ancestor: 7c0b396dd7d10b1652d6ae3bfc861dbfde761301
Author: rlaager at pidgin.im
Date: 2008-10-30T19:57:47
Branch: im.pidgin.pidgin
URL: http://d.pidgin.im/viewmtn/revision/info/d0c5d8d6f282465330cc495d1d7893c4adf1e608

Modified files:
        libpurple/plugins/tcl/tcl_cmds.c

ChangeLog: 

Fix my Tcl fix.

-------------- next part --------------
============================================================
--- libpurple/plugins/tcl/tcl_cmds.c	6ce941ea4e61f1019cb1b2ee3ec2ef555ef5d65b
+++ libpurple/plugins/tcl/tcl_cmds.c	64de15bcee22460576334cb2cd888167b4444fbc
@@ -428,7 +428,6 @@ int tcl_cmd_buddy(ClientData unused, Tcl
 	if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)
 		return error;
 
-	type = purple_blist_node_get_type(node);
 	switch (cmd) {
 	case CMD_BUDDY_ALIAS:
 		if (objc != 3) {
@@ -439,6 +438,7 @@ int tcl_cmd_buddy(ClientData unused, Tcl
 			return error;
 		if ((node = tcl_list_to_buddy(interp, count, elems)) == NULL)
 			return TCL_ERROR;
+		type = purple_blist_node_get_type(node);
 		if (type == PURPLE_BLIST_CHAT_NODE)
 			Tcl_SetObjResult(interp,
 					 Tcl_NewStringObj(purple_chat_get_name((PurpleChat *)node), -1));