Changeset 12542 in project


Ignore:
Timestamp:
11/17/08 01:21:24 (13 years ago)
Author:
azul
Message:

Fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/svnwiki-mail/trunk/svnwiki-mail.scm

    r12533 r12542  
    324324        (stream-delay
    325325          (stream-append
    326             (if (stream= char=? default (string->stream path))
     326            (if (stream= char=? default (string->stream (svnwiki-mail-path-canonical path)))
    327327              (html-stream ((option value path selected "true") path))
    328328              (html-stream ((option value path) path)))
     
    506506                        path
    507507                        path
    508                         address)))))
     508                        (url-encode-stream address))))))
    509509
    510510(define (mail-request-unsubscribe env)
     
    558558         action (last (string-split path "/"))
    559559         method "post")
     560       ((input type "hidden" name "address" value address))
    560561       ((input type "hidden" name "action" value "extension"))
    561562       ((input type "hidden" name "extension" value "mail"))
    562        ((input type "hidden" name "mail" value address))
    563563       ((input type "hidden" name "request" value "unsubscribeall"))
    564564       ((input type "hidden" name "password" value password))
Note: See TracChangeset for help on using the changeset viewer.