Text::DeSupercite - remove supercite quotes and other non-standard quoting from text
use Text::DeSupercite qw/desupercite/; # just convert supercite quotes to '>'s $text = desupercite($mail->body()); # or convert *all* quot characters that aren't '>'s $text = desupercite($mail->body(),1); # set it back again $mail->body_set($text);
Supercite is a Emacs Gnus package (http://www.gnus.org/) for providing a more err ... comprehensive ... form of quoting which tends to look like
>>>>> "Foo" == Foo <foo@foo.com> writes: >> blah blah blah blah blah blah blah blah blah blah blah blah blah blah >> blah blah blah blah blah blah blah blah blah blah blah blah blah blah Foo> yak yak yak yak yak yak yak yak yak yak yak yak yak yak yak yak yak Foo> yak yak yak yak yak yak yak yak yak yak yak yak yak yak yak yak yak Foo> yak yak yak yak yak yak yak yak yak yak yak yak yak yak yak yak yak
which annoys quite a lot of people who find it too noisy.
There's also people who quote like this
| this is a quote this is not
which annoys another load of people. Mostly the two sets of annoyed people intersect. Which is quite understandable.
This module takes a simplistic approach to removing these forms of quoting and replacing them with the more normal
> this is a quote this is not > > this is a quote of a quote
style.
It has two modes, harsh and lenient. Lenient just desupercites. Harsh normalises all quoting.
Non known but I haven't really hunted out pathological cases of superciting so if you find one then please let me know.
It currently fails to desupercite stuff looking like
Name1> some quote
this is a bug in Text::Quoted. There's a patch included with this module to fix it if it's not fixed by Simon Cozens soon.
Simon Wistow <simon@thegestalt.org>
(c)opyright Simon Wistow, 2003
Distributed under the same terms as Perl itself.
This software is under no warranty and will probably ruin your life, kill your friends, burn your house and bring about the apocalypse
Text::Quoted, desupercite
To install Text::DeSupercite, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Text::DeSupercite
CPAN shell
perl -MCPAN -e shell install Text::DeSupercite
For more information on module installation, please visit the detailed CPAN module installation guide.