Added SILC Thread Queue API

[crypto.git] / apps / irssi / src / perl / ui / Window.xs

diff --git a/apps/irssi/src/perl/ui/Window.xs b/apps/irssi/src/perl/ui/Window.xs
index 89d874ee7cb88a8bdbb9e160fa828a3f31f998e7..ab52c910913a90f643db63d47b7ef4486922800b 100644 (file)
--- a/apps/irssi/src/perl/ui/Window.xs
+++ b/apps/irssi/src/perl/ui/Window.xs
@@ -1,5 +1,7 @@
 #include "module.h"
 
+#include "window-activity.h"
+
 MODULE = Irssi::UI::Window  PACKAGE = Irssi
 PROTOTYPES: ENABLE
 
@@ -158,7 +160,8 @@ CODE:
        old = active_win;
        active_win = window;
        perl_command(cmd, window->active_server, window->active);
-        if (g_slist_find(windows, old) != NULL)
+       if (active_win == window &&
+           g_slist_find(windows, old) != NULL)
                active_win = old;
 
 void