Changeset 12391 in project


Ignore:
Timestamp:
11/07/08 05:07:30 (13 years ago)
Author:
Ivan Raikov
Message:

Bug fixes related to changes in results returned by rfc822-field->tokens.

Location:
release/3/formular/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/formular/trunk/formular.scm

    r10625 r12391  
    169169                          (from (rfc822-field->tokens (rfc822-header-ref headers "from") )))
    170170                      (let ((date-seconds (rfc822-date->seconds date))
    171                             (from-address
    172                              (let from-loop ((prev #f) (lst from))
    173                                (if (or (null? lst) (null? (cdr lst)))
    174                                    (error 'form-stream->alist "invalid from address: " from))
    175                                (if (and (char? (car lst)) (char=? (car lst) #\@ ))
    176                                    (if (or (not prev) (not (string? (cadr lst))))
    177                                        (error 'form-stream->alist "invalid from address: " from)
    178                                        (string-append prev "@" (cadr lst)))
    179                                    (from-loop (car lst) (cdr lst))))))
     171                            (from-address (match from
     172                                                 ((u #\@ v)  (string-append u "@" v))
     173                                                 ((u v)      (string-append u "@" v))
     174                                                 (else (error 'form-stream->tree "invalid from address: " from)))))
    180175                        (let ((exists     (lookup from-address #f))
    181176                              (submission `(submission (date-seconds ,date-seconds) (fields . ,fields))))
  • release/3/formular/trunk/formular.setup

    r11388 r12391  
    2222
    2323  ; Assoc list with properties for your extension:
    24   '((version 1.4)
     24  '((version 1.5)
    2525    (documentation "formular.html")
    2626    ,@(if has-exports? `((exports "formular.exports")) (list)) ))
     
    3636
    3737  ; Assoc list with properties for the program:
    38   '((version 1.4)))
     38  '((version 1.5)))
    3939
    4040(install-program
     
    4444
    4545  ; Assoc list with properties for the program:
    46   '((version 1.4)))
     46  '((version 1.5)))
Note: See TracChangeset for help on using the changeset viewer.