Add space before field body in RFC822-TIME->STRING.
This commit is contained in:
parent
1fa3096a34
commit
e51180ffdf
|
@ -110,4 +110,4 @@
|
||||||
(make-read-rfc822-headers read-rfc822-field-with-line-breaks))
|
(make-read-rfc822-headers read-rfc822-field-with-line-breaks))
|
||||||
|
|
||||||
(define (rfc822-time->string time)
|
(define (rfc822-time->string time)
|
||||||
(format-date "~a, ~d ~b ~Y ~H:~M:~S GMT" (date time 0)))
|
(format-date " ~a, ~d ~b ~Y ~H:~M:~S GMT" (date time 0)))
|
||||||
|
|
Loading…
Reference in New Issue