scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

In POP3: 

- export POP3-ERROR?
- rename POP3-GET -> POP3-RETRIEVE-MESSAGE,
         POP3-HEADERS -> POP3-RETRIEVE-HEADERS
This commit is contained in:
sperber 2003-01-21 08:21:20 +00:00
parent 4abd90075b
commit 0cb68b88c9
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/lib/pop3.scm
View File

@ -159,8 +159,8 @@
(values (string->number (match:substring match 1)) (values (string->number (match:substring match 1))
(string->number (match:substring match 2))))) (string->number (match:substring match 2)))))
(define (pop3-get connection msgid) (define (pop3-retrieve-message connection msgid)
(check-transaction-state connection pop3-get) (check-transaction-state connection pop3-retrieve-message)
(let* ((status (send-command connection (let* ((status (send-command connection
(build-command "RETR" (number->string msgid)))) (build-command "RETR" (number->string msgid))))
(port (socket:inport (pop3-connection-command-socket connection))) (port (socket:inport (pop3-connection-command-socket connection)))
@ -168,8 +168,8 @@
(body (multiline-response->lines port))) (body (multiline-response->lines port)))
(values headers body))) (values headers body)))
(define (pop3-headers connection msgid) (define (pop3-retrieve-headers connection msgid)
(check-transaction-state connection pop3-headers) (check-transaction-state connection pop3-retrieve-headers)
(let* ((status (send-command connection (let* ((status (send-command connection
(build-command "TOP" (number->string msgid) "0"))) (build-command "TOP" (number->string msgid) "0")))
(port (socket:inport (pop3-connection-command-socket connection))) (port (socket:inport (pop3-connection-command-socket connection)))

9
scheme/packages.scm
View File

@ -124,12 +124,13 @@
(define-interface pop3-interface (define-interface pop3-interface
(export pop3-connect (export pop3-connect
pop3-stat pop3-stat
pop3-get pop3-retrieve-message
pop3-headers pop3-retrieve-headers
pop3-last pop3-last
pop3-delete pop3-delete
pop3-reset pop3-reset
pop3-quit)) pop3-quit
pop3-error?))
(define-interface nettime-interface (define-interface nettime-interface
(export net-time (export net-time
@ -438,7 +439,7 @@
(define-structure pop3 pop3-interface (define-structure pop3 pop3-interface
(open scheme-with-scsh (open scheme-with-scsh
netrc netrc rfc822
define-record-types define-record-types
handle handle
conditions handle-fatal-error conditions handle-fatal-error