equal
deleted
inserted
replaced
341 sub imap_list($$) { |
341 sub imap_list($$) { |
342 |
342 |
343 my ($ref, $folder) = @_; |
343 my ($ref, $folder) = @_; |
344 |
344 |
345 my $list = $imap->list($ref, $folder) or die "Can't list('$ref', '$folder'): $@"; |
345 my $list = $imap->list($ref, $folder) or die "Can't list('$ref', '$folder'): $@"; |
346 ref $list or die "Got empty folder list. Does '$folder' actually exist? Is it readable?"; |
|
347 # single folder sieht wie folgt aus: [[flag1, flag2, ...], separator, foldername] |
346 # single folder sieht wie folgt aus: [[flag1, flag2, ...], separator, foldername] |
348 return [ map $_->[2], @{$list} ]; |
347 ref $list and return [ map $_->[2], @{$list} ]; |
|
348 # assuming empty result list otherwise |
|
349 return []; |
349 |
350 |
350 } |
351 } |
351 |
352 |
352 sub imap_rlist($$$) { |
353 sub imap_rlist($$$) { |
353 |
354 |