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

In POP3: 

replace uses of FORMAT
This commit is contained in:
sperber 2003-01-20 15:07:51 +00:00
parent 99819b7a47
commit 4ef92c949a
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scheme/lib/pop3.scm
View File

@ -107,8 +107,8 @@
((pop3-connection-challenge connection)
(pop3-apop-login connection login password))))
(lambda ()
(pop3-send-command connection (format #f "USER ~a" login))
(pop3-send-command connection (format #f "PASS ~a" password))
(pop3-send-command connection (build-command "USER" login))
(pop3-send-command connection (build-command "PASS" password))
(set-pop3-connection-login! connection login)
(set-pop3-connection-password! connection password)
(set-pop3-connection-state! connection 'connected))))))
@ -143,7 +143,7 @@
(md5-digest->number (md5-digest-for-string key))
16))
(status (pop3-send-command connection
(format #f "APOP ~a ~a" login digest))))
(build-command "APOP" login digest))))
(set-pop3-connection-login! connection login)
(set-pop3-connection-password! connection password)
(set-pop3-connection-state! connection 'connected)
@ -163,14 +163,16 @@
;;: connection x integer -> status
(define (pop3-get connection msgid)
(pop3-check-transaction-state connection 'pop3-get)
(let ((status (pop3-send-command connection (format #f "RETR ~a" msgid))))
(let ((status (pop3-send-command connection
(build-command "RETR" (number->string msgid)))))
(pop3-dump (socket:inport (pop3-connection-command-socket connection)))
status))
;;: connection x integer -> status
(define (pop3-headers connection msgid)
(pop3-check-transaction-state connection 'pop3-headers)
(let ((status (pop3-send-command connection (format #f "TOP ~a 0" msgid))))
(let ((status (pop3-send-command connection
(build-command "TOP" (number->string msgid) "0"))))
(pop3-dump (socket:inport (pop3-connection-command-socket connection)))
status))
@ -188,7 +190,7 @@
;;: connection x integer -> status
(define (pop3-delete connection msgid)
(pop3-check-transaction-state connection 'pop3-delete)
(pop3-send-command connection (format #f "DELE ~a" msgid)))
(pop3-send-command connection (build-command "DELE" (number->string msgid))))
;; any messages which have been marked for deletion are unmarked
@ -230,7 +232,7 @@
(let* ((sock (pop3-connection-command-socket connection))
(in (socket:inport sock))
(line (read-crlf-line in)))
(pop3-log connection (format #f "-> ~a" line))
(pop3-log connection (string-append "-> " line))
line))
;; this could perhaps be improved
@ -257,7 +259,7 @@
(out (socket:outport sock)))
(write-string command out)
(write-crlf out)
(pop3-log connection (format #f "<- ~a" command))
(pop3-log connection (string-append "<- " command))
(pop3-handle-response (pop3-read-response connection) command)))
(define (pop3-dump fd)
@ -272,4 +274,7 @@
(newline)
(loop))))))
(define (build-command str . opt-args)
(string-join (cons str opt-args)))
;; EOF

2
scheme/packages.scm
View File

@ -449,7 +449,7 @@
handle
conditions handle-fatal-error
signals
(subset srfi-13 (string-index string-prefix?))
(subset srfi-13 (string-index string-prefix? string-join))
let-opt
crlf-io)
(files (lib pop3)))