[groff] 14/25: [mm]: Fix Savannah #66380 (`.LT BL` space/date).

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 2bbae61985ebd0dd5763e09b1a840dc605db0454
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sat Oct 26 13:51:50 2024 -0500

    [mm]: Fix Savannah #66380 (`.LT BL` space/date).
    
    * contrib/mm/m.tmac (let@print-head): Accept new second argument
      indicating whether a blank line is desired before formatting the date.
    
      (let@head_BL): Call `let@print-head` with that second argument.  This
      is more consistent with DWB 3.3 mm behavior.
    
    * contrib/mm/tests/artifacts/letter.BL: Update.
    
    Fixes <https://savannah.gnu.org/bugs/?66380>.
---
 contrib/mm/ChangeLog                 | 11 +++++++++++
 contrib/mm/m.tmac                    |  5 +++--
 contrib/mm/tests/artifacts/letter.BL |  2 +-
 3 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/contrib/mm/ChangeLog b/contrib/mm/ChangeLog
index e64cecf4b..544b2ef3b 100644
--- a/contrib/mm/ChangeLog
+++ b/contrib/mm/ChangeLog
@@ -1,3 +1,14 @@
+2024-10-26  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * m.tmac (let@print-head): Accept new second argument indicating
+       whether a blank line is desired before formatting the date.
+       (let@head_BL): Call `let@print-head` with that second argument.
+       This is more consistent with DWB 3.3 mm behavior.
+
+       * tests/artifacts/letter.BL: Update.
+
+       Fixes <https://savannah.gnu.org/bugs/?66380>.
+
 2024-10-26  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        Regression-test Savannah #66380 (blocked letters should put a
diff --git a/contrib/mm/m.tmac b/contrib/mm/m.tmac
index 34695cab1..8cf94f262 100644
--- a/contrib/mm/m.tmac
+++ b/contrib/mm/m.tmac
@@ -3776,7 +3776,7 @@ undefined
 ..
 .de let@head_BL
 .rm let@header
-.let@print-head 1
+.let@print-head 1 1
 ..
 .de let@sg_BL
 .ne 5v
@@ -3850,7 +3850,7 @@ undefined
 .\"--------------------------------------
 .\" format everything up to the body text of a letter
 .\"
-.\" let@print-head [want-indent]
+.\" let@print-head [want-indent] [want-space-before-date-line]
 .de let@print-head
 .nf
 .sp |11
@@ -3859,6 +3859,7 @@ undefined
 .ie d let@wa-div .let@wa-div
 .el              .sp 3
 .\" ---- date
+.if '1'\\$2' .sp
 \\*[cov*new-date]
 .sp
 .if '1'\\$1' .if !d let*lo-CN .if !d let*lo-RN .sp 2
diff --git a/contrib/mm/tests/artifacts/letter.BL 
b/contrib/mm/tests/artifacts/letter.BL
index 2af2c21fd..26abcc701 100644
--- a/contrib/mm/tests/artifacts/letter.BL
+++ b/contrib/mm/tests/artifacts/letter.BL
@@ -11,6 +11,7 @@
 
                                      123 Main Street
                                      Anytown, ST  10101
+
                                      17 May 2023
 
 
@@ -61,6 +62,5 @@
 
 
 
-