branch master updated: gnu: claws-mail: Use absolute paths to referenced programs.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

raghavgururajan pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 7b9c441  gnu: claws-mail: Use absolute paths to referenced programs.
7b9c441 is described below

commit 7b9c4417d54009efd9140860ce07dec97120676f
Author: Raghav Gururajan <rg@raghavgururajan.name>
AuthorDate: Tue Jul 20 06:00:34 2021 -0400

    gnu: claws-mail: Use absolute paths to referenced programs.
    
    * gnu/packages/mail.scm (claws-mail)[phases](patch-source): New phase.
    [inputs]: Add mailutils and sendmail.
---
 gnu/packages/mail.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index eb7f148..f0f1540 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -1629,6 +1629,16 @@ compresses it.")
         "gtk_update_icon_cache=true")
        #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'patch-source
+           (lambda* (#:key inputs #:allow-other-keys)
+             ;; Use absolute paths to referenced programs.
+             (let* ((mailutils (assoc-ref inputs "mailutils"))
+                    (inc (string-append mailutils "/bin/mu-mh/inc"))
+                    (send-mail (assoc-ref inputs "sendmail"))
+                    (sendmail (string-append send-mail "/usr/sbin/sendmail")))
+               (substitute* "src/common/defs.h"
+                 (("/usr/bin/mh/inc") inc)
+                 (("/usr/sbin/sendmail") sendmail)))))
          (add-before 'build 'patch-mime
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "src/procmime.c"
@@ -1674,6 +1684,7 @@ compresses it.")
        ("libsm" ,libsm)
        ("libsoup" ,libsoup)
        ("libxml2" ,libxml2)
+       ("mailutils" ,mailutils)
        ("nettle" ,nettle)
        ("network-manager" ,network-manager)
        ("openldap" ,openldap)
@@ -1681,6 +1692,7 @@ compresses it.")
        ("poppler" ,poppler)
        ("python" ,python)
        ("python-pygobject" ,python-pygobject)
+       ("sendmail" ,sendmail)
        ("shared-mime-info" ,shared-mime-info)
        ("startup-notification" ,startup-notification)
        ;;("webkitgtk" ,webkitgtk)