Fix for handling long .TH as overlaping in header and foot (CD #19873798)

Fix has been submitted upstream:

http://savannah.gnu.org/bugs/?43532

--- groff-1.22.2/tmac/an-old.tmac.orig	2013-02-07 21:06:08.000000000 +0900

+++ groff-1.22.2/tmac/an-old.tmac	2014-12-01 13:32:30.713605080 +0900

@@ -253,19 +253,111 @@

 .

 .\" Redefine these to customize the header & footer

 .

+.de1 TLPT

+.  ds str1 "\\$1\"

+.  ds str2 "\\$2\"

+.\"

+.\" Based on .lt, the following 3 formats are used.

+.\"

+.\"     (str1 < 1/3) and (str2 < 1/3)

+.\"             str1, str2, str1

+.\"     ((str1 < 2/3) and (str2 < 1/3)) or ((str1 < 1/3) and (str2 < 2/3))

+.\"             str1,       str2,

+.\"     else

+.\"             str1,

+.\"                         str2

+.\"

+.  nr lt_13 (\\n[.lt] / 3)

+.  nr lt_23 (\\n[.lt] * 2 / 3)

+.  ie ((\\w'\\*[str1]'u < \\n[lt_13]u) & (\\w'\\*[str2]'u < \\n[lt_13]u)) \{\

+.    tl '\\*[str1]'\\*[str2]'\\*[str1]'

+.  \}

+.  el \{\

+.    ie (((\\w'\\*[str1]'u < \\n[lt_23]u) & (\\w'\\*[str2]'u < \\n[lt_13]u)) : ((\\w'\\*[str1]'u < \\n[lt_13]u) & (\\w'\\*[str2]'u < \\n[lt_23]u))) \{\

+.      tl '\\*[str2]''\\*[str1]'

+.    \}

+.    el \{\

+.      tl '\\*[str2]'''

+.      tl '''\\*[str1]'

+.    \}

+.  \}

+..

+.

+.de1 TLBT

+.  ds str1 "\\$1\"

+.  ds str2 "\\$2\"

+.  ds str3 "\\$3\"

+.\"

+.\" Based on .lt, the following 6 formats are used.

+.\"

+.\"     (str1 < 1/3) and (str2 < 1/3), str3 < 1/3)

+.\"             str1, str2, str3

+.\"     (str1 < 1/3) and (str2 < 1/3)

+.\"             str1, str2,

+.\"                         str3

+.\"     (str2 < 1/3) and (str3 < 1/3)

+.\"             str1, 

+.\"                   str2, str3

+.\"     ((str1 < 2/3) and (str2 < 1/3)) or ((str1 < 1/3) and (str2 < 2/3))

+.\"             str1,       str2,

+.\"                         str3

+.\"     ((str2 < 2/3) and (str3 < 1/3)) or ((str2 < 1/3) and (str3 < 2/3))

+.\"             str1,

+.\"             str2,       str3

+.\"     else

+.\"             str1,

+.\"                   str2,

+.\"                         str3

+.\"

+.  nr lt_13 (\\n[.lt] / 3)

+.  nr lt_23 (\\n[.lt] * 2 / 3)

+.  ie ((\\w'\\*[str1]'u < \\n[lt_13]u) & (\\w'\\*[str2]'u < \\n[lt_13]u) & (\\w'\\*[str3]'u < \\n[lt_13]u)) \{\

+.    tl '\\*[str1]'\\*[str2]'\\*[str3]'

+.  \}

+.  el \{\

+.    ie ((\\w'\\*[str1]'u < \\n[lt_13]u) & (\\w'\\*[str2]'u < \\n[lt_13]u)) \{\

+.      tl '\\*[str1]'\\*[str2]''

+.      tl '''\\*[str3]'

+.    \}

+.    el \{\

+.      ie ((\\w'\\*[str2]'u < \\n[lt_13]u) & (\\w'\\*[str3]'u < \\n[lt_13]u)) \{\

+.        tl '\\*[str1]'''

+.        tl ''\\*[str2]'\\*[str3]'

+.      \}

+.      el \{\

+.        ie (((\\w'\\*[str1]'u < \\n[lt_23]u) & (\\w'\\*[str2]'u < \\n[lt_13]u)) : ((\\w'\\*[str1]'u < \\n[lt_13]u) & (\\w'\\*[str2]'u < \\n[lt_23]u))) \{\

+.          tl '\\*[str1]''\\*[str2]'

+.          tl '''\\*[str3]'

+.        \}

+.        el \{\

+.          ie (((\\w'\\*[str2]'u < \\n[lt_23]u) & (\\w'\\*[str3]'u < \\n[lt_13]u)) : ((\\w'\\*[str2]'u < \\n[lt_13]u) & (\\w'\\*[str3]'u < \\n[lt_23]u))) \{\

+.            tl '\\*[str1]'''

+.            tl '\\*[str2]''\\*[str3]'

+.          \}

+.          el \{\

+.            tl '\\*[str1]'''

+.            tl ''\\*[str2]''

+.            tl '''\\*[str3]'

+.          \}

+.        \}

+.      \}

+.    \}

+.  \}

+..

+.

 .de1 PT

-.  tl '\\*[an-title](\\*[an-section])'\\*[an-extra3]'\\*[an-title](\\*[an-section])'

+.  TLPT "\\*[an-title](\\*[an-section])" "\\*[an-extra3]"

 ..

 .

 .de1 BT

 .  if r ps4html \

 .    return

 .  ie \\n[D] \{\

-.    if o .tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'

-.    if e .tl '\\*[an-page-string]'\\*[an-extra1]'\\*[an-extra2]'

+.    if o .TLBT "\\*[an-extra2]" "\\*[an-extra1]" "\\*[an-page-string]"

+.    if e .TLBT "\\*[an-page-string]" "\\*[an-extra1]" "\\*[an-extra2]"

 .  \}

 .  el \

-.    tl '\\*[an-extra2]'\\*[an-extra1]'\\*[an-page-string]'

+.    TLBT "\\*[an-extra2]" "\\*[an-extra1]" "\\*[an-page-string]"

 ..

 .

 .de1 an-header