gnu: opensmtpd: Change path for lockspool to setuid program.

* gnu/packages/mail.scm (opensmtpd)[arguments]<#:phases>
{patch-FHS-file-names}: Also patch path to setuid lockspool.

1 files changed, 4 insertions, 0 deletions

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 3d9213da54b..cab39a4aa46 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -3435,6 +3435,10 @@ from the Cyrus IMAP project.")
                  (string-append def "\\\"/run/privileged/bin/smtpctl\\\" \\"))
                 (("(-DPATH_MAKEMAP=).*\\\\" all def)
                  (string-append def "\\\"/run/privileged/bin/makemap\\\" \\")))
+              ;; lockspool needs to be suid to be able to lock root owned /var/mail
+              (substitute* "contrib/libexec/mail.local/pathnames.h"
+                (("(#define _PATH_LOCKSPOOL).*" all def)
+                 (string-append def " \"/run/privileged/bin/lockspool\"")))
               (substitute* "usr.sbin/smtpd/smtpctl.c"
                 ;; ‘gzcat’ is auto-detected at compile time, but ‘cat’ isn't.
                 (("/bin/cat" file) (search-input-file inputs file)))