Actually use READ-LINE parameter in MAKE-READ-RFC822-HEADERS.
(Noticed by bernauer.)
This commit is contained in:
parent
5f4c1b510b
commit
9893716650
|
@ -99,7 +99,7 @@
|
|||
(read-line read-crlf-line))
|
||||
(let lp ((alist '()))
|
||||
(receive (field val)
|
||||
(read-rfc822-field port read-line)
|
||||
(read-field port read-line)
|
||||
(if field
|
||||
(lp (cons (cons field val) alist))
|
||||
(reverse alist)))))))
|
||||
|
|
Loading…
Reference in New Issue