Hi, On Fri, 30 Nov 2001 Thomas <[EMAIL PROTECTED]> spewed into the ether: [-- snip --] > Initial perl version at: > > http://freak.aagh.net/code/quotefix.pl
Does this grok "^http:" and stuff ? Doesn't seem to do it here. So, what
I did was, I converted the regexp it looks for into the $quote_regexp in
my .muttrc, with a few changes.
<snip>
while ($line =~ /^(-->)|^([ \t]*[(A-Z){0,2}|(a-z){0,6}]+>)|^([ \t\"]*[|>}%])+/
</snip>
Another thing is, the "Super-quotes", like "^ AA>", always seem to end
in ">", and not in "[|}%]", etc. This could possible be changed by some
sadistic people, but for now, I've omitted everything but ">".
Also, this is something that comes up often in display filtering :
When stripping of trailing white-spaces, don't strip off the white-space
after the sig-dashes. Or, better yet, do this, before printing $line :
$line =~ s/^--$/-- /;
Anyway, great work ! But, unfortunately, the quest for the perfect
quote_regexp seems never-ending :-(
pv.
--
Prahlad Vaidyanathan <[EMAIL PROTECTED]> What, me worry ?
http://www.symonds.net/~prahladv/ Don't Panic !
--
msg21140/pgp00000.pgp
Description: PGP signature
