.
original commit: f93afffdc888a77312b57435956c5ec3014f024c
This commit is contained in:
parent
37a0969025
commit
f577617b2d
|
@ -75,8 +75,7 @@
|
|||
(cond ((string=? str "") out)
|
||||
(else
|
||||
(let ((c (string-ref str 0)))
|
||||
(cond ((or (char=? c #\space)
|
||||
(char=? c #\tab))
|
||||
(cond ((memq c '(#\space #\tab #\newline #\return))
|
||||
(loop out (substring str 1 (string-length str))))
|
||||
((char=? c #\");; Begin of quoted string
|
||||
(let-values ([(quoted rest)
|
||||
|
@ -93,13 +92,13 @@
|
|||
|
||||
(define trim-left
|
||||
(lambda (str)
|
||||
(let* ((r (regexp "^[ ]*(.*)"))
|
||||
(let* ((r (regexp "^[ \t\r\n]*(.*)"))
|
||||
(ans (regexp-match r str)))
|
||||
(and ans (regexp-replace r str "\\1")))))
|
||||
(cadr ans))))
|
||||
|
||||
(define trim-right
|
||||
(lambda (str)
|
||||
(let* ((r (regexp "[ ]*$"))
|
||||
(let* ((r (regexp "[ \t\r\n]*$"))
|
||||
(pos (regexp-match-positions r str)))
|
||||
(substring str 0 (caar pos)))))
|
||||
|
||||
|
|
|
@ -33,12 +33,14 @@
|
|||
"qp-sig.ss"
|
||||
"qp.ss"
|
||||
"base64-sig.ss"
|
||||
"base64.ss")
|
||||
"base64.ss"
|
||||
"head-sig.ss"
|
||||
"head.ss")
|
||||
|
||||
(define-values/invoke-unit/sig net:mime^
|
||||
net:mime@
|
||||
#f
|
||||
net:base64^ net:qp^)
|
||||
net:base64^ net:qp^ net:head^)
|
||||
|
||||
(provide-signature-elements net:mime^))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user