--- neomail.pl.orig Mon Oct 29 11:35:28 2001
+++ neomail.pl Mon Oct 29 11:35:22 2001
@@ -1087,9 +1087,9 @@
$html =~ s/\@\@\@HEADERSTOGGLE\@\@\@/$temphtml/g;
foreach (qw(http https ftp nntp news gopher telnet)) {
- $body =~ s/($_:\/\/[\w\.\-]+?\/?[^\s<>]*[\w\/])([\b|\n| ]*)/$1<\/A>$2/gs;
+ $body =~ s/($_:\/\/[\w\.\-]+?\/?[^\s<>]*[\w\/])([\b|\n| ]*)/$1<\/A>$2/gs;
}
- $body =~ s/([\b|\n| ]+)(www\.[-\w\.]+\.[-\w]{2,3})([\b|\n| ]*)/$1$2<\/a>$3/gs;
+ $body =~ s/([\b|\n| ]+)(www\.[-\w\.]+\.[-\w]{2,3})([\b|\n| ]*)/$1$2<\/a>$3/gs;
$temphtml = $body;
@@ -1128,9 +1128,9 @@
${$message{attachment}[$attnumber]}{contents} =~ s/\t/ /g;
foreach (qw(http https ftp nntp news gopher telnet)) {
${$message{attachment}[$attnumber]}{contents} =~
- s/($_:\/\/[\w\.\-]+?\/?[^\s<>]*[\w\/])([\b|\n| ]*)/$1<\/A>$2/gs;
+ s/($_:\/\/[\w\.\-]+?\/?[^\s<>]*[\w\/])([\b|\n| ]*)/$1<\/A>$2/gs;
}
- ${$message{attachment}[$attnumber]}{contents} =~ s/([\b|\n| ]+)(www\.[-\w\.]+\.[-\w]{2,3})([\b|\n| ]*)/$1$2<\/a>$3/gs;
+ ${$message{attachment}[$attnumber]}{contents} =~ s/([\b|\n| ]+)(www\.[-\w\.]+\.[-\w]{2,3})([\b|\n| ]*)/$1$2<\/a>$3/gs;
$temphtml .= ${$message{attachment}[$attnumber]}{contents} . "
";
} else {
my $escapedfilename = urlescape(${$message{attachment}[$attnumber]}{filename});