popClient := Pop3Client host: 'xxx'.
popClient user: (NetUser username: 'xxx' password: 'xxx').
self halt.
popClient
        connect;
        login.
message := popClient retrieveMessage: 1.
mimeMsg := MailMessage readFrom: message readStream.
popClient disconnect.

üÔÏ ×ÎÏ×Ø ÎÅ ÒÁÂÏÔÁÅÔ ÉÚ-ÚÁ ÐÒÏÂÌÅÍ Ó ËÏÄÉÒÏ×ËÁÍÉ.

NetPop3Client>>connect
        | socket |
        self state: Pop3AuthorizationState new.
        (socket := self createSocket) isNil ifTrue: [^NetClientError
signalWith: #connection].
        connection := ExternalConnection new.
        connection input: socket; output: socket.
        stream := connection readAppendStream.
        stream lineEndTransparent.
        self waitForResponse

ExternalConnection>>readAppendStream
        ^(self withEncoding: #default) readAppendStream

üÔÏ ÎÁÄÏ ÚÁÍÅÎÉÔØ ÎÁ

NetPop3Client>>connect
        | socket |
        self state: Pop3AuthorizationState new.
        (socket := self createSocket) isNil ifTrue: [^NetClientError
signalWith: #connection].
        connection := ExternalConnection new.
        connection input: socket; output: socket.
        stream := connection readAppendStream_iso8859_1.
        stream lineEndTransparent.
        self waitForResponse

ExternalConnection>>readAppendStream_iso8859_1
        "Answer a readAppendStream on the receiver."

        ^(self withEncoding: #'iso8859-1') readAppendStream

--
ïÔÐÒÁ×ÌÅÎÏ ÞÅÒÅÚ ÓÅÒ×ÅÒ æÏÒÕÍÙ@mail.ru - http://talk.mail.ru