diff options
| -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); |