From ba2281f2e74e85f53499aeb0f37235c5dda29983 Mon Sep 17 00:00:00 2001
From: Anderson Torres <anderson.torres.8519@gmail.com>
Date: Sun, 12 Oct 2025 19:24:51 -0300
Subject: [PATCH] gnu: l2md: Modernize definition.

* gnu/packages/mail.scm (lm2d)[arguments]: Use gexps.
<#:tests?>: Set to #f.
<#:phases>{check}: Do no delete phase.
{mkdir}: Simplify.

Change-Id: Ia449f1c851f269aa6c9e0e1da5cb896ce3e1e0e2
Signed-off-by: Andreas Enge <andreas@enge.fr>
---
 gnu/packages/mail.scm | 47 ++++++++++++++++++++++---------------------
 1 file changed, 24 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 2ae6b5e1f35a11298887df25b0e625300104d772..f334dd410cb9b05c621a36d0714354f41e99e3b5 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -4474,40 +4474,41 @@ related tools to process winmail.dat files.")
        (origin
          (method git-fetch)
          (uri (git-reference
-               (url "https://git.kernel.org/pub/scm/linux/kernel/git/dborkman/l2md.git")
-               (commit commit)))
+                (url "https://git.kernel.org/pub/scm/linux/kernel/git/dborkman/l2md.git")
+                (commit commit)))
          (file-name (git-file-name name version))
          (sha256
           (base32 "1hfbngwdavdhw5ghnadmi0djg2yrr0wrkv15jdd9wcqh9h6mxy8z"))
          (snippet
-          #~(begin (use-modules (guix build utils))
-                   ;; Don't try to redefine loff_t.
-                   (substitute* "utils.c"
-                     (("typedef off_t loff_t;")
-                      (string-append "#ifdef __APPLE__\n"
-                                     "typedef off_t loff_t;\n"
-                                     "#endif\n")))))))
+          #~(begin
+              (use-modules (guix build utils))
+              ;; Don't try to redefine loff_t.
+              (substitute* "utils.c"
+                (("typedef off_t loff_t;")
+                 (string-append "#ifdef __APPLE__\n"
+                                "typedef off_t loff_t;\n"
+                                "#endif\n")))))))
       (build-system gnu-build-system)
+      (arguments
+       (list
+        #:tests? #f                     ; No tests
+        #:make-flags
+        #~(list (string-append "CC=" #$(cc-for-target))
+                (string-append "PREFIX=" #$output "/bin"))
+        #:phases
+        #~(modify-phases %standard-phases
+            (delete 'configure)
+            (add-before 'install 'mkdir
+              (lambda _
+                (mkdir-p (string-append #$output "/bin")))))))
       (inputs
        (list libgit2))
-      (arguments
-       `(#:phases
-         (modify-phases %standard-phases
-           (delete 'configure)          ;no configure scripts
-           (delete 'check)              ;no tests
-           (add-before 'install 'mkdir
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let ((l2md (string-append (assoc-ref outputs "out") "/bin")))
-                 (mkdir-p l2md)))))
-         #:make-flags
-         (list ,(string-append "CC=" (cc-for-target))
-               (string-append "PREFIX=" %output "/bin"))))
-      (home-page
-       "https://git.kernel.org/pub/scm/linux/kernel/git/dborkman/l2md.git")
       (synopsis "Import public-inbox archives via Git")
       (description
        "The @command{l2md} command line tool imports public-inbox archives via
 Git and exports them in maildir format or to an MDA through a pipe.")
+      (home-page
+       "https://git.kernel.org/pub/scm/linux/kernel/git/dborkman/l2md.git")
       (license license:gpl2))))
 
 (define-public bubger