--- rxvt-unicode/src/perl/confirm-paste	2011/01/08 00:20:45	1.3
+++ rxvt-unicode/src/perl/confirm-paste	2012/06/10 17:39:54	1.6
@@ -1,5 +1,16 @@
 #! perl
 
+=head1 NAME
+
+   confirm-paste - ask for confirmation before pasting multiline text
+
+=head1 DESCRIPTION
+
+Displays a confirmation dialog when a paste containing at least a full
+line is detected.
+
+=cut
+
 sub msg {
    my ($self, $msg) = @_;
 
@@ -16,8 +27,9 @@
 
    $self->{paste} = \$str;
    $self->msg ("Paste of $count lines, continue? (y/n)");
-   (my $preview = $self->locale_decode ($str)) =~ s/\n/\\n/g;
-   $self->{overlay}->set (0, 1, $preview);
+   my $preview = substr $self->locale_decode ($str), 0, $self->ncol;
+   $preview =~ s/\n/\\n/g;
+   $self->{overlay}->set (0, 1, $self->special_encode ($preview));
    $self->enable (key_press => \&key_press);
 
    1