\makeatletter
\d...@outputpage{%
\begingroup % the \endgroup is put in by \aftergroup
\let \protect \noexpand
\...@resetactivechars
\global\let\@@i...@newlist\if@newlist
\glob...@newlistfalse
\...@parboxrestore
\shipout \vbox{%
\...@typeset@protect
\aftergroup \endgroup
\aftergroup \...@typeset@protect
% correct? or just restore by ending
% the group?
\...@specialpage
\glob...@specialpagefalse\@nameuse...@\@specialstyle}%
\fi
\...@twoside
\ifodd\count\z@ \l...@thehead\@oddhead \l...@thefoot\@oddfoot
\l...@themargin\oddsidemargin
\else \l...@thehead\@evenhead
\l...@thefoot\@evenfoot \l...@themargin\evensidemargin
\fi
\fi
\re...@font
\normalsize
\normalsfcodes
\let\lab...@gobble
\let\ind...@gobble
\let\glossa...@gobble
\baselineski...@skip \lineski...@skip \lineskiplimit\z@
\...@begindvi
\vskip \topmargin
\moverig...@themargin \vbox {%
\setb...@tempboxa \vbox to\headheight{%
\vfil
\co...@hbox
\normalcolor
\...@xt@\textwidt...@thehead}%
\co...@endbox
}% %% 22 Feb 87
\...@tempboxa \z@
\b...@tempboxa
\vskip \headsep
\b...@outputbox
\baselineskip \footskip
\co...@hbox
\normalcolor
\...@xt@\textwidt...@thefoot}%
\co...@endbox
}%
}%
\global\let...@newlist\@@i...@newlist
\global \...@colht \textheight
\stepcounter{page}%
\let\firstmark\botmark
}
\makeatother
--
به نام خداوند جان و خرد کزین برتر اندیشه برنگذرد
--------------------------------------------------
Subscriptions, Archive, and List information, etc.:
http://tug.org/mailman/listinfo/xetex
