at -> mailto remnants from stock infobot removed

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@29 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Factoids/Statement.pl b/src/Factoids/Statement.pl
index 09e59f9635bbc4b2bb2dae160dc4385ebe7ccd40..fe83ab3081972fdf8d53e3cbdbf725a538a22a20 100644 (file)
--- a/src/Factoids/Statement.pl
+++ b/src/Factoids/Statement.pl
@@ -31,11 +31,6 @@ sub doStatement {
     $in =~ s/ www\./ http:\/\/www\./ig;
     $in =~ s/ ftp\./ ftp:\/\/ftp\./ig;
 
-    # look for a "type nugget". this should be externalized.
-    $urlType = "mailto" if ($in =~ /\bmailto:.+\@.+\..{2,}/i);
-    $urlType = "mailto" if ($in =~ s/\b(\S+\@\S+\.\S{2,})/mailto:$1/gi);
-    $in =~ s/(mailto:)+/mailto:/g;
-
     $urlType = "about"   if ($in =~ /\babout:/i);
     $urlType = 'afp'     if ($in =~ /\bafp:/);
     $urlType = 'file'    if ($in =~ /\bfile:/);