This script prints the individual messages in a thread/conversation:

my $threads = $gmail->get_messages( label => ‘perl-test-label’ );
foreach ( @{ $threads } ) {
my $thread = $gmail->get_indv_email( msg => $_ );
foreach $messageid ( sort keys %{$thread}) {
my $body = $gmail->get_mime_email( id => $messageid , label => ‘perl-test-label’ );
print $body;
};
};

The key to this is the function get_mime_email – though this basically is the same as the gmail function ‘Show original message’

I hope this helps people.

Best Regards.

Otherwise, it’s a very nice implementation. Thanks!

This is one of the most useful modules ever. It really helped me a lot!

Another question, I am using this model to delete those thousands trash mail. After delete about 60 trash emails, it seems gmail has blocked my account and the perl code does not work on the trash mail, althoug the print information shows it is still working. but the amount of trash email stopped decrease. and after I runned the perl script sereval time, gmail show this message,

Our system indicates unusual usage of your account. In order to protect Gmail users from potentially harmful use of Gmail, this account has been disabled for up to 24 hours.

Any comments?

thanks.

[I had written a request_hack function in UserAgent which has your modifications, but I forgot to call it when I copied your Gmail.pm file and overwrote my changes].

Thanks !!

Mudit

I did modify the UserAgent.pm and also using Julien’s Gmail.pm. Still I’, not able to login.

I ran the perl -d and found out that its failing at

110: if ( $res->content() =~ // ) {
DB
Mail::Webmail::Gmail::login(/usr/lib/perl5/site_perl/5.6.0/Mail/Webmail/Gmail.pm:126):
126: $self->{_error} = 1;

Thanks
Mudit

many thanks for the answer — it works now.

Thanh

I made another comment about the other things I did, but it is still awaiting moderation. I think it was too long… Anyway, I posted the Gmail.pm I use here :

http://www.greyhats.org/files/Gmail.pm

Moreover, the only change I made in UserAgent.pm (from LWP) is replacing, in the request sub, the line
$referral->remove_header(‘Host’), ‘Cookie’);
by
$referral->remove_header(‘Host’); #, ‘Cookie’);

Warning : This is dirty hack, very dirty hack…

Julien

I also use Mail::Webmail::Gmail to send mail and it stopped working a few days ago. I have no idea how to fix it, as I am nor a web neither a perl programmer, but I would like to have a workaround if possible. Can you please send me the changes you made to UserAgent.pm to make it work? I tried to comment out the line you mentioned, but it didn’t work — probably there is more than just commenting out that line.

Thanks.

I checked in the LWP::UserAgent code, in the request sub. In fact, that is normal, the following code comes from it :

# These headers should never be forwarded
$referral->remove_header(‘Host’); ‘Cookie’);

Dont’ know why, as I’m no HTTP header expert.

To be sure, I changed the LWP::UserAgent code (!) to make Cookie header be forwarded and … that worked.

Any hint ?

Kind regards

Julien