--- rxvt-unicode/src/perl/automove-background	2006/02/05 01:24:44	1.4
+++ rxvt-unicode/src/perl/automove-background	2006/02/06 05:47:06	1.5
@@ -3,16 +3,10 @@
 sub on_configure_notify {
    my ($self, $event) = @_;
    
-   my ($x, $y);
-
-   if ($event->{send_event}) {
-      ($x, $y) = ($event->{x}, $event->{y});
-   } else {
-      ($x, $y) = $self->XTranslateCoordinates (
-         $self->vt, $self->DefaultRootWindow,
-         0, 0
-      );
-   }
+   my ($x, $y) = $self->XTranslateCoordinates (
+      $self->vt, $self->DefaultRootWindow,
+      0, 0
+   );
 
    $self->cmd_parse ("\033]20;;=+$x+$y\007");
 }