Ignore:
Timestamp:
09/01/08 22:05:34 (13 years ago)
Author:
sjamaan
Message:

Allow spaces and tabs in unparsed tokens too by quoting them

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/header-parsers.scm

    r11853 r11854  
    318318(define unparse-token
    319319  (let* ((must-be-quoted-chars (char-set-adjoin char-set:iso-control #\"))
    320          (trigger-quoting-chars (char-set-adjoin must-be-quoted-chars #\, #\;))
     320         (trigger-quoting-chars (char-set-union
     321                                 (char-set-adjoin must-be-quoted-chars #\, #\;)
     322                                 char-set:blank))
    321323         (smap (map (lambda (c)
    322324                      (cons (string c)
Note: See TracChangeset for help on using the changeset viewer.