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