diff options
Diffstat (limited to 'lib/JWebmail/Model/ReadMails/QMailAuthuser.pm')
| -rw-r--r-- | lib/JWebmail/Model/ReadMails/QMailAuthuser.pm | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/lib/JWebmail/Model/ReadMails/QMailAuthuser.pm b/lib/JWebmail/Model/ReadMails/QMailAuthuser.pm index 5190e26..f5f9392 100644 --- a/lib/JWebmail/Model/ReadMails/QMailAuthuser.pm +++ b/lib/JWebmail/Model/ReadMails/QMailAuthuser.pm @@ -170,6 +170,14 @@ sub move { return 1; } +sub remove { + my $self = shift; + my ($auth, $folder, $mid) = @_; + + my $_resp = $self->build_and_run($auth, 'remove', [$folder, $mid]); + return 1; +} + sub build_arg { my $self = shift; @@ -235,8 +243,8 @@ sub read_qmauth { $resp = { head => $r, body => $buf, - rc => $?, - e => $e, + rc => $?, + e => $e, }; } elsif ($rs == 3 << 8 || $rs == 0) { @@ -244,9 +252,9 @@ sub read_qmauth { eval { $resp = decode_json $input if $input; 1 } or do { $resp = { - info => "error decoding response", - response => $input, - cause => $@, + info => "error decoding response", + response => $input, + cause => $@, return_code => $rc, }; }; |