--- rxvt-unicode/src/perl/selection-pastebin	2006/01/25 14:53:14	1.14
+++ rxvt-unicode/src/perl/selection-pastebin	2006/03/10 21:36:16	1.16
@@ -6,7 +6,10 @@
    require Digest::MD5;
 
    my $txt = $self->selection;
-   my $filename = Digest::MD5::md5_hex ($txt) . ".txt";
+
+   my $filename = $txt;
+   utf8::encode $filename;
+   $filename = Digest::MD5::md5_hex ($filename) . ".txt";
 
    my $tmpfile = "/tmp/$filename";
 
@@ -69,7 +72,7 @@
    ()
 }
 
-sub on_keyboard_command {
+sub on_user_command {
    my ($self, $cmd) = @_;
 
    if ($cmd eq "selection-pastebin:remote-pastebin") {