diff options
| author | Graham Barr <gbarr@pobox.com> | 2004-03-22 14:20:15 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 08:51:37 -0600 |
| commit | b01919ce94068f5018719b1785c97162c35e2fcf (patch) | |
| tree | 455badc2808d352d9bf51aab558726fa16b29144 | |
| parent | 6cb99e62f4bf305acd9bd156f02a2ca4c341be58 (diff) | |
| download | perl-libnet-b01919ce94068f5018719b1785c97162c35e2fcf.tar.gz | |
Only send RSET command if we have deleted some messages
| -rw-r--r-- | Net/POP3.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Net/POP3.pm b/Net/POP3.pm index aa4fd5f..3a5aec0 100644 --- a/Net/POP3.pm +++ b/Net/POP3.pm @@ -1,6 +1,6 @@ # Net::POP3.pm # -# Copyright (c) 1995-2003 Graham Barr <gbarr@pobox.com>. All rights reserved. +# Copyright (c) 1995-2004 Graham Barr <gbarr@pobox.com>. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. @@ -13,7 +13,7 @@ use Net::Cmd; use Carp; use Net::Config; -$VERSION = "2.26"; +$VERSION = "2.27"; @ISA = qw(Net::Cmd IO::Socket::INET); @@ -237,7 +237,9 @@ sub getfh sub delete { @_ == 2 or croak 'usage: $pop3->delete( MSGNUM )'; - $_[0]->_DELE($_[1]); + my $me = shift; + return 0 unless $me->_DELE(@_); + ${*$me}{'net_pop3_deleted'} = 1; } sub uidl @@ -335,7 +337,7 @@ sub DESTROY { my $me = shift; - if(defined fileno($me)) + if(defined fileno($me) and ${*$me}{'net_pop3_deleted'}) { $me->reset; $me->quit; |