--- rxvt-unicode/src/perl/selection-popup	2006/03/08 15:43:02	1.19
+++ rxvt-unicode/src/perl/selection-popup	2007/10/31 18:12:27	1.20
@@ -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} || [] }) {