The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Text::DeSupercite - remove supercite quotes and other non-standard quoting from text

SYNOPSIS

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

DESCRIPTION

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.

BUGS

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.

AUTHOR

Simon Wistow <simon@thegestalt.org>

COPYRIGHT

(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

SEE ALSO

Text::Quoted, desupercite