summaryrefslogtreecommitdiff
path: root/lib/JWebmail/Model/Driver/QMailAuthuser
diff options
context:
space:
mode:
authorJannis M. Hoffmann <jannis.hoffmann@rwth-aachen.de>2021-08-24 13:17:27 +0200
committerJannis M. Hoffmann <jannis.hoffmann@rwth-aachen.de>2021-08-24 13:17:27 +0200
commit1e1eabaac06721ee0d686d10a6effa9a3450a1ca (patch)
treef5e6627ebed9c4c6879dc1dc1511652c7fae4f9c /lib/JWebmail/Model/Driver/QMailAuthuser
parentbae4c2afa97a9c51eb04d0d52f025e73fd2031be (diff)
ws alignment
Diffstat (limited to 'lib/JWebmail/Model/Driver/QMailAuthuser')
-rwxr-xr-xlib/JWebmail/Model/Driver/QMailAuthuser/Extract.pm50
1 files changed, 25 insertions, 25 deletions
diff --git a/lib/JWebmail/Model/Driver/QMailAuthuser/Extract.pm b/lib/JWebmail/Model/Driver/QMailAuthuser/Extract.pm
index 5c31d58..6639ad9 100755
--- a/lib/JWebmail/Model/Driver/QMailAuthuser/Extract.pm
+++ b/lib/JWebmail/Model/Driver/QMailAuthuser/Extract.pm
@@ -115,16 +115,16 @@ sub list {
for my $msg (@msgs) {
my $msg2 = {
- subject => decode('MIME-Header', $msg->subject),
- from => _addresses($msg->from),
- to => _addresses($msg->to),
- cc => _addresses($msg->cc),
- bcc => _addresses($msg->bcc),
+ subject => decode('MIME-Header', $msg->subject),
+ from => _addresses($msg->from),
+ to => _addresses($msg->to),
+ cc => _addresses($msg->cc),
+ bcc => _addresses($msg->bcc),
date_received => _iso8601_utc($msg->timestamp),
- size => $msg->size,
- content_type => ''. $msg->contentType,
- mid => $msg->messageId,
- new => $msg->label('seen'),
+ size => $msg->size,
+ content_type => ''. $msg->contentType,
+ mid => $msg->messageId,
+ new => $msg->label('seen'),
};
push @msgs2, $msg2;
}
@@ -169,15 +169,15 @@ sub read_mail {
my $msg = $folder->find($mid);
return {error => 'no such message', mid => $mid} unless $msg;
return {
- subject => decode('MIME-Header', $msg->subject),
- from => _addresses($msg->from),
- to => _addresses($msg->to),
- cc => _addresses($msg->cc),
- bcc => _addresses($msg->bcc),
+ subject => decode('MIME-Header', $msg->subject),
+ from => _addresses($msg->from),
+ to => _addresses($msg->to),
+ cc => _addresses($msg->cc),
+ bcc => _addresses($msg->bcc),
date_received => _iso8601_utc($msg->timestamp),
- size => $msg->size,
- content_type => ''. $msg->contentType,
- body => do {
+ size => $msg->size,
+ content_type => ''. $msg->contentType,
+ body => do {
if ($msg->isMultipart) {
[map {{type => ''. $_->contentType, val => '' . $_->decoded}} $msg->body->parts]
}
@@ -206,15 +206,15 @@ sub search {
my @msgs2;
for my $msg (@msgs) {
my $msg2 = {
- subject => decode('MIME-Header', $msg->subject),
- from => _addresses($msg->from),
- to => _addresses($msg->to),
- cc => _addresses($msg->cc),
- bcc => _addresses($msg->bcc),
+ subject => decode('MIME-Header', $msg->subject),
+ from => _addresses($msg->from),
+ to => _addresses($msg->to),
+ cc => _addresses($msg->cc),
+ bcc => _addresses($msg->bcc),
date_received => _iso8601_utc($msg->timestamp),
- size => $msg->size,
- content_type => ''. $msg->contentType,
- mid => $msg->messageId,
+ size => $msg->size,
+ content_type => ''. $msg->contentType,
+ mid => $msg->messageId,
};
push @msgs2, $msg2;
}