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

- remove comments about procedure types. 

- don't return status from those procedures that used to
This commit is contained in:
sperber 2003-01-21 08:13:48 +00:00
parent 1ee07495ba
commit 81395d1e48
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scheme/lib/pop3.scm
View File

@ -135,7 +135,7 @@
;; ;;
;; c4c9334bac560ecc979e58001b3e22fb ;; c4c9334bac560ecc979e58001b3e22fb
;; ;;
;;: connection x string x string -> status
(define (pop3-apop-login connection login password) (define (pop3-apop-login connection login password)
(let* ((key (string-append (pop3-connection-challenge connection) (let* ((key (string-append (pop3-connection-challenge connection)
password)) password))
@ -151,7 +151,7 @@
;; return number of messages and number of bytes waiting at the maildrop ;; return number of messages and number of bytes waiting at the maildrop
;;: connection -> integer x integer
(define (pop3-stat connection) (define (pop3-stat connection)
(pop3-check-transaction-state connection pop3-stat) (pop3-check-transaction-state connection pop3-stat)
(let* ((response (pop3-send-command connection "STAT")) (let* ((response (pop3-send-command connection "STAT"))
@ -179,7 +179,7 @@
;; Return highest accessed message-id number for the session. This ;; Return highest accessed message-id number for the session. This
;; ain't in the RFC, but seems to be supported by several servers. ;; ain't in the RFC, but seems to be supported by several servers.
;;: connection -> integer
(define (pop3-last connection) (define (pop3-last connection)
(pop3-check-transaction-state connection pop3-last) (pop3-check-transaction-state connection pop3-last)
(let ((response (pop3-send-command connection "LAST"))) (let ((response (pop3-send-command connection "LAST")))
@ -188,25 +188,24 @@
;; mark the message number MSGID for deletion. Note that the messages ;; mark the message number MSGID for deletion. Note that the messages
;; are not truly deleted until the QUIT command is sent, and messages ;; are not truly deleted until the QUIT command is sent, and messages
;; can be undeleted using the RSET command. ;; can be undeleted using the RSET command.
;;: connection x integer -> status
(define (pop3-delete connection msgid) (define (pop3-delete connection msgid)
(pop3-check-transaction-state connection pop3-delete) (pop3-check-transaction-state connection pop3-delete)
(pop3-send-command connection (build-command "DELE" (number->string msgid)))) (pop3-send-command connection (build-command "DELE" (number->string msgid)))
(values))
;; any messages which have been marked for deletion are unmarked ;; any messages which have been marked for deletion are unmarked
;;: connection -> status
(define (pop3-reset connection) (define (pop3-reset connection)
(pop3-check-transaction-state connection pop3-reset) (pop3-check-transaction-state connection pop3-reset)
(pop3-send-command connection "RSET")) (pop3-send-command connection "RSET")
(values))
;;: connection -> status
(define (pop3-quit connection) (define (pop3-quit connection)
(pop3-check-transaction-state connection pop3-quit) (pop3-check-transaction-state connection pop3-quit)
(let ((status (pop3-send-command connection "QUIT"))) (let ((status (pop3-send-command connection "QUIT")))
(close-socket (pop3-connection-command-socket connection)) (close-socket (pop3-connection-command-socket connection))))
status))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Nothing exported below. ;;; Nothing exported below.