 furnace.auth furnace.boilerplate furnace.recaptcha
 furnace.redirection furnace.syndication html.forms
 http.server.dispatchers http.server.responses kernel math.parser
-sequences sorting urls validators xmode.catalog ;
+namespaces sequences smtp sorting urls validators xmode.catalog ;
 IN: webapps.pastebin
 
 TUPLE: pastebin < dispatcher ;
 
 SYMBOL: can-delete-pastes?
+
+SYMBOL: pastebin-email-list
 
 can-delete-pastes? define-capability
 

    now >>date
    { "summary" "author" "mode" "contents" } to-object ;

: <new-paste-action> ( -- action )
    <page-action>
        [

            f <paste-state>
            [ deposit-entity-slots ]
            [ insert-tuple ]
            [ id>> paste-url [ email-on-paste ] [ <redirect> ] bi ]
            tri
        ] >>submit ;

