--- 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});