(query-replace-regexp "^ *<sect1.*
 *<title>" ".H2 \"" nil nil nil)
(eval-expression (quote (query-replace-regexp "^ *<sect2.*
 *<title>" ".H3 \"" nil nil nil)) nil)
(eval-expression (quote (query-replace-regexp "^ *<sect3.*
 *<title>" ".H4 \"" nil nil nil)) nil)
;; fix this later
(eval-expression (quote (eval-expression (quote (query-replace-regexp "^ *<sect4.*
 *<title>" ".H4 \"" nil nil nil)) nil)) nil)
(query-replace-regexp "[ 	]*</title>" "\"" nil nil nil)
(query-replace-regexp "^[ 	]*<para>" ".P
" nil nil nil)
(query-replace-regexp " *<itemizedlist>" ".Ls B
" nil nil nil)
(query-replace-regexp " *<listitem>" ".LI
" nil nil nil)
(query-replace-regexp " *</itemizedlist>" ".Le
" nil nil nil)
(query-replace-regexp "</para>" "" nil nil nil)
(query-replace-regexp "[ 	]</listitem>" "" nil nil nil)
(query-replace-regexp "<quote>\\(.*\\)</quote>" "``\\1''" nil nil nil)
(query-replace-regexp "</sect[0-9]>" "" nil nil nil)
(query-replace-regexp "<literal>\\(.*\\)</literal>" "\\\\f(CW\\1\\\\fP" nil nil nil)
(query-replace-regexp "<orderedlist>" ".Ls" nil nil nil)
(query-replace-regexp "</orderedlist>" "" nil nil nil)
(query-replace-regexp "<command>\\(.*\\)</command> *" "
.Command \\1
" nil nil nil)
(query-replace-regexp "<application>\\([^>]*\\)</application> *" "
.Daemon \\1
" nil nil nil)
(query-replace-regexp "<filename>\\(.*\\)</filename> *" "
.File \\1
" nil nil nil)
(query-replace-regexp "<username>\\(.*\\)</username> *" "
\\\\f(CW\\1\\\\fP
" nil nil nil)
(query-replace-regexp "<groupname>\\([^>]\\)*</groupname>" "\\\\f(CW\\1\\\\fP" nil nil nil)
(query-replace-regexp "<option>\\([^>]\\)*</option>" "\\\\f(CW\\1\\\\fP" nil nil nil)
(query-replace-regexp "<indexterm><primary>\\(.*\\)</primary></indexterm>" ".X \"\\1\"" nil nil nil)
(query-replace-regexp "<varname>\\([^>]\\)*</varname>" "\\\\f(CW\\1\\\\fP" nil nil nil)
(query-replace-regexp "<emphasis>\\(.*\\)</emphasis> *" "
\\\\fI\\1\\\\fP
" nil nil nil)
(query-replace-regexp "<indexterm>
<primary>" ".X \"" nil nil nil)
(query-replace-regexp "</primary>
<secondary>" ", " nil nil nil)
(query-replace-regexp "</secondary>
</indexterm>" "\"" nil nil nil)
(query-replace-regexp "<variablelist>" ".Ls B
" nil nil nil)
(query-replace-regexp "<varlistentry>" ".LI
" nil nil nil)
(query-replace-regexp "</varlistentry>" "" nil nil nil)
(query-replace-regexp "</variablelist>" "" nil nil nil)
(query-replace-regexp "<programlisting>\\([^>]*\\)</programlisting>" ".Dx
\\1
.De" nil nil nil)
(query-replace-regexp "<screen>\\([^>]*\\)</screen>" ".Dx
\\1
.De" nil nil nil)
(query-replace-regexp "<note>" ".Aside" nil nil nil)
(query-replace-regexp "&prompt.root;" "#" nil nil nil)
(query-replace-regexp "&prompt.user;" "$" nil nil nil)
(query-replace-regexp "<userinput>\\([^<]+\\)</userinput>" "\\\\f(CB\\1\\\\fP" nil nil nil)
(query-replace-regexp "</screen>" "
.De" nil nil nil)
(query-replace-regexp "<screen>" ".Dx
" nil nil nil)
(query-replace-regexp "<literal>\\([^<]+\\)</literal>" "\\\\f(CW\\1\\\\fP" nil nil nil)
(query-replace-regexp "<hostid[^>]*>\\([^<]+\\)</hostid>" "\\\\fI\\1\\\\fP" nil nil nil)
(query-replace-regexp "&lt;" "<" nil nil nil)
(query-replace-regexp "&gt;" ">" nil nil nil)
(query-replace-regexp "\\.De
\\.P" ".De" nil nil nil)
(query-replace-regexp "<replaceable[^>]*>\\([^<]+\\)</replaceable>" "\\\\f(CI\\1\\\\fP" nil nil nil)
(query-replace-regexp "&amp;" "&" nil nil nil)
(query-replace-regexp "&nbsp;" "\\\\ " nil nil nil)
(query-replace-regexp "&dollar;" "$" nil nil nil)
