diff options
| author | Erich Eckner <git@eckner.net> | 2019-05-10 16:36:33 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2019-05-10 16:36:33 +0200 |
| commit | 4bef54899a8c3ed6974bebe20b0605a7cddb1c50 (patch) | |
| tree | 28fafbb93334119ebb4681a0045b662c3683ea61 | |
| parent | bbcb57bb5fa397ec88734c0c421b10f56d870947 (diff) | |
| download | units-4bef54899a8c3ed6974bebe20b0605a7cddb1c50.tar.xz | |
popimapunit.pas: fetch first 128 bytes of body only
| -rw-r--r-- | popimapunit.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/popimapunit.pas b/popimapunit.pas index df95c3e..8d841b1 100644 --- a/popimapunit.pas +++ b/popimapunit.pas @@ -642,7 +642,7 @@ begin _nachrichten[i].text:=buf; end; mpImap: begin - if imapBefehlAusfuehren(pr,'FETCH '+intToStr(_nachrichten[i].id)+' (BODY[HEADER] BODY[TEXT])',_besitzer.timeOut,buf)<>baeOk then + if imapBefehlAusfuehren(pr,'FETCH '+intToStr(_nachrichten[i].id)+' (BODY[HEADER] BODY[TEXT]<0.128>)',_besitzer.timeOut,buf)<>baeOk then break; if beenden then break; @@ -663,8 +663,8 @@ begin end; _nachrichten[i].text:=copy(buf,1,_nachrichten[i].groesze); delete(buf,1,_nachrichten[i].groesze); - if not startetMit(' BODY[TEXT] {',buf,false) then begin - writeln(stderr, 'syntax-Fehler: Zwischen-" BODY[TEXT] {" fehlt'); + if not startetMit(' BODY[TEXT]<0> {',buf,false) then begin + writeln(stderr, 'syntax-Fehler: Zwischen-" BODY[TEXT]<0> {" fehlt'); break; end; s:=erstesArgument(buf,'}',false); |