--- rxvt-unicode/src/perl/selection-popup 2006/03/08 15:43:02 1.19 +++ rxvt-unicode/src/perl/selection-popup 2007/10/31 18:15:42 1.21 @@ -14,7 +14,7 @@ sub on_start { my ($self) = @_; - $self->{browser} = $self->x_resource ("urlLauncher") || "x-www-browser"; + $self->{browser} = $self->x_resource ("urlLauncher") || "sensible-browser"; $self->grab_button (3, urxvt::ControlMask); @@ -74,7 +74,7 @@ /[\\"'\ \t|&;<>()]/ and $add_button->("shell quote" => sub { $_ = "\Q$_" }); - /^(http|ftp|telnet|irc|news):\// + /^(https?|ftp|telnet|irc|news):\// and $add_button->("run $self->{browser}" => sub { $self->exec_async ($self->{browser}, $_) }); for my $hook (@{ $self->{term}{selection_popup_hook} || [] }) {