*** lib/MT/Template/ContextHandlers.pm.orig	2008-09-19 20:09:43.000000000 +0400
--- lib/MT/Template/ContextHandlers.pm	2008-09-20 11:15:00.000000000 +0400
***************
*** 707,712 ****
--- 707,714 ----
  sub _fltr_nofollowfy {
      my ($str, $arg, $ctx) = @_;
      return $str unless $arg;
+ 
+     my $picurl = '<img style="padding: 2px;" width="10" height="10" src="http://en.wikipedia.org/skins-1.5/monobook/external.png"/>';
      $str =~ s#<\s*a\s([^>]*\s*href\s*=[^>]*)>#
          my @attr = $1 =~ /[^=\s]*\s*=\s*"[^"]*"|[^=\s]*\s*=\s*'[^']*'|[^=\s]*\s*=[^\s]*/g;
          my @rel = grep { /^rel\s*=/i } @attr;
***************
*** 721,726 ****
--- 723,730 ----
          @attr = grep { !/^rel\s*=/i } @attr;
          '<a ' . (join ' ', @attr) . ' ' . $rel . '>';
      #xieg;
+     $str =~ s#(<\s*a\s[^>]*\s*href\s*=\"?([^ \t>"]+)\"?[^>]*>)(.*?)(<\s*/\s*a\s*>)#
+     <a href="\#link" onClick="return '$2';" >$3</a><noscript><noindex>$1$picurl$4</noindex></noscript>#gi;
      $str;
  }