[groff] 11/32: [mm]: Adjust memorandum type 4 cosmetics.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit ad8cd89d4a9be3ca42b25399cff67ae2bb7aaf51
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Thu Jun 13 15:04:13 2024 -0500

    [mm]: Adjust memorandum type 4 cosmetics.
    
    * contrib/mm/mm/4.MT: Revise to more closely approximate DWB 3.3 troff
      output.  Initialize `let*sg-suppress-all` and `let*ns-suppress` true.
    
      (cov@print-title): Set document title closer to where DWB 3.3 puts it.
      Stop turning on fill mode unnecessarily.  It should already be on at
      the start of a document.  Save and restore adjustment mode instead of
      clobbering it.
    
      (cov@print-authors): Space by a full vee mode, before and after
      setting authors in nroff mode, since most nroff devices are incapable
      of the half-line motions used in troff mode.
    
      (cov@print-firm): Space by two vees before setting the document's
      affiliated firm name.
    
      (cov@print-abstract): Use mm macros instead of formatter requests to
      change fonts.
---
 contrib/mm/ChangeLog | 18 ++++++++++++++++++
 contrib/mm/mm/4.MT   | 29 +++++++++++++++++++++--------
 2 files changed, 39 insertions(+), 8 deletions(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index e43cb4377..87908bb84 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,21 @@
+2024-06-13  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * mm/4.MT: Revise to more closely approximate DWB 3.3 troff
+       output.  Initialize `let*sg-suppress-all` and `let*ns-suppress`
+       true.
+       (cov@print-title): Set document title closer to where DWB 3.3
+       puts it.  Stop turning on fill mode unnecessarily.  It should
+       already be on at the start of a document.  Save and restore
+       adjustment mode instead of clobbering it.
+       (cov@print-authors): Space by a full vee mode, before
+       and after setting authors in nroff mode, since most nroff
+       devices are incapable of the half-line motions used in troff
+       mode.
+       (cov@print-firm): Space by two vees before setting the
+       document's affiliated firm name.
+       (cov@print-abstract): Use mm macros instead of formatter
+       requests to change fonts.
+
 2024-06-13  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        Support suppression of `SG`, `NS` features.  In DWB 3.3 mm,
diff --git a/contrib/mm/mm/4.MT b/contrib/mm/mm/4.MT
index 80b02b7cb..ee65ecec6 100644
--- a/contrib/mm/mm/4.MT
+++ b/contrib/mm/mm/4.MT
@@ -1,8 +1,11 @@
 .ig
 
-Copyright (C) 1991-2020 Free Software Foundation, Inc.
+Copyright (C) 1991-2024 Free Software Foundation, Inc.
 mm is written by J�rgen H�gg <jh@axis.com>
 
+Modified by G. Branden Robinson <g.branden.robinson@gmail.com> to more
+closely approximate DWB 3.3 troff output.
+
 mm is free software; you can redistribute it and/or modify it under
 the terms of the GNU General Public License as published by the Free
 Software Foundation, either version 3 of the License, or
@@ -25,37 +28,43 @@ http://savannah.gnu.org/bugs/?group=groff.
 .\"------------
 .de cov@print-title
 .if !d cov*title .@error title not defined; call TL and AU before MT
-.MOVE 2.8c
+.\" TODO: We might compute this from the vertical page dimension (L).
+.\" For historical reconstructions, this suffices because the AT&T mm
+.\" product anticipated only U.S. letter paper.
+.SP |(1.3333i-1v)
 .S +2
+.nr cov*saved-adjustment \\n[.j]
 .ad c
-.fi
 .ft \\*[@metadata-font]
 .cov*title
 .br
 .S
-.ad b
 .ft
+.ad \\n[cov*saved-adjustment]
+.rr cov*saved-adjustment
 ..
 .\"------------
 .de cov@print-authors
 .\" The following diagnostic might be unreachable.
 .if !r cov*au .@error no authors defined; call AU before MT
-.SP 0.5
+.ie t .SP 0.5
+.el   .SP
 .I
 .S +1
 .nr cov*i 0 1
 .while \\n+[cov*i]<=\\n[cov*au] \{\
 .      ce
 .      nop \\*[cov*au!\\n[cov*i]!1]
-.      br
 .\}
 .S
 .R
+.ie t .SP 0.5
+.el   .SP
 ..
 .\"------------
 .de cov@print-firm
 .if d cov*firm \{\
-.      SP 0.5
+.      SP 2
 .      ce
 .      nop \\*[cov*firm]
 .\}
@@ -71,8 +80,9 @@ http://savannah.gnu.org/bugs/?group=groff.
 .              ll -\\n[cov*abstract-indent]u
 .      \}
 .      ce
-.      ft I
+.      I
 .      nop \\*[Abstract]
+.      R
 .      SP 2
 .      fi
 .      cov*abstract
@@ -81,6 +91,9 @@ http://savannah.gnu.org/bugs/?group=groff.
 .\}
 ..
 .\"-----------------
+.nr let*sg-suppress-all 1
+.nr let*ns-suppress 1
+.
 .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
 .if !d cov*mt-printed \{\
 .      cov@print-title