(login): Set same_person before calling logout().

src/server/session.c

 /*
- * $Id: session.c,v 0.23 1994/03/05 22:17:01 ceder Exp $
+ * $Id: session.c,v 0.24 1994/03/08 22:59:11 ceder Exp $
  * Copyright (C) 1991  Lysator Academic Computer Association.
  *
  * This file is part of the LysKOM server.
@@ -28,7 +28,7 @@
  * Session control and miscellaneous.
  */
 
-static char *rcsid = "$Id: session.c,v 0.23 1994/03/05 22:17:01 ceder Exp $";
+static char *rcsid = "$Id: session.c,v 0.24 1994/03/08 22:59:11 ceder Exp $";
 #include "rcs.h"
 USE(rcsid);
 
@@ -218,6 +218,8 @@ login (Pers_no       pers_no,
 	return FAILURE;
     }
 
+    same_person = (ACTPERS == pers_no);
+
     logout();	/*+++ How many tries are allowed before disconnection? */
 
     active_connection->invisible = !!invisible;		/* Normalize 17. */
@@ -225,7 +227,6 @@ login (Pers_no       pers_no,
     /* Don't count this as a new session if the person already was
        logged on.  The elisp-client version 0.38.1 logs on invisibly
        automatically to indicate that the user is inactve. */
-    same_person = (ACTPERS == pers_no);
     if (same_person == FALSE)
 	++pers_p->sessions;