]> .") (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "All users of FreeBSD ") (literal (entity-text "release.branch")) (literal " should subscribe to the ") (literal "<") (create-link (list (list "HREF" "mailto:current@FreeBSD.org")) (literal "current@FreeBSD.org")) (literal "> mailing list."))) (make element gi: "p" attributes: (list (list "align" "center")) (literal "For questions about this documentation, e-mail <") (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">.")))))) (element quote (make sequence (literal "``") (process-children) (literal "''"))) (define %refentry-xref-link% #t) (define ($create-refentry-xref-link$ refentrytitle manvolnum) (string-append "http://www.FreeBSD.org/cgi/man.cgi?query=" refentrytitle "&" "sektion=" manvolnum "&" "manpath=FreeBSD+5.0-current")) ]]> (define (toc-depth nd) (if (string=? (gi nd) (normalize "book")) 3 3))