*** lib/TWiki/Plugins/WysiwygPlugin.pm.orig	2006-01-30 11:03:13.000000000 +0100
--- lib/TWiki/Plugins/WysiwygPlugin.pm	2006-01-30 11:19:01.000000000 +0100
***************
*** 97,104 ****
                 && $_[0] =~ /%[A-Z_]+{.*?}%/s )
               || ( $exclusions =~ /\bvariables\b/ &&
                      $_[0] =~ /%[A-Z_]+%/s)
!                || ( $exclusions =~ /\bhtml\b/ &&
!                       $_[0] =~ /<\/?(?!verbatim|noautolink|nop)\w+/ )) {
              # redirect
              my $query = TWiki::Func::getCgiQuery();
              foreach my $p qw( skin cover ) {
--- 97,109 ----
                 && $_[0] =~ /%[A-Z_]+{.*?}%/s )
               || ( $exclusions =~ /\bvariables\b/ &&
                      $_[0] =~ /%[A-Z_]+%/s)
!              || ( $exclusions =~ /\bhtml\b/ &&
!                     $_[0] =~ /<\/?(?!verbatim|noautolink|nop|br)\w+/ )
!              || ( $exclusions =~ /\bcomments\b/ &&
!                     $_[0] =~ /<[!]--/ )
!              || ( $exclusions =~ /\bpre\b/ &&
!                     $_[0] =~ /<pre\w/ )
! 	  ) {
              # redirect
              my $query = TWiki::Func::getCgiQuery();
              foreach my $p qw( skin cover ) {