fix http/mailto regexes

1 files changed, 2 insertions, 2 deletions

diff --git a/dwim b/dwim
index c2a992b..bf7da16 100755
--- a/dwim
+++ b/dwim
@@ -22,12 +22,12 @@ my $MAILROOT       = env MAILROOT => "/home/john/mail/";
 our $handler;
 
 for ($phrase) {
-	if (/^(https?:\/\/.+)$/) {
+	if (/^(https?:\/?\/?.+)$/) {
 		handle "web address";
 		exec "firefox", "$1"
 	}
 
-	if (/^(mailto:\/\/.+)$/ or /^(.+@.+\.\w+)$/) {
+	if (/^(mailto:.+)$/ or /^(.+@.+\.\w+)$/) {
 		handle "e-mail address";
 		exec @MAILER, "$1"
 	}