- remove comments about procedure types.

- don't return status from those procedures that used to

scheme/lib/pop3.scm

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